Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: SilentSam am 09.10.06 - 22:02:47

Titel: Erstellen EMail mit Script
Beitrag von: SilentSam am 09.10.06 - 22:02:47

Hallo,
möchte aus einem Dokument, das 4 Mailadressfelder enthält, je (vorhandener) Mailadresse eine EMail erstellen und in der OutBox speichern. Das ganze soll per Agent in einem Script ablaufen.
Mit diesem Verfahren möchte ich das Senden per BCC umgehen und gewünschte Empfäger persönlich ansprechen können.

Komme aber als Script-Newbie nicht weiter...
Source (für 1 Mail) lautet bisher wie folgt (Definitionen vorausgesetzt):

Do Until doc_contact Is Nothing
   If Not doc_contact.GetItemValue("Mg_AP_Email")(0) = "" Then
      Set NotesDoc = DB.CREATEDOCUMENT
      With NotesDoc
         .Form = "Memo"
         .subject = "IG - Test - AP1"
         .sendto = doc_contact.GetItemValue("Mg_AP_Email")(0)         
         .Body = "Test Test Test"
         .DeliveryReport = "B"
         .Importance = "2"
         .SAVEMESSAGEONSEND = True
         Call NotesDoc.Save(True,False)
      End With
   End If
Loop

Obwohl im Debugger das Script reibungslos durchläuft, wird kein Mail-Dokument erstellt.

Kann mir jemand weiterhelfen oder einen Tip geben?

Gruß
Werner

Titel: Re: Erstellen EMail mit Script
Beitrag von: koehlerbv am 09.10.06 - 23:28:09

Die Methode zum Senden fehlt doch völlig ... auf SaveMessageOnSend bist Du sicherlich hereingefallen.
Es fehlt (mindestens)

Code

Call NotesDoc.Send (False)

HTH,
Bernhard

PS: Du speicherst das Dokument so auch nicht in einer imaginären "Outbox". Bestenfalls kümmert sich Dein Client oder der Server (je nachdem, wo der Agent läuft) darum, dass das Mail in der MAIL.BOX landet. Eine explizite Speicherung nimmst Du in der Datenbak vor, die Du mit dem Objekt "DB" instantiiert hast.