Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: cookiethecake am 09.08.16 - 17:26:01
-
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
[...]
-
Ich würde das Extrahieren über NotesRichtextItems.EmbeddedObjects versuchen