Habe folgenden Code aus der Hilfe
Code
Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Set object = rtitem.GetEmbeddedObject( "Jim" )
If ( object Is Nothing ) Then
Messagebox( "Unable to find an object named Jim" )
Else
Messagebox( "Found an object named Jim" )
End If
End If
Alles anzeigen
Frage: Wie bekomme ich den Namen des im Richtext Feld vorhandenen Anhang heraus
Set object = rtitem.GetEmbeddedObject( "Jim" )
Also "Jim" soll ermittelt werden