Add an interest to the collection. Returns the new interest. The interest id is a person-interest or a contact-interest
Creates a new Interest object, initialises it with the given values and adds it to the end of the Interest collections.
Namespace:
SuperOffice.COM.SuperOfficeDB
Assembly:
SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
SyntaxSOInterest Add(
int InterestId
)
Function Add (
InterestId As Integer
) As SOInterest
Dim instance As IInterests
Dim InterestId As Integer
Dim returnValue As SOInterest
returnValue = instance.Add(InterestId)
SOInterest^ Add(
[InAttribute] int InterestId
)
Parameters
- InterestId
- Type: SystemInt32
ListtextId from interest tabel, either ContInt.ContInt<em>id or PersInt.PersInt</em>id
Return Value
Type:
SOInterestSOInterest – The newly added Interest
ExamplesAdd
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This will add a new Interest to the current contact.
Dim objSO
Dim contact
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
Set Contact = objSO.CurrentContact
Contact.Interests.Add (1)
MsgBox "An new Interest is added to the current contact"
else
MsgBox "Unable to connect to database"
end if
Set objSO = Nothing
See Also