HCL Domino - Examples: PostSave event - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: PostSave event
1. This script closes a document after it has been saved.

Sub Postsave(Source As Notesuidocument) Call Source.Close End Sub

2. This example sends a copy of a new or edited document to anyone listed in the "Reviewers" field after the document has been saved.

Sub Postsave(Source As Notesuidocument) Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim doc2 As NotesDocument Dim item As NotesItem Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set db = session.CurrentDatabase Set doc2 = New NotesDocument(db) Set item = doc.GetFirstItem("Subject") Call item.CopyItemToDocument(doc2, "Subject") Set item = doc.GetFirstItem("Reviewers") Call item.CopyItemToDocument(doc2, "SendTo") Set item = doc.GetFirstItem("Body") Call item.CopyItemToDocument(doc2, "Body") Call doc2.Send(False, doc.Reviewers) End Sub

See Also

PostSave event

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents