IUrlId Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Id
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This returns all URLs on contact with contact_id = 2, and displays the Rank, Id and UrlId.
Dim objSO Set objSO = CreateObject("SuperOfficeDB.Database") If not (objSO is nothing) Then objSO.login "<UserID>", "<password>" set cont = objSO.GetContact(2) set urls = cont.urls for each url in urls item = item & "Urls rank: " & url.rank & " " item = item & "Urls id: " & url.id & " " item = item & "Urls urlid: " & url.urlid & vbCrLf next MsgBox item, vbInformation + vbOKOnly, "SuperCOM" else MsgBox "Unable to connect to database" end if Set objSO = Nothing