Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
'...doc auswählen
Set rtitem = doc.GetFirstItem("Body")
If (rtitem.EmbeddedObjects = Empty) Then
'keine Anhänge vorhanden
Else
'Anhänge vorhanden
End Ifdas von Harry genannte Script funktioniert leider erst nach dem Speichern....
Zugriff auf das in-memory-backend-doc ist nicht das Problem, das Tode hier meint, es ist die Frage, wie aktuell das Backend-Doc ist, solange nicht gespeichert wurde.