Verarbeiten von Jobs: senden einer Mail

SWAP! kann zum senden einer Mail per Exchange verwendet werden.

Dazu, muss die Mail in der SWAP! Jobs Datenbank (conats\migj.nsf) erzeugt werden und mindestens mit folgenden Items aufgebaut werden

das Item “From” muss dabei den Notesnamen des Absenders bekommen
das Item “SendTo” die Zieladresse
es können grundsätzlich alle “Standard-Items” einer Notes-Mail genutzt werden

Dim oSession As New NotesSession
Dim odb As NotesDatabase
Dim odocMemo As NotesDocument
Dim ortItem As NotesRichtextItem

Set odb = oSession.CurrentDatabase
Set odocMemo = odb.CreateDocument()

odocMemo.Form 		= "Memo"
odocMemo.From 		= ""
odocMemo.SendTo 	= ""  
odocMemo.Subject	= "Testmal per MIGJ" + "-" + CStr( Now )

Set ortItem = odocMemo.CreateRichtextitem( "BODY" )
Call ortItem.AppendText( "der Body" )

odocMemo.~_Job_Type	= "MEMO"

Call odocMemo.save( True, True, True )