IInterestsRemove Method |
Remove a specific member from the collection. The remove is now forwarded to the model for database action.
Note you still have to say SaveModel at some point to make the changes permanent.
Namespace: SuperOffice.COM.SuperOfficeDB
Remove
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Dim contact Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then objSO.CurrentContact.Interests.Remove (1) MsgBox "The first active company interest of the current contact is deleted� else MsgBox "Unable to connect to database" end if Set objSO = Nothing