allg. Standardabsender für Mails

[lod-02]

Hallo,

wie kann man es hinbekommen, dass beim Verschicken von Mails aus einer beliebigen Datenbank nicht der Benutzername sondern ein Standardabsender eingetragen wird.

Beispiel: Max Muster arbeitet im Support, und möchte eine Anfrage beantworten. Er klickt eine Schaltfläche die mit "@MailSend" arbeitet. Als Absender soll beim Empfänger aber nicht Max.Muster@domain.de stehen sondern z.B.: support@domain.de. Und dies auch bei anderen Nutzern der Datenbank.

Ich hoffe, dass jemand eine Idee hat.

Danke.

T.Riedel

[eknori]

Da kommst du nicht umhin einwenig zu programmieren.
Der Absender wird ja in das Feld FROM eingetragen; hier musst du dann fest verdrahtet deine gewünschte Absenderadresse eingeben.

zweite  Möglichkeit:

Du schreibst dir deinen eigenen Send Button und benutzt dabei folgendes Script

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

eknori

[lod-02]

Hallo,

vielen Dank für die Hilfe.
Der Ansatz mit dem Script hat mich auf eine Idee gebracht.

TR(lod-02)