【誰得】nyagosからLotus Notes経由でメール送信

最近NotesのCOMコンポーネントがあることを知り、
またnyagosが外部DLLなしでOLEをサポートしたこともあり
仕事をさぼって休み時間を利用して書いてみました。

.nyagos

nyagos.alias.send_mail_via_notes = function(args)
    local server = "YOUR/SERVER"
    local dbfile = "YOUR/DBFILE.nsf"
    local sess = nyagos.create_object("Lotus.NotesSession")
    sess:Initialize()
    local db = sess:GetDatabase(server, dbfile, false)
    local doc = db:CreateDocument()
    doc:ReplaceItemValue("SendTo", args[1])
    doc:ReplaceItemValue("Subject", args[2])
    local body = doc:CreateRichTextItem("Body")
    body:AppendText(args[3])
    body:AddNewLine(2)
    body:AppendText("from nyagos via Lotus Notes")
    doc:Send(false)
end

使い方

$ send_mail_via_notes [e-mail] "foobar" "hogefuga"