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
Véase también
PostSave event
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario