Mail senden

[Gerhard]

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 !

[koehlerbv]

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

[Axel]

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.

[Gerhard]

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  !

[koehlerbv]

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

[Gerhard]

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.