E-Mail Weiterleitungs Agent Problem

[Dosta]

Hi zusammen,

habe folgendes Problem das ich diesen Script laufen habe aber keine Attachments mitgesendet bekomme:

Sub Initialize
   
   Const sForward = "user@somewhere.de"
   Dim session As New NotesSession
   Dim note As NotesDocument
   Dim docNew As Notesdocument
   Dim db As NotesDatabase
   Dim item As NotesItem
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set note = session.DocumentContext
   Set item = note.GetFirstItem("Body")
   
   Set docNew = New Notesdocument(db)
   docNew.Form = "Memo"
   Call item.copyitemtodocument(docNew, "")
   docNew.SendTo = sForward
   docNew.From = " " & note.From(0)
   docNew.Principal = " " & note.From(0)
   docNew.Subject = note.Subject(0)
   
   Call docNew.Send(True)
   
End Sub


Was mache ich falsch?

Danke

[DerAndre]

Dir ist klar, das Body eigentlich ein RichTextItem ist, oder?

[koehlerbv]

Ausserdem: Warum änderst Du nicht einfach im bestehenden Dokument das SendTo-Item und versendest es dann?

Bernhard