IPersonIsExternalPerson Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Is external person
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then MsgBox "Is the current person an External Person: " & objSO.CurrentPerson.IsExternalPerson, vbInformation + vbOkOnly, "SuperCOM" else MsgBox "Unable to connect to database" end if Set objSO = Nothing