IContactGetPersons Method |
Namespace: SuperOffice.COM.SuperOfficeDB
GetPerson
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Dim collPers Dim per Dim msg Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then Set collPers = objSO.CurrentContact.GetPersons() For Each per In collPers msg = msg & per.FirstName & " " & per.LastName msg = msg & Chr(13) & Chr(10) Next MsgBox msg, vbInformation + vbOKOnly, "SuperCOM" Else MsgBox "Unable to connect to database" End If Set objSO = Nothing