IUDefFieldsCount Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Count
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Returns first a count of user defined fields that is published on the contact panel.
Dim objDB Dim udef Dim udefs Dim item Set objDB = CreateObject("SuperOfficeDB.Database") If Not (objDB is Nothing) Then objDB.Login "<userID>", "<password>" set cont = objDB.GetContact(1) set udefs = cont.udef item = "Number of userdefined fields defined on contact panel: " & udefs.count & vbCrLf msgbox item else MsgBox "Unable to connect to database" end if