IPersonHasPicture Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Has picture
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then MsgBox "Current person HasPicture: " & objSO.CurrentPerson.HasPicture, vbInformation + vbOkOnly, "SuperCOM" else MsgBox "Unable to connect to database" end if Set objSO = Nothing