Lotusscript Attachments Frontend

[cookiethecake]

Hallo Leute,
kurz mein vorhaben:
1. ein Benutzer kann verschiedene Texte und 0 bis 15 Anhänge in ein Dokument erfassen.
2. auf Knopfdruck erstellt er aus diesem Dokument eine E-Mail wo automatisch verschiedene Texte und vor allem die Anhänge in die Mail gezogen werden.
3. die mail wird verschickt.

mein Problem: die Anhänge... Wenn ich 5 verschiedene Anhänge hinzufüge und auf den Button klicke, ziehen sich in die Mail 5 Anhänge. Aber jedoch immer das selbe. Also 5 mal der selbe Anhang.

Im Debugger wird bei doc.items auch 5 mal "$FILE" angezeigt. In diesen stehen in jedem dann auch der selbe Name, obwohl ich verschiedene Anhänge hinzugefügt habe.....

Passieren soll alles im Frontend - kommen daher die Probleme?


mein Code:
[...]

   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Dim doc As NotesDocument
   Set doc = uidoc.Document
   
[...]
'Anhang erstellen
   Forall i In doc.Items
       If i.Name = "$FILE" Then      
         Call rtItem.AddNewline(1)
         Set emb = doc.GetAttachment(i.values(0))
         Call emb.extractfile("C:\" & emb.name)
         Call rtitem.embedobject(EMBED_Attachment, "", "C:\" & emb.name, emb.name)
         Kill "C:\" & emb.name
         'Call emb.remove
         Call doc.save(1,1)
         Call rtitem.Update
      End If
   End Forall     
[...]

[Peter Klett]

Ich würde das Extrahieren über NotesRichtextItems.EmbeddedObjects versuchen