Anhänge aller Dokumente auf Platte speichern

[domino23]

Moin,

ich muss aus einer sehr alten DB alle Anhänge jeglicher Dokumente auf Platte speichern.
Dabei weiss ich nicht immer, in welchem Feld der Anhang steckt (DB ist teilweise aus eigener Entwicklung), sodass ich mit

Code

If doc.HasEmbedded Then

zwar identifizieren kann ob ein Dok ein Anhang hat aber nicht in welchem Feld.

Das ist mein Ansatz:

Code

Set rtitem = doc.GetFirstItem( "Body" )
Forall o In rtitem.EmbeddedObjects  

Nicht jedes RTItem hat den Namen "Body".
Wie bekomme ich denn alle Anhänge aus den Dokumenten, auch wenn ich den Feldnamen nicht kenne?
Habt ihr einen Tipp?

Danke für Hilfe!

EDIT:
Notes 8.5.1
Domino 6.5.2

Max

[koehlerbv]

@AttachmentsNames evaluieren und abarbeiten, wenn da ein Ergebnis kommt.

Bernhard

[Alexander 28]

siehe hier

http://atnotes.de/index.php/topic,57080.0.html

[domino23]

Jo, funktioniert einwandfrei.
Ich musste nur noch zwischen DocLinks und Anhängen unterscheiden, aber läuft.

Vielen Dank!