IListTextItemId Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Get current contact business type identity
This text may be copied to the notepad, and saved as a *.vbs file. You need a running CRM 5 to make it work. (This example uses the SuperOffice COM application library and not the SuperOffice db library interface).
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then MsgBox "Current contact business type identity: " & objSO.CurrentContact.business.id, vbInformation + vbOKOnly, "SuperCOM" else MsgBox "Unable to connect to database" end if Set objSO = Nothing