Hallo zusammen,
ich habe ein Profildokument, welches ich per Script (Set prodoc = db.GetProfileDocument("bk_profile")) hole.
In diesem Profildokument befindet sich ein Richtextitem mit einem Anhang.
Auf diesen Anhang kann ich mit folgendem Code auch wunderbar zugreifen:
Set rtitem = prodoc.GetFirstItem("excel")
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
If ( o.Name = prodoc.GetItemValue("file_1")(0) ) Then
Call o.ExtractFile( szExistFile )
End If
End If
End Forall
End If
Kommt allerdings ein zweiter Anhang in diesen Feld, kann auf die EmbeddedObjects nicht mehr zugegriffen werden. Im Debugger wird das rtitem ohne Inhalt (Anhänge) angezeigt. (Type Mismatch in Zeile: Forall o In rtitem.EmbeddedObjects)
Das gleiche Problem habe ich bei zwei Richtextfeldern in dem Profildokument. Bei einem Feld kann ich wunderbar auf den Anhang zugreifen. Füge ich ein zweites Feld inkl. Anhang hinzu, kann ich auf den Anhang des ersten Felds nicht mehr zugreifen.
Was mach ich falsch?! DANKE!!!