IFindContactsLike Method |
Namespace: SuperOffice.COM.SuperOfficeDB
ContactsLike
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, retrieves a SOFind object, and then uses it to search and retrieve all contacts with a name that sounds like "Super"
dim objso dim objcontact set objso = CreateObject("superofficedb.database") If not (objSO is nothing) Then objso.login "<USERID>", "<password>" set objcontact = objso.find.contactslike("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