title image


Smiley Anzeigen von Anlagen per LS
Hi,

jeder von euch kennt das Dialogfenster: Anhang. Es kommt, wenn man ein "Doppelklick" auf ein Attachement macht. Nun, kann ich dieses Dialogfenster auch aus LotusScript öffnen? (für ein bestimmtes Attachement?)



Alternative: Habt ihr vielleicht auf die Schnellte ein Beispiel, wie ich ein beliebiges Attachment per "Button"-Aktion öffne? Mein Notesformular wir nur "ein" einzige Attachement mit immer dem gleichen namen haben, das die ganze Sache einwenig vereinfacht (z.B. rechnung.tif).



Im folgenden Beispiel funktioniert es bei mir nicht...



Sub Click(Source As Button)

Dim ws As NotesUIworkspace

Dim uidoc As notesuidocument

Dim doc As notesdocument

Dim object As NotesEmbeddedObject

Dim handle As Variant

Dim rtitem As Variant



Set ws = New NotesUIworkspace

Set uidoc = ws.currentdocument

Set doc = uidoc.document



'hier bekomme ich die Fehlermeldung (Objectvariable not set...

'rtitem ist aber gesetzt...!?

Set rtitem = doc.GetFirstItem( "Body" )

If ( rtitem.Type = RICHTEXT ) Then

Set object = rtitem.GetEmbeddedObject( "rechnung.gif" )

If Not ( object Is Nothing ) Then

Set handle = object.Activate( True )

Else

Msgbox "Geht net ..:"

End If

End If



'oder diesen Code.....gibt zwar keine Fehlermeldung.. geht aber net

Set object = doc.GetAttachment( "rechnung.jpg" )

If Not ( object Is Nothing ) Then

Set handle = object.Activate( True )

Else

Msgbox "Geht net ..:"

End If



End Sub





Gruss

Recep M

Gruss

Recep M.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: