Absender bei einer Mail bestimmen

[Gravedigger]

Hallo,

ich möchte, dass bei einer automatisch versendeten E-Mail, eine bestimmte Absenderadresse enthalten ist. Wie muss dafür das Feld heißen? (z. B. Empfängerfeld = SendTo)

Danke.

[Obrac]

Probiers mal mit dem Feld "From". Das müsste das richtige sein. Soweit ich mich erinnern kann, gibt es aber noch Ungereimtheiten mit intern und extern verschickten Mails.

[Gravedigger]

Leider ohne Erfolg.  

[Obrac]

Wird das ganze immer aus derselben Maildatenbank versendet? Wenn ja, dann kannst du den Absender in das Feld der Memo Maske schreiben. Wenn du ein neues Memo öffnest, hast du die Möglichkeit unter Zustelloptionen den Absender einzustellen (Bitte antworten an). Öffne diese Maske im Designer und schreibe in das Feld den Absender, den du haben willst. Dieser wird dann bei jeder versendeten Mail angezeigt.

[Gravedigger]

Das ganze wird aus einem LotusScript versendet.

[Obrac]

Ja, hab ich mir schon gedacht. Ich würde meine Lösung dennnoch vorschlagen.

[eknori]

Function SpoofMessage( Byval sendas As String, Byval sendto As String, subject As
String, message As String )
Dim session As New NotesSession
Dim current As NotesDatabase
Dim mailbox As New NotesDatabase("","")
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem

' get handle to mail.box on the users current mail server
Set current = session.CurrentDatabase
Call mailbox.Open( current.server, "mail.box" )

' Create a new document in the severs mail box
Set maildoc = mailbox.CreateDocument
maildoc.Form = "Memo"
maildoc.From = sendas
maildoc.SendFrom = sendas
maildoc.SendTo = sendto
maildoc.Recipients = sendto
maildoc.Subject = subject
Set rtitem = maildoc.CreateRichTextItem( "Body" )
Call rtitem.AppendText( message )
maildoc.PostedDate = Now()
maildoc.ComposedDate = Now()
maildoc.DeliveredDate = Now()
maildoc.Principal = sendas
maildoc.EncryptOnSend = False

Call maildoc.Save( True, False )

End Function

[harkpabst_meliantrop]

maildoc.Principal = sendas

Nochmal zur Verdeutlichung, falls Gravedigger vom Code erschlagen worden sein sollte :

Das Feld muss "Principal" heißen.