Absenderangabe bei Mailversand mit LS

[pallas]

Ich hab mal wieder ein (ich hoffe kleineres) Problem.
Ich hab ein Webformular, in dem man u.a. eine eMail-Adresse eintragen kann. Das Skript sendet nun an die eingetragene Adresse ein Bestätigungsmail. So weit funktioniert das Ganze auch wunderbar. Leider steht als Absendername immer der Notes-Name des Users mit dem das Skript gekennzeichnet ist jedoch nicht dessen eMail-Adresse.

Wie kann ich das Skript dazu bringen eine beliebige Absenderadresse anzunehmen und nicht den Notes-Namen zu verwenden?

Jetzt schon mal Danke für Eure Hilfe.

[Mandalor]

wie sendest du?

du kannst die mail direkt in der Mail.box erstellen, dann ist es möglich alles zu ändern!

[robertpp]

Grundsätzlich ist es so möglich aber es kommt halt wirklich an wie du das mail versendest.

zb ein Button im Notes:

   Dim s as New NotesSession
   Dim db as NotesDatabase
   Dim mail as NotesDocument
   set db = s.CurrentDatase
   Set mail = db.CreateDocument
   with mail
         .Form = "Memo"
         .From = "Irgendjemand"
    .sendto = "xy@mail.com"
         .SendFrom = "Irgendjemand"
         .Principal = "Irgendjemand"
         .Subject = "Testmail"
   call .Send(False)
   end with


Bei dir dann Als agent bei WebquerySave und muss natürlich angepasst werden.

[pallas]

Ich erstelle ein Dokument und sende dann per NotesDocument.send.

Wie kann ich direkt in der Mail.Box ein Mail erstellen und ändern?

[pallas]

@robertpp

So ähnlich hab ich's probiert. Jedoch wird das "Irgendjemand" immer durch den NotesNamen des Users ersetzt.

[robertpp]

Also ich hab das script gerade in einen Agent gepackt und es mittels Button im web ausgeführt und es funktioniert wunderbar.

Robert

[Mandalor]

dann ist ja gut, aber zu der anderen Frage: du öffnest die Mail.box und erstellst ein neues Dokument (maildb.createdocument) dann setzt du alle Felder und nach dem speichern wird die Mail versendet.

-->da gibts hier auch schon Treads zu.

[Thomas Schulte]

Ich erstelle ein Dokument und sende dann per NotesDocument.send.

Wie kann ich direkt in der Mail.Box ein Mail erstellen und ändern?

Da gibt es nicht nur Threads zu, da gibt es eine Ganze Anwendung in der ein Funktion drin ist die exakt das macht.
!!Help!! und SpoofMessage in der lib.appl.functions zeigen dir wie es funktionieren könnte.

[Christopher]

So könnte es aussehen:

Dim mailbox As New NotesDatabase("","mail.box")
Dim mail As notesDocument

Set mail = mailbox.CreateDocument

Call mail.ReplaceItemValue("Form","Memo")

Call mail.ReplaceItemValue("Subject","ICH BIN EIN BETREFF")

Call mail.ReplaceItemValue("From", |test@test.com|)

Call mail.ReplaceItemValue("ReplyTo", |test@test.com|)

Call mail.ReplaceItemValue("Recipients", |test@test.com|)

Call mail.ReplaceItemValue("SendTo", |test@test.com|)

Set rtitem = New NotesRichTextItem ( mail, "Body" )

Call rtitem .AppendText("Ich bin ein Fake Absender und lege meine Post immer in der mail.box ab :-)")

Call rtitem.AddNewLine( 1 )

Call mail.ComputeWithForm(True,False)

Call mail.Save(False,False)

[pallas]

Vielen Dank,

das war die Lösung, die mir gefehlt hat.