... in der Hilfe gibt es ausführliche Beispiele - hier die Kurzfassung
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Set docThis = ws.CurrentDocument.Document
Set rtItem = docThis.GetFirstItem("Body")
If rtItem.Type = 1 Then
' # hier hast du es im Griff
End If
ata
