EmailSender2

%REM
    Agent EmailSender
    Created Apr 24, 2018 by alex/Trinity
    Description: Comments for Agent
%END REM



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)
    Print "-- EmailSender2 -- Recivied message: "
    Print
    Print "-- EmailSender2 -- Subject: " + doc.Getitemvalue("subject")(0)
    Print "-- EmailSender2 -- Body: " + doc.Getitemvalue("body")(0)
    Print "-- EmailSender2 -- Sender: " + doc.Getitemvalue("sender")(0)
    Print "-- EmailSender2 -- Recipient: " + doc.Getitemvalue("recipient")(0)
    Print
End Sub