Anhänge per Lotus Script öffnen

  • Hi,


    wie kann ich per LotusScript einen Anhang in einem NotesEmbeddedObject per
    Activate(?) öffnen ? (d.h. per OLE anzeigen)


    Beispiel:
    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( "City picture" )
    handle=object.activate(show)
    End If


    Welcher Wert muss für Show stehen ?
    Der Anhang wird bei mir nicht geöffnet. Problem ?


    Die Hilfe ist hier nicht eindeutig.