Hi,
versuche gerade mir mit der Funktion EmbedObject eine Datei an ein Dokument anhängen. Habe mir dazu ein kleines Script erstellt. Das Script scheint auch irgendwie zu funktionieren, jedoch sehe ich den Anhang im Dokument nicht.
Kann mir da vielleicht jemand weiterhelfen.
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim note As NotesDocument
Dim session As NotesSession
Dim PDF As NotesEmbeddedObject
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set note = uidoc.Document
' RichTextFeld erzeugen
Set rtitem = New NotesRichTextItem( note, "Body" )
Set PDF = rtitem.EmbedObject(EMBED_ATTACHMENT,"","c:\Lotus\lslanguage.pdf")
Gruss
Martin
