IScriptingEventsOnStartup Method |
Namespace: SuperOffice.COM.ScriptEvents
Descriptoin
This text may be copied to the notepad, and saved as a *.vbs file.
Sub OnStartup 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() & ": Startup" soApnt.Save SOmessagebox "Welcome " & database.GetAssociate(database.UserAssociateId).Fullname End Sub