MailSend Absenderadresse Ändern

[Christopher]

Hallo Entwickler,

ich habe eine Schaltfläche wo der Nutzer(Dau) ein Dokument Speichert und anschließend ein Mail erhält. Es gefällt mir aber nicht das in der Mail der Nutzer der das Dokument gespeichert  als Absender steht.

Gib es bei Mailsend die Absenderadress zu beeinflussen?

Mein Formel sieht so aus:
@MailSend(DBNameJa;"";"";"Auftrag von HelpDesk IT-Untterstützung";
"Ihr Auftrag ist beim HelpDesk IT-Unterstützung eingegangen."+" Bei Anfragen bitte Ihre  Auftragsnummer angeben: " +DBAuftragsNr;"")


Gruß Christopher

[eknori]

Hallo Christopher,

hab mal wieder nur ne Script Lösung parat:

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

[Christopher]

Guten Morgen Ulrich danke für Deine Antwort zu so früher Stunde werde es mal gleich ausprobieren.

Gruß

Christopher

[Hasi]

Ich habe das ganze auch ausprobiert, und es funtioniert leider immer noch nicht !

Mein Code :

Dim docMemo As New NOTESDOCUMENT(db)
     Dim bodyField As New NOTESRICHTEXTITEM(docMemo, "Body")
     
     Dim userAddress As String
     Dim firstName As String
     
     'myServer Variable definieren und inizialisieren
     Dim session As New NotesSession
     Dim myDatabase As NotesDataBase
     Dim myServer As String
     Dim pos As Integer
     
     Set myDatabase=Session.CurrentDataBase
     
     myServer=myDatabase.Server
     
     'hier wird der Server Name mit "Instr" und "Mid$" herraus operiert!!!
     If myServer <> "" Then
           pos = Instr(myServer,"CN=")                         'position of the string "CN="
           If pos > 0 Then
                 myServer = Mid$(myServer,pos+3,7)         'seven characters after the string "CN="
           End If
     End If
     
     userAddress = docPerson.GetItemValue("MailAddress")(0)
     firstName = docPerson.GetItemValue("FirstName")(0)
     
     Call docMemo.ReplaceItemValue("Form","Memo")
     Call docMemo.ReplaceItemValue("SendTo", userAddress)
     Call docMemo.ReplaceItemValue("Subject","*Your PERIS Self-Service account information")
     Call docMemo.ReplaceItemValue("From","Self-Service.PERIS@swisscom.com")
     Call docMemo.ReplaceItemValue("SendFrom","Self-Service.PERIS@swisscom.com")
     Call docMemo.ReplaceItemValue("Principal","Self-Service.PERIS@swisscom.com")
     Call docMemo.ReplaceItemValue("ReplyTo","Self-Service.PERIS@swisscom.com")
     
     
     'Mitteilung in Deutsch
     Call bodyField.APPENDTEXT("Deutsch")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Liebe Benutzerin, lieber Benutzer")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Ihr Benutzername lautet:    " & doc.GetItemValue("FullName")(0))
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("Ihr neues Passwort lautet:  " & doc.GetItemValue("NewPassword")(0))
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Falls Sie das Passwort ändern wollen, benutzen Sie den folgenden Link")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("und klicken dann auf Employee / Verwalten / 'Passwort ändern'")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("Ihr PERIS Team")
     Call bodyField.ADDNEWLINE(2)
     'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
     Call bodyField.APPENDTEXT("https://ESSPERIS")      
     Call bodyField.ADDNEWLINE(3)
     
     'Mitteilung in Französisch
     Call bodyField.APPENDTEXT("Français")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Chère utilisatrice, cher utilisateur ")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Votre nom d'utilisateur est le suivant:    " & doc.GetItemValue("FullName")(0))
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("Votre nouveau mot de passe est le suivant: " & doc.GetItemValue("NewPassword")(0))
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Si vous désirez changer de mot de passe, veuillez utiliser le lien suivant")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("et cliquer ensuite sur Employee / Administrer / 'Changer le mot de passe'.")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("Votre équipe PERIS")
     Call bodyField.ADDNEWLINE(2)
     'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
     Call bodyField.APPENDTEXT("https://ESSPERIS")
     Call bodyField.ADDNEWLINE(3)
     
     'Mitteilung in Italiano
     Call bodyField.APPENDTEXT("Italiano")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Gentile utente")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Il Suo nome di utente è: " & doc.GetItemValue("FullName")(0))
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("La Sua nuova password è: " & doc.GetItemValue("NewPassword")(0))
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Se vuole modificare la password attivi il seguente link")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("e poi clicchi su Employee / Amministrare / 'Modicare password'.")
     Call bodyField.ADDNEWLINE(1)      
     Call bodyField.APPENDTEXT("Il Suo PERIS team")
     Call bodyField.ADDNEWLINE(2)      
     'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
     Call bodyField.APPENDTEXT("https://ESSPERIS")
     Call bodyField.ADDNEWLINE(3)
     
     'Mitteilung in Englisch
     Call bodyField.APPENDTEXT("English")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Dear User")
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("Your username is: " & doc.GetItemValue("FullName")(0))
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("Your new password is: " & doc.GetItemValue("NewPassword")(0))
     Call bodyField.ADDNEWLINE(2)
     Call bodyField.APPENDTEXT("If you wish to change your password, please use the following link")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("and then click on Employee / Manage / 'Change Password'.")
     Call bodyField.ADDNEWLINE(1)
     Call bodyField.APPENDTEXT("Your PERIS Team")
     Call bodyField.ADDNEWLINE(2)
     'Call bodyField.APPENDTEXT("http://"& myServer &"/swisscom/ws_shd.nsf")
     Call bodyField.APPENDTEXT("https://ESSPERIS")
     Call bodyField.ADDNEWLINE(3)
     Call docMemo.Send(False)


Hilfe !!!!!!!!!!!!!!

[gpeters]

Hallo eknori,

wir haben ein ähnliches System im Einsatz (R4.6). Hast Du damit praktische Erfahrungen im R5 Bereich? Offiziell ist das befummeln der mail.box doch nicht freigegeben. Und bei "multiple mail.boxes" die dann ja anscheinend mail1,box usw, heißen - geht es da auch?

Die Antworten würden mir bei der R5 Migration ein wenig helfen. Wenn nicht, wir testen ehh - und dann habe ich mal was zu berichten.

Gerald

[eknori]

HMM, das Script ist noch aus meiner 4.6 Zeit. Habe ich unter R5 nicht getestte. Mehrere Mailboxen ? Mußt die Mail ja nur in einer MB erzeugen. Sollte auch funktionieren.
Probiers mal aus

[gpeters]

Jau, aber diese Woche nicht mehr....

mit den mehreren Mail.Boxen, das ist im Serverdokument hinterlegt, und wenn man mehr als eine hat gibt es die mail.box anscheinend nicht mehr sondern sie heißen dann mail1.box und mail2.box usw.

Wenn man im Datenbank-Öffnen Dialog aber einfach mail.box eingibt bekommt man (zufällig?) eine der mail.boxen. Aber als Datei gibt es die mail.box nicht mehr. Ob nun aber alle Script und Formelsprachfunktionen damit schon umkönnen - wer weiß es?

Die Antivirenprogramme hatten an Anfang wohl damit Ihre Probleme.....

Gerald