Domino 9 und frühere Versionen > ND6: Entwicklung

mein erstes Script...Walle Walle wehe wehe

<< < (4/4)

EUWE_MAX:
Hallo Bernhard,
ach ich wünschte dem wäre so.....
Aber leider kann ich es so nicht bestätigen.

Ich schicke testhalber eine Mail (ohne Lese- und Auslieferungsbestätigungflag) vom GMX an Lotus, an den besagten EDI-User.
GMX - leuchtet jedem ein -  ist weder Besitzer der Mail-DB noch Signierer des Scripts.

Die Bestätigungmails gehen aber dennoch an GMX, was sie nun mal nicht sollen und was auch nicht richtig ist.

ratloser Max
 

koehlerbv:
In der reichlichen Woche seit Deinem ersten Posting in dieser Sache hat sich offensichtlich noch einiges in Deinem Code und Deinem allgemeinen Vorgehen geändert. Ich sehe jetzt jedenfalls nicht mehr durch, was bei Dir jetzt passieren soll und tatsächlich passiert.
Mal uns einfach nochmal allgemeinverständlich Deinen Plan auf und poste den aktuellen Code dazu. Dann sollte Dir auch geholfen werden können.

Bernhard

EUWE_MAX:
Hallo Bernhard, am Ende das aktuelle Script:

Es 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 einen 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 ?

schönen 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 <sendto> 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

EUWE_MAX:
Habe diesen Beitrag geschlossen

und unter
http://www.atnotes.de/index.php?board=3;action=display;threadid=16987

neu aufgemacht.

Max

Navigation

[0] Themen-Index

[*] Vorherige Sete