Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: lod-02 am 14.05.02 - 16:58:23
-
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
-
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
-
Hallo,
vielen Dank für die Hilfe.
Der Ansatz mit dem Script hat mich auf eine Idee gebracht.
TR(lod-02)