IPersonChangeIdentity Method |
Namespace: SuperOffice.COM.SuperOfficeDB
ChangeIdentity
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This will change the first name of the person. If you dont want to save the changes, NO calls the CancelChanges method. If you want to save the changes, YES calls the ChangeIdentity() that saves the person model to the database.
Dim objSO Dim result Dim id Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then id = objSO.CurrentPerson.Identity objSO.CurrentPerson.Firstname = "This text been changed" result = MsgBox ("The text of the current person has been changed, do you want to save these changes?", vbInformation + vbYesNo, "SuperCOM") if result = vbYes then objSO.CurrentPerson.ChangeIdentity(id) else objSO.CurrentPerson.CancelChanges() msgbox "The person changes were not saved", vbInformation + vbOkOnly, "SuperCOM" end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing