Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: yes2002 am 24.10.03 - 13:13:10
-
Hallo,
ich möchte gerne auf Knopfdruck alle Anhänge in einer Notesmail drucken. Diese können unterschiedlich sein, z.B. Winword, PDF oder was auch immer. Wie mache ich denn das am besten?
Gibt es dafür einen Windows API-Call (2000) ...
Ich wollte vermeinden, je nach Typ die Software (z.B. Winword) zu steueren ...
Im Forum habe ich bereits gesucht.
-
Da kommst Du wohl nicht drumherum
-
... das müßte doch auch mit shellexecute gehen ???
"shell32.dll"
-
Jein, weil Du damit idR die Datei nur öffnen kannst, aber dann den Druckbefehl nicht absetzen kannst. Ausnahme, die angesprochene Applikation hat ein Print-Interface (das liesse sich wohl aus der Registry auslesen). Ohne das müsstest Du das Window finden und den Druckbefehl über Sendkey absetzen .... na ja, machbar, über Winapi, da ist aber OLE trotz allem einfacher, schneller, sicherer und braucht weniger Memory (ganz einfach, weil es genau dasselbe "institutionalisiert" macht).
-
Hallo,
ich habe ein bißchen gesucht und eine brauchbare Lösung gefunden:
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
Aufruf:
Call shellExecute(0&, "Print", "C:\test.pdf", "", "", 0)
Zusatzfrage: wie kann man sicherstellen, das die Applikation (Acrobat Reader) nach dem drucken wieder geschlossen wird? :)
-
Dann mekr Dir mal den Handle, den Dir das ShellExecute wahrscheinlich zurückgibt, dann kannst Du das Fenster über die WinAPI fernsteuern. Uebrigens, nicht jedes Programm definiert den Print-Befehl, also das kann dann durchaus mal daneben gehen. Wenn das nur Office und PDF ist, dürfte das funktionieren, sonst ist es eine Frage der vollen Explorer-Unterstützung. Wie Du feststellst, wann der Druck fertig ist, weiss ich nicht, da müsstest Du schon bei den WinAPI-Leuten mal nachfragen.
-
Vielleicht hilft das was - habe ich gerade in meiner Grabbelbox gefunden. Das Gedöns mit der Abfrage auf alle möglichen Extensions ist ein bißchen sehr unglücklich geschrieben und läßt sich sicherlich verbessern oder gar ganz weglassen - muß man aber checken, vor allem, wenn für empfangene Attachments mal keine Applikation da ist oder die kein "print" verträgt oder ... Wie gesagt: Was zum Spielen.
HTH,
Bernhard
Printing attachments based on types
by Davis Varghese & Abdul Anwer
Description:
This is to print attachments in rich text fields based on
their types and without user intervention.It can print, any
no of attachments in a rtf with just one click.For windows
based lotus notes
Code:
Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
(Byval hwnd As Long, Byval lpszOp As String, _
Byval lpszFile As String, Byval lpszParams As String, _
Byval LpszDir As String, Byval FsShowCmd As Long)
As Long
Declare Private Function GetDesktopWindow Lib
"user32" () As Long
Private Const SW_HIDE = 0&
Dim ritem As Variant
Dim Scr_hDC As Long
Dim ret As Long
Dim file As String
Sub PrintAttachment(doc As NotesDocument)
Dim ritem As Variant
Dim Scr_hDC As Long
Dim ret As Long
Dim file As String
Set ritem=doc.getfirstitem("Body")
If (ritem.type=RICHTEXT)Then
If Isarray(ritem.embeddedobjects) Then
Forall o In ritem.embeddedobjects
If (o.type=EMBED_ATTACHMENT) Then
Call o.extractfile (o.name)
extname=Right$(o.name,3)
If extname="tml" Or extname="TML" Then
extname=Right$(o.name,4)
End If
varobject = o.object
If extname="DOC" Or extname="doc" Then
file=o.name
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
If extname="XLS" Or extname="xls"Then
file=o.name
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
if extname="PPT" Or extname="ppt"Then
file=o.name
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
If extname="TXT" Or extname="txt"Then
file=o.name
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
If extname="PDF" Or extname="pdf"Then
file=o.name
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
If extname="HTML" Or extname="html"Then
file=o.name
call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
If extname="TIF" Or extname="tif"Then
file=o.name
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file ,Null ,"c:\temp"
,SW_HIDE)
End If
End If
End Forall
End If
End If
End Sub