IAppointmentChanged Property |
Namespace: SuperOffice.COM.SuperOfficeDB
False the appointment has been modified since it was loaded.
True the appointment has never been modified.
Is appoinment changed
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO dim result Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then result = objSO.CurrentAppointment.Changed if result = false then MsgBox "Current appointment has been modified since it was loaded. ", vbInformation + vbOKOnly, "SuperCOM" else msgbox "The current appointment has NOT been modified since it was loaded.", vbInformation + vbOKOnly, "SuperCOM" end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing