IPersonRetired Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Boolean
True if the contact person is marked as retired.
False the contact person is NOT marked as retired.
Retired
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Set objSO = Nothing Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then if objSO.currentPerson.retired = true then MsgBox "The current contact person is retired", vbInformation + bOkOnly, "SuperCOM" else msgbox "The current contact person is NOT retired", vbInformation + vbOkOnly, "SuperCOM" end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing