IScriptingEventsOnCurrentSelectionSaved Method |
Namespace: SuperOffice.COM.ScriptEvents
Description
This text may be copied to the notepad, and saved as a *.vbs file.
Sub OnCurrentSelectionSaved If CurrentSelection.SelectionCategory.Text = "Campaign" Then Set myApnt = Database.CreateAppointment myApnt.SetDefaultsToDo myApnt.Contact = Database.GetContact(Database.OwnerContactId) myApnt.Description = "The campaign selection: " & CurrentSelection.Name & " was saved!" myApnt.Save End If End Sub