IInterestInterestId Property |
Namespace: SuperOffice.COM.SuperOfficeDB
InterestId
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This example will use the GetListItem to retrieve the text string with the name of the active interest, if the company has any contact interest defined.
Dim objSO Dim result Dim intID Dim inttext Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then result = objSO.CurrentContact.interests.count if result > 0 then intID = objSO.currentcontact.interests.Item(1).interestid inttext = objSO.Database.GetListItem(enTableContInt, intID).text msgbox "Current company first active ContactInterest name: " & inttext, vbInformation + vbOkOnly, "SuperCOM" else msgbox "The current company has no active interest defined", vbInformation + vbOkOnly, "SuperCOM" end if