IScriptingEventsOnShutdown Method |
Namespace: SuperOffice.COM.ScriptEvents
Description
This text may be copied to the notepad, and saved as a *.vbs file.
Sub OnShutdown Set myContacts = Database.Find.ContactsByName(Database.GetAssociate(Database.UserAssociateId).FullName & " workday") set myContact = myContacts.GetFirst If myContacts.EOF Then 'No contact exist, create it. Set myContact = Database.CreateContact myContact.SetDefaults myContact.Name = Database.GetAssociate(Database.UserAssociateId).FullName & " workday" myContact.Save End If Set soApnt = Database.CreateAppointment soApnt.SetDefaults soApnt.Contact = myContact soApnt.Description = Now() & ": Shutdown" soApnt.Save SOMessagebox "Have a nice day" End Sub