LOTUSSCRIPT /COM/OLE のクラス
例:PostSave イベント
1. 次のスクリプトは文書を保存した後に閉じます。
Sub Postsave(Source As Notesuidocument)
Call Source.Close
End Sub
2. 次の例は、新規または変更された文書のコピーを、文書を保存した後に [Reviewers] フィールドにリストされているユーザーに送信します。
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
関連項目
PostSave イベント
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集