IPersonUDef Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Udef
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This checks if there are user defined fields set up on the person panel, not if there are any values inside the current persons user defined fields.
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then if objSO.CurrentPerson.Udef.Count > 0 then MsgBox "The person panel has user defined fields", vbInformation + vbOKOnly, "SuperCOM" else MsgBox "No user defined fields defined on the person panel." end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing