Zum Ende der Metadaten springen
Zum Anfang der Metadaten

Sie zeigen eine alte Version dieser Seite an. Zeigen Sie die aktuelle Version an.

Unterschiede anzeigen Seitenhistorie anzeigen

« Vorherige Version anzeigen Version 2 Aktuelle »

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

Dazu, muss die Mail in der SWAP! Jobs Datenbank (MIGJ) 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 )
  • Keine Stichwörter