Mail in Memo einfügen mit RenderTo RTItem

[Lancelot]

Hi Leute,
mein Problem ist, ich muß aus einer Notes DB per Button das geöffnete Dok in eine Sammel- MailIN DB schieben.
Da soll es dann in dem Eingang nur markiert und ausgedruckt werden. (sinnlos oder nicht, wer zahlt schafft eben auch an).  :-)
Eine Doklink bringt mir hier also nichts.
Mein Problem ist jetzt aber, dass die Doc's jetzt zu groß sind um sie auf eine Seite zu drucken, wegen dem Mailbriefkopf.

Gibt es eine Möglichkeit die Doc's als eine Art Screenshot einzufügen und dabei die Größe der Bilder an zu geben?
Oder vielleicht ganz was anderes?

Hier mein Code den ich bisher verwende:

Dim ws As New NotesUIWorkspace
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim mailDB As New NotesDatabase( "" , "" )
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim memo As NotesDocument
Dim body As NotesRichtextItem
Dim varsend As Variant
   
   Set db = ses.CurrentDatabase
   Call mailDB.OpenMail
   
   Set uidoc = ws.CurrentDocument
   Set doc = New NotesDocument( db )
   doc.Form = "Umsatzberichtigung"
   
   Set memo = New NotesDocument( mailDB )
   memo.Form = "Memo"
   Set body = New NotesRichtextItem( memo , "Body" )
   
   Call uidoc.Save
   
   varsend = uidoc.FieldGetText("filiale")
   If varsend = "100" Then
      varsend = "FDBHOT"
   Else
      Msgbox "Fehler beim senden"
      Exit Sub
   End If
   
   
   Set doc = uidoc.Document
   
   Call doc.RenderToRTItem( body )   
   memo.SendTo = varsend
   Call memo.Send(False)