IScriptingEventsOnCurrentAppointmentBeforeSave Method |
Namespace: SuperOffice.COM.ScriptEvents
Description
This text may be copied to the notepad, and saved as a *.vbs file.
Sub OnCurrentAppointmentBeforeSave 'Requires a user defined text field 'named "Extra info" defined on appointment If CurrentContact.Category.Text = "Business Partner" Then If CurrentAppointment.Task.Id = Database.GetListItemByName(enTableTask, "Meeting (Internal)").Id Then CurrentAppointment.UDef.ByName("Extra info").Value = "Special meeting" End If End If End Sub