Domino 9 und frühere Versionen > ND8: Entwicklung

PDF-Dokument mittels Lotusscript öffnen

(1/1)

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

--- Ende Code ---

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 ) +|"|)

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

Karlo F.:
Das funktioniert ganz wunderbar.  :)

Vielen Dank, jBubbleBoy

MfG
KaFi

Navigation

[0] Themen-Index