IFindPersonsByPhone Method |
Namespace: SuperOffice.COM.SuperOfficeDB
PersonsByPhone
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This will find all persons with a phone number that starts with 2251
Dim objSO Dim objPerson Set objSO = CreateObject("SuperOfficeDB.Database") If not (objSO is nothing) Then objSO.login "<USERID>", "<password>" set objPerson = objSO.Find.PersonsByPhone("2251") set Person = objPerson.getfirst while not objPerson.eof item = Person.firstname & " " & Person.lastname msgbox item set person = objPerson.Getnext wend Else MsgBox "Could not log in" End If Set objSO = Nothing