Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: pallas am 08.08.05 - 09:27:57
-
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.
-
wie sendest du?
du kannst die mail direkt in der Mail.box erstellen, dann ist es möglich alles zu ändern!
-
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.
-
Ich erstelle ein Dokument und sende dann per NotesDocument.send.
Wie kann ich direkt in der Mail.Box ein Mail erstellen und ändern?
-
@robertpp
So ähnlich hab ich's probiert. Jedoch wird das "Irgendjemand" immer durch den NotesNamen des Users ersetzt.
-
Also ich hab das script gerade in einen Agent gepackt und es mittels Button im web ausgeführt und es funktioniert wunderbar.
Robert
-
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.
-
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.
-
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)
-
Vielen Dank,
das war die Lösung, die mir gefehlt hat.