Alle Anhänge drucken

[yes2002]

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.

[Semeaphoros]

Da kommst Du wohl nicht drumherum

[yes2002]

... das müßte doch auch mit shellexecute gehen
"shell32.dll"

[Semeaphoros]

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).

[yes2002]

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?

[Semeaphoros]

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.

[koehlerbv]

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