「Agent to be run LotusScript」エージェント

Sub Initialize
 Dim s As New NotesSession
 Dim agent As NotesAgent
 Set agent = s.CurrentAgent
 Dim db As NotesDatabase
 Set db = s.CurrentDatabase
 Dim memo As New NotesDocument(db)
 memo.Form = "Memo"
 memo.SendTo = s.UserName
 memo.Subject = "Message from LotusScript agent"
 memo.Body = "The agent is running as " & s.UserName
 Call memo.Send(False)
End Sub

「Agent to be run parameter LotusScript」エージェント。このエージェントは ParameterDocID を通して渡された note ID にアクセスし、参照文書にアクセスし、その文書を削除します。

Sub Initialize
 Dim s As New NotesSession
 Dim agent As NotesAgent
 Set agent = s.CurrentAgent
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Set db = s.CurrentDatabase
 REM Get document used for passing data
 Set doc = db.GetDocumentByID(agent.ParameterDocID)
 REM Send mail containing passed data
 Dim memo As New NotesDocument(db)
 memo.Form = "Memo"
 memo.SendTo = s.UserName
 memo.Subject = "Message from LotusScript agent"
 memo.Body = "The agent was started by " _
 & doc.TriggerUserName(0)
 Call memo.Send(False)
 REM Delete document used for passing data
 Call doc.Remove(True)
End Sub