Anhänge in NotesEmbeddedObject

[MichaStg29]

Hi,

wie kann ich per LotusScript einen Anhang in einem NotesEmbeddedObject per
DoVerb(?) anzeigen lassen ?

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" )
  call object.DoVerb("?")
End If

Welcher String ist mitzugeben ?

Oder muss mit object.Activate gearbeitet werden ?

Die Hilfe ist hier nicht eindeutig.

[koehlerbv]

Ich befürchte, Du bist hier auf dem falschen Dampfer, Micha: Den exakten Parameter-String musst Du der Methode des verwendeten OLE-Servers entnehmen. Und Du hast nicht einmal angeben, welche Anwendung Du hier als OLE-Server verwendest.

Bernhard

[MichaStg29]

Es geht einfach nur darum per Lotus-Script einen bestimmten
Anhang innerhalb von Notes zu öffnen bzw. anzuzeigen.

Entpsrechend dem Befehl @command([ObjectOpen])

Gibt es eine einfache Möglichkeit ?

[koehlerbv]

Mit der DoVerb-Methode warst Du also wirklich auf dem falschen Dampfer - das taugt nur für OLE (steht aber auch eindeutig so in der DesignerHelp - und für den @Command steht dort gleiches!!).

In LS: Wenn es ein Attachment ist, dann Anhang in ein Temp-Verzeichnis lösen und anschliessend öffnen. Beispiele gibt es hier im Forum als auch i nder DesignerHelp.

Bernhard