Is embedded object

    Habe folgenden Code aus der Hilfe



    Frage: Wie bekomme ich den Namen des im Richtext Feld vorhandenen Anhang heraus
    Set object = rtitem.GetEmbeddedObject( "Jim" )


    Also "Jim" soll ermittelt werden

    Hi maria,


    Hier hilft Dir wahscheilich der folgende Code aus der Hilfe weiter.


    This script goes through all the file attachments, object links, and embedded objects in the Body item of a document. Each time it finds a file attachment, it detaches the file to the SAMPLES directory on the C drive and removes the attachment from the document. The script has no effect on the object links or embedded objects in the Body item.


    Dim doc As NotesDocument
    Dim rtitem As Variant
    '...set value of doc...
    Set rtitem = doc.GetFirstItem( "Body" )
    If ( rtitem.Type = RICHTEXT ) Then
    Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    Call o.ExtractFile( "c:\samples\" & o.Source )
    Call o.Remove
    Call doc.Save( False, True )
    End If
    End Forall
    End If



    Andreas

    Also o.source, um das Suchen abzukuerzen.
    Ansonsten, wenn man etwas sucht, den Debugger benutzen. Da sind die Eigenschaften huebsch aufgelistet ;)