Absendermailadresse mit einem anderen Namen senden

[jmanuel]

Hallo,

ich habe eine Datenbank, von der aus Mails versickt werden können. Die gesendeten Mails sollen aber mit dem Namen einer Gruppe als Absender eingetragen sein. Es gibt auch zu dieser Gruppe einen NotesUser wie z.B "vertrieb-gruppe@x.y.de.

Nun habe ich es geschafft, die Mail mit dem Gruppennamen zu versenden. Auch der Replay der angekommenden Mails hat dann den richtigen Namen der Gruppe als Antwortadresse. Aber ich möchte, dass auch der Eintrag im Kopf der Mail "Bitte antworten <original username>" nicht auftaucht.
Auch in Outlook steht dann "<username> im Auftrag von <gruppe-vertrieb>. Ich möchte aber nicht das diese Information in der Mail enthalten ist. Sowohl in Notes, als auch woanders.

Kennt jemand eine Lösung ?

Hier habe ich mein Script:

        Dim maildoc As NotesDocument
   Set maildoc = New NotesDocument( db )
   sender = "vertrieb-gruppe@yxy.de"
   
   
   Set body = mailDoc.CreateMIMEEntity( "Body" )
   Set mimeHeader = body.CreateHeader( "SMTPOriginator" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "Sender" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "INetFrom" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "ReplyTo" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "Principal" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "From" )
   Call mimeHeader.SetHeaderVal( sender )
   maildoc.Subject= "XXX"
   maildoc.sendTo = "XXX"
   Call maildoc.Send(False)

[Glombi]

Eine Möglichkeit wäre, direkt in der mail.box (bzw. mail1.box) des Servers die Mail zu erstellen. Dann kannst Du From, ReplyTo, Principal setzen wie Du magst.

Andreas

[jmanuel]

Hallo,

leider kenn ich mit mit der mail.box nicht aus. Ich nehme an die mail.box ist die Kontainer-DB des Servers für ausgehende Mails. Kann man denn da ohne Probleme Mails bzw. Dokumente erstellen, ohne da irgendwelche Risiken einzugehen, des Server oder das Mailing zu verletzen ?
Darf jeder denn Dokumente in die Mail.Box schreiben.

Angenommen es gibt in einer Datenbank ein Button auf geklickt wird, bei dem die Benutzer die Mails in Namen einer Gruppe senden wollen. Kann ich einfach per Script ein Dokument in die Mail.Box setzen. Und kann das jeder ?
Was ist denn mit Sicherheitsrechte. Wenn das jeder machen kann, dann habe ich ja eine gute Spamwaffe gefunden? oder?

jmauel

[Driri]

Default ist Einlieferer. D.h. jeder am Server authentifizierte Benutzer kann Mails in die mail.box schreiben. Nichts anderes macht der Notes-Client, von daher muß jeder User sogar diesen Zugriff auf die Box haben.

[jmanuel]

also gut,

das heisst also, ich erstelle ein Script, dass in die mail.box ein Dokument mit dem angepassten Absender ablegt. Anschließend wird das Dokument vom Server verschickt, richtig ?

Ist dieses Vorgehen ein normales Vorgehen, oder sollte ich es aus bestimmten Gründen, z.B. des Risikos, dass der Server und das Zustellen der Mails kaputt gehen könnte, unterlassen ??

manuel

[Driri]

Mir wären keine Nebenwirkungen bekannt. Ich nutze so ein Verfahren in verschiedenen Anwendungen und habe damit bisher noch keine Probleme gehabt.

Edit :

Achja, wenn es sich um eine normale Mail-In-Datenbank handelt, kannst Du dir alternativ auch mal dies hier anschauen :

http://www.automatedlogic.com/domblog.nsf/dx/DominoTeamMailbox

Da ist das Problem mit der Absenderadresse mit gelöst.

[Glombi]

Du kannst hier mal nach Spoofing suchen, dann findest Du u.a.

http://atnotes.de/index.php?topic=16359.0

[jmanuel]

Ich habe das Script oben ein wenig geändert, so
dass ich direkt in der mail.box des Servers ein Dokument mit den Einträgen erstelle und abspeichere.
Wieso wird die Mail nicht verschickt, was mache ich falsch ?

   Dim maildoc As NotesDocument
   Set maildoc = New NotesDocument( "servername", "mail.box" )
   sender = "vertrieb-gruppe@yxy.de"
   
   Set body = mailDoc.CreateMIMEEntity( "Body" )
   Set mimeHeader = body.CreateHeader( "SMTPOriginator" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "Sender" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "INetFrom" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "ReplyTo" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "Principal" )
   Call mimeHeader.SetHeaderVal( sender )
   Set mimeHeader = body.CreateHeader( "From" )
   Call mimeHeader.SetHeaderVal( sender )
   maildoc.Subject= "XXX"
   maildoc.sendTo = "XXX"
   '///Call maildoc.Send(False)
   Call maildoc.Save(1,1)


jmanuel

[DerAndre]

maildoc.Form = "Memo"

Send wieder rein

Save raus, Du willst das Teil ja nicht in der Mailbox speichern...

[jmanuel]

Hallo,

ok. die Mail wird jetzt zwar verschickt,
aber es erscheint immer noch die Info in der Mail "Gesendet von XXX".
In Outlook erscheint diese Meldung auch. -> Das ist aber gerade mein Ziel.

Ich verwende den obigen Code.


jmanuel

[Glombi]

Save rein, Send raus. Du willst ja in der mail.box speichern und nicht senden. Gesendet wird es dann automatisch vom Router, der die Dokumente in der mail.box beackert.

Ausserdem musst Du noch die Items
maildoc.Principal = "..."
maildoc.From = "..."

setzen.

Andreas

[DerAndre]

Ist das ein Wo macht das Script was Problem?

Laut Hilfe macht send lokal den aktuellen Benutzer, auf dem Server den Eintrag aus dem From Feld rein.  Der Start der Aktion ist hier Lokal, und damit wird der aktuelle Benutzer genommen, egal wo ich das Dokument erstellt habe. Durch das Save wird auf die Serverebene gewechselt und damit zieht das From Feld.

Versteht ich das jetzt so Richtig?

[koehlerbv]

Durch das Save wird nicht "auf die Server-Ebene gewechselt" - es bwirkt einfach schlicht gar nichts in Bezug auf das Item "From". Und das ist der ganze "Trick": Der Router bekommt ein versandfertiges Dokument zum Frass vorgeworfen, und dieses verschickt er nun brav - genau so, wie wir es wollen.

Bernhard