IFindContactsByName Method |
Namespace: SuperOffice.COM.SuperOfficeDB
ContactsByName
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
The source code below logs on to the database, and search and retrieves all contacts with a name that starts with Super.
Dim objSO Dim objContact Set objSO = CreateObject("SuperOfficeDB.Database") If not (objSO is nothing) Then objSO.login "<USERID>", "<password>" set objContact = objSO.Find.ContactsBYName("Super") set Contact = objContact.getfirst while not objContact.eof item = Contact.name & " - " & Contact.department msgbox item set contact = objContact.Getnext wend Else MsgBox "Could not log in" End If Set objSO = Nothing