Click or drag to resize

IScriptingEventsOnSelectionRemoveOneMember Method

Called when event occurs.

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

Description

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

VB
Sub OnSelectionRemoveOneMember
    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() & ": " & currentselection.name & " - removed " & currentcontact.name 
    soApnt.Save    

End Sub

See Also