PDF-Dokument mittels Lotusscript öffnen

[Karlo F.]

Hallo,

ich möchte ein PDF-Dokument mittels Lotusscript öffnen bzw. anzeigen. D.h. es soll der installierte Acrobat-Reader gestartet und ein bestimmtes PDF-Dokument geöffnet werden.
Bisher habe ich folgenden Quelltext in einer Schaltflächenaktion geschrieben:

Code

Sub Click(Source As Button)
	Dim sitzung		As NotesSession	
	Dim db			As NotesDatabase
	Dim aktdoc		As NotesDocument
	Dim workspace 		As New NotesUIWorkspace
	Dim uidoc 		As NotesUIDocument
	Dim suchFiliale		As String	
	Dim suchName		As String
	Dim suchPfad		As String
	
	Set sitzung = New NotesSession
	Set db	  = sitzung.CurrentDatabase
	Set uidoc   = workspace.CurrentDocument
	Set aktdoc  = uidoc.Document
	
	suchPfad = "N:\Kundeninfo\*.PDF"
	suchName = "Kundeninfo_" + Trim$(aktdoc.GetItemValue("KdNr")(0))
	filename = Dir$(suchPfad, 0)
	Do While Left$(filename, 23) <> Left$(suchName, 23) And filename <> ""
		filename = Dir$()
	Loop
 
	If Trim$(filename) = "" Then
		Messagebox "Es wurde kein Dokument gefunden.", 48, "Fehler"
	Else
		
		' PDF-Dokument anzeigen
		
	End If
End Sub

Da der Name nicht immer der gleiche ist, stelle ich ihn mit Dir$ und der folgenden Do-Schleife fest.
Das Feld "KdNr" befindet sich auf dem aktuellen Dokument. Das funktioniert auch so wie gewollt.
In dem Else-Zweig der IF-Anweisung möchte ich das gefundene PDF-Dokument anzeigen.
Und da fehlt mir der Ansatz. Vielleicht kann mir hier jemand weiterhelfen.

Vielen Dank.

MfG
KaFi

[jBubbleBoy]

Ich mach das immer so:

Code

Dim taskid
taskid = Shell (|cmd /c start "" "| + Cstr(filename ) +|"|)

Geht mit jedem Dateitypen, solange die Verknüpfung im System existiert.

[Karlo F.]

Das funktioniert ganz wunderbar. 

Vielen Dank, jBubbleBoy

MfG
KaFi