IScriptingEventsOnDocumentDeleted Method |
Namespace: SuperOffice.COM.ScriptEvents
Description
This text may be copied to the notepad, and saved as a *.vbs file.
Sub OnDocumentDeleted(docId) Set myProjects = Database.Find.ProjectsByName("Deleted - warnings") set myProject = myProjects.GetFirst If myProjects.EOF Then 'No contact exist, create it. Set myProject = Database.CreateProject myProject.SetDefaults myProject.Name = "Deleted - warnings" myProject.Save End If Set soApnt = Database.CreateAppointment soApnt.SetDefaults soApnt.Contact = currentcontact soApnt.Project = myProject soApnt.Description = Now() & "Document_id= " & docId & " " & currentdocument.descripton & vbcrlf & "***** Was deleted *****" soApnt.Save If docId=10 then SOMessageBox "Document with document_id=10 is deleted!" end if End Sub