docOut.DeliveryReport= "C" geht an unerwünschte Adresse

[EUWE_MAX]

Um es übersichtlich zu halten und in der Hoffnung auf den entscheidenen Tipp habe ich diesen Beitrag
http://www.atnotes.de/index.php?board=3;action=display;threadid=16661

mit seinen 17 Beiträgen geschlossen
und mache ihn hiermit nochmal neu auf !

Mein allerstes Script:

Das Script läuft in der mail.nsf vom User edi@xxx.de.
Dort wird docOut.DeliveryReport= "C"
gesetzt und der Absender auf edi@xxx.de gesetzt.
Dann will dieser Absender natürlich auch die Bestätigungmails erhalten.
Aber gerade jetzt erhält sie jemand (nämlich der ursprüngliche Erzeuger der Mail), der DeliveryReport gar nicht gesetzt hat und sie auch nicht will.

Das Script macht folgendes:

Mail kommt rein
Es wird eine neue Mail kreiert (Set docOut = db.CreateDocument)
dann werden alle Items von der Ursprungsmail in die neue kopiert (Call DocIn.copyallitems(docOut) )

Dann wird der Absender manipuliert und es werden die Zustelloptionen gesetzt.
Dann wird die kreierte Mail versand und gespeichert (SaveMessageOnSend)

Dann wird die Ursprungsmail auf bearbeitet gesetzt (s.UpdateProcessedDoc)

Dann wird die Ursprungsmail verschoben ....
und nach der nächsten Mail geschaut

das wars im Wesentlichen

Die Urspungsmail kommt immer vom Internet an Notes.
Im Test halt von GMX.
und soll aus Notes ans Internet weitergehen.

Die aus Notes weitergeleitete Mail soll den Notesuser als Absender ausweisen und nicht den urprünglichen GMX-User (klappt).

Die innerhalb Notes gesetzten Zustelloptionen (Deliveryreport) soll Mails an diesen Notesuser generieren und nicht an GMX.

Aber dennoch gehen die Zustellberichte an GMX.

Vermutlich geht ja die neue Mail mit der alten Message-ID raus (wegen copy all items).
Hat sich Notes mgl. in irgendeinem Cache/Tabelle die Message-ID gemerkt und mit dem alten Absender (GMX) verdrahtet ?

Der Signierer des Agenten ist besagter EDI
und der Eigentümer der mail.nsf ist er auch.

schönen Dank und Gruß Max

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = db.UnprocessedDocuments
Dim docIn As NotesDocument 'docin ist das ankommende Memo
Dim docOut As NotesDocument 'docout ist das weitergeleitete Memo

'Setzen der Weiterleitungsadresse
Dim stRecipient As Variant

Set docIn = dc.GetFirstDocument
While Not docIn Is Nothing

'von wem?
Dim stFrom As String
Dim Position As Long
Dim Temp As Variant
stFrom = "edi@xxx.de"

'Memo erstellen
Set docOut = db.CreateDocument
Call DocIn.copyallitems(docOut)
'hier stehen die Empfänger als Gruppe
docOut.SendTo = "#CROWN"
docOut.AltFrom = "EDI@xxx.de"
docOut.Principal = stFrom
docOut.ReturnReceipt = "1"
docOut.Importance = "1"
docOut.DeliveryReport= "C"
docOut.SaveMessageOnSend = True
Call docOut.Send(False)

'weiter
Call s.UpdateProcessedDoc(docIn)
'hier immer jeweils die Ordner eintragen, die man benötigt- DocIn heisst das Original-Memo
Call docIn.PutInFolder("CROWN fertig")
'Die Ordnernamen sind Case-sensitiv
' Nach dem folgenden Schritt ist es dann weg aus dem Ursprungsordner
Call docIn.RemoveFromFolder( "CROWN" )
Set docIn = dc.getnextdocument(docIn)

Wend

End Sub

[umi]

Vielleicht hilft dir das SMTPOriginator Feld
docOut.SMTPOriginator="edi@xxx.de"

Damit lässt sich normalerweise der Absender ändern für Internet Mails.

mfg

umi

[EUWE_MAX]

Hallo UMI, danke für Deinen Tipp.

m.E. spielt der SMTPOriginator in diesem Zusammenhang keine Rolle.
Ich hatte meine Frage dann auch in www.dominoforum.de
gestellt und dort den entscheidenen Hinweis erhalten.

Dort wurde mir gesagt:
"Replyto ist das Feld an welches der ReturnReceipt geht, wenn es dieses Feld gibt, sonst geht es ans from Feld."

docOut.From fehlte dummerweise in meinem Script

also docOut.From = stFrom
bzw.
docout.replyto = stFrom

schönen Gruß Max