Hallo zusammen,
@Djahan - freut mich, wenn Dir mein Tool gefällt. Über das Schließen mach ich mir noch mal Gedanken, wobei das nicht so ganz einfach ist.
@Armin - Versuch doch mal aus Notes nur das PDF aufzurufen, ob das funktioniert.
Ansonsten habe ich mal noch eine andere Aufruf-Methode.
Function StartFile( ls_path As String ) As Integer
On Error Goto errorHandler
Const MSG_ERROR_PLATTFORM = {Diese Funktion wird auf der Ihrer Plattform nicht unterstützt.}
Const KOMMANDO_WIN_LOADER = "cmd /c"
Const SEP = {"}
Dim s As New NotesSession
Dim taskId As Integer
'Init
'Main
If isdefined( "WIN32" ) Or isdefined( "WIN16" ) Then
If Not ls_path = "" Then
If Left( ls_path, 1 ) <> SEP & Right( ls_path, 1 ) <> SEP Then
ls_path = SEP & ls_path & SEP
End If
taskId = Shell( KOMMANDO_WIN_LOADER & " " & ls_path, 1)
StartFile = True
End If
Else
Msgbox MSG_ERROR_PLATTFORM, 0+48, "Plattform: " & s.platform
StartFile = False
End If
'Term
wayOut:
Exit Function
errorHandler:
Print "Fehler in Funktion <StartFile> in Zeile " & Erl() & ": " & Error()
StartFile = False
Resume wayOut
end function
Vielleicht startet der Reader mit diesem cmd-Aufruf.
Gruß von Ekki.
