Hi,
versuch' s mal damit:
...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set db = session.CurrentDatase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc is Nothing)
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
'Dateien in Verzeichnis c:\reports lösen
Call o.ExtractFile( "c:\reports\" & o.Name )
End Forall
End If
Set doc = collection.GetNextDocument(doc)
Wend
...
Ich hab's nicht getestet, sollte aber so funktionieren.
Axel
