PDF-Anhänge direkt drucken?

[gloover]

Hallo allerseits.

Da die Suchfunktion mir leider keine passende Antwort geliefert hat, stelle ich hier die Frage.

Ich bekomme sehr viele Mails, welche PDF-Dokumente als Anhänge enthalten. Es ist sehr umständlich die Anhänge erst im Reader zu öffnen und dann zu drucken. Unter MS Outlook ist es eine simple Einstellungssache - hier beisse ich jedoch auf Granit 

Gibt es eine Möglichkeit (script, ..) die PDF-Anhänge, ohne zu öffnen direkt zu drucken?

Bin für jede konstruktive antwort sehr dankbar!

[Axel]

Eine direkte Möglichkeit gibt es nicht. Programmiertechnisch lässt sich da mit sicherheit was machen.

Das hier habe ich in ganz grauer Vorzeit mal im Web gefunden.

Printing attachments based on types

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

Getestet habe ich es allerdings nicht.


Axel

[gloover]

Vielen Dank für die Antwort, den Code habe ich schon gesehen - habe sogar einen etwas weniger aufwendigen, die Frage ist nur, wo ich es unter Notes einbinden kann?
Unter "Agent" oder wo gibt es da eine Möglichkeit, das Makro zu implementieren?

Bitte etwas ausführlicher erklären - kenne mich mit Notes so gut wie gar nicht aus.

[Axel]

Bitte etwas ausführlicher erklären - kenne mich mit Notes so gut wie gar nicht aus.

Dann wird's aber schwierig. Da solltest du lieber einen Fachmann ranlassen. Das es sich um die Mail-DB handelt, musst du Mail-Schablone anpassen und das hat wiederum Auswirkungen auf alle User eures Unternehmens.

Zudem brauchst du den Designer-Client und auch die entsprechenden Rechte.

Axel

[gloover]

Oh, ich hätte nicht gedacht, dass es so kompliziert wird.

Wenn ich auf einen Anhang doppelklicke, erschein das Auswahlmenü [Ansicht, Starten, Lösen] - kann man es nicht mit einem plugin realisieren, dass das Menü um dem Punkt [Drucken] erweitert wird?

Wenn es auch nicht so einfach ist, werden wir wohl die Anhänge auf konventioneller Art drucken mussen. 

[Axel]

Oh, ich hätte nicht gedacht, dass es so kompliziert wird.

Mit den entsprechenden Programmierkenntnissen ist das gar nicht so kompliziert.

Wenn ich auf einen Anhang doppelklicke, erschein das Auswahlmenü [Ansicht, Starten, Lösen] - kann man es nicht mit einem plugin realisieren, dass das Menü um dem Punkt [Drucken] erweitert wird?

Nein.


Axel