Auf die Schnelle würde ich das etwa so machen:
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim docsize As Long, attsize As Long
Set db = s.CurrentDatabase
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
Do Until doc Is Nothing
docsize = docsize + doc.Size
Forall it In doc.Items
If it.Type = RICHTEXT Then
If Not Isempty(it.EmbeddedObjects) Then
Forall o In it.EmbeddedObjects
attsize = attsize + o.Filesize
End Forall
End If
End If
End Forall
Set doc = dc.GetNextDocument(doc)
Loop
Msgbox docsize, 64, "Dokumente"
Msgbox attsize, 64, "Attachments"
End Sub
Geht aber bestimmt noch eleganter....
Viele Grüße
ghost