title image


Smiley Re: PDF Dokument direkt über eigene Aktion starten
Dieses Skript öffnet die im Feld "RTFeldMitAnhang" angehängte Datei des Dokumentes, auf dem der Zeiger steht:



Sub Click(Source As Button)

Dim session As New NotesSession

Dim doc As NotesDocument

Dim rtitem As NotesRichTextItem

Set doc = session.DocumentContext

attName=Evaluate(|@attachmentnames|,doc)

filePath=Environ$("temp")+"\"+attName(0)

Set rtitem=doc.getfirstitem("RTFeldMitAnhang")

Forall obj In rtitem.embeddedobjects

If obj.type=EMBED_ATTACHMENT Then

obj.extractfile filePath

End If

End Forall

Call ShellExecute(0, "Open", filePath , 0, 0, 3)

End Sub



Im Deklarationsbereich der Ansicht musst Du noch den API-Call ShellExecute deklarieren:



Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (Byval hwnd As Long, Byval lpOperation As String, Byval lpFile As String, Byval lpParameters As String, Byval lpDirectory As String, Byval nShowCmd As Long) As Long





jo@chim
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: