IPhoneRank Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Rank
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This will return the current contacts first phone number rank (this should in most all cases give you the number 0).
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then MsgBox "Current contact first phone numbers rank: " & objSO.Currentcontact.Phones.Item(1).rank, vbInformation + vbOKOnly, "SuperCOM" else MsgBox "Unable to connect to database" end if Set objSO = Nothing