Domino 9 und frühere Versionen > Entwicklung

allg. Standardabsender für Mails

(1/1)

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)

Navigation

[0] Themen-Index