This script shows how to catch the Startup event, showing a welcoming message box.
Sub OnStartup() SOMessageBox "Welcome to SuperOffice" EndSub
|
When a new sale is created, we create an appointment in the future so we remember to follow up on the sale
sub OnCurrentSaleCreated
Set newAppnt1 = database.CreateAppointment newAppnt1.SetDefaults newAppnt1.Contact = Currentsale.Contact newAppnt1.Person = Currentsale.Person newAppnt1.task = database.GetListItemByName(67, "Phone-Out") newAppnt1.DoBy = DateAdd("d", 2, Now()) newAppnt1.Description = "We sent you a proposal two days ago, did you take a look at it...." newAppnt1.Save endsub
|