Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gerhard am 29.04.05 - 11:51:02
-
Hallo zusammen !
Irgendwie bin ich immer noch etwas ungeschickt. Folgendes Skript hab ich geschrieben, schaffe es aber nicht dass die Mail die gesendet wird auch den Body der Original-Mail enthält....
If text$ > 0 Then
Dim mail As NotesDocument
Set mail = db.CreateDocument
' Set mail = New NotesDocument( db )
mail.form = "Memo"
mail.from = session.UserName
mail.Subject = adoc.subject
mail.sendto = session.UserName
mail.file = adoc.file
mail.body = adoc.body
' mail.message = adoc.message
Dim body As NotesRichtextitem
Set body = New NotesRichTextItem( mail , "Body" )
Call body.appendText(message)
Call body.AppendDoclink([IncludeDocLink])
Call mail.send(True)
End If
Der Body ist immer leer beim gesendeten EMail!
Wer hat da einen Tip dafür ?
Danke für die evtl. Hilfe !
-
Nur so auf den ersten Blick: Du erzeugst zwei Body-Felder. Das geht so nicht.
Das Feld "file" bringt nichts, da nicht Standard.
AppendDocLink ist syntaktisch falsch.
Wenn Du Dir in der DesignerHelp das Beispiel zu NotesDocument.Send genau anschaust, hast Du dort eigentlich schon alles, was Du brauchst.
Bernhard
-
Hi,
du kannst den Inhalt eines RTF-Feldes nicht direkt, wie z.B. ein Textfeld, mit mail.body = adoc.body zuweisen. DAzu brauchst du die Methode AppendRTItem aus der NotesRichTextItem-Klasse
So müsste es gehen:
If text$ > 0 Then
Dim mail As NotesDocument
Set mail = db.CreateDocument
' Set mail = New NotesDocument( db )
mail.form = "Memo"
mail.from = session.UserName
mail.Subject = adoc.subject
mail.sendto = session.UserName
mail.file = adoc.file
' mail.body = adoc.body
' mail.message = adoc.message
Dim body As NotesRichtextitem
Dim rtitem As NotesRichtextItem
Set body = New NotesRichTextItem( mail , "Body" )
Set rtitem = adoc.GetFirstItem( "Body" )
Call body.AppendRTItem( rtitem )
Call body.appendText(message)
'Call body.AppendDoclink([IncludeDocLink])
Call mail.send(True)
End If
Axel
Edit: Wie Bernhard schon geschrieben hat, ist AppendDoclink syntaktisch falsch. Ich hab ihn auskommentiert.
-
Hallo Bernhard !
Ich hab das jetzt so eingebaut:
Dim mail As NotesDocument
Set mail = New NotesDocument( db )
mail.form = "Memo"
mail.from = session.UserName
mail.Subject = adoc.subject
mail.sendto = session.UserName
Call mail.Send(False)
... und interessaenterweise wird das Attachment aus dem Original-Mail-Dokument nicht mitgeschickt, das bräuchte ich aber !
Dafür kommt aber der Footer mit den ich nicht will :) !
-
Bei Deinem letzten Code geht mir jetzt aber Body komplett ab ...
Verwende zur Übernahme eines vorhandenen RTFs in Dein Dokument
NotesItem.CopyToDocument.
Eventuell vorhandene Attachments werden dabei mitkopiert.
HTH,
Bernhard
-
Danke, das wars ..... es geht ...
Danke für die wie immer super schnelle und kompetente Hilfe !
Ohne das Forum wär ich manchmal echt ein armes Schwein :) !
Schönes WE !
LG Gerhard.