Domino 9 und frühere Versionen > ND6: Entwicklung

Absenderangabe bei Mailversand mit LS

<< < (2/2)

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:

--- Zitat von: pallas am 08.08.05 - 09:49:00 ---Ich erstelle ein Dokument und sende dann per NotesDocument.send.

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

--- Ende Zitat ---
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.

Navigation

[0] Themen-Index

[*] Vorherige Sete