Click or drag to resize

IScriptingEventsOnShutdown Method

Logout is about to start. Called when SuperOffice is closing but before log-off. Specifies what should happen immediately prior to SuperOffice shuts down.

Namespace:  SuperOffice.COM.ScriptEvents
Assembly:  Scripting.Interop (in Scripting.Interop.dll) Version: 8.0.0.0
Syntax
void OnShutdown()
Examples

Description

This text may be copied to the notepad, and saved as a *.vbs file.

VB
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

See Also