eMails abrufen, öffnen, Anhang öffnen, Anhang Drucken, eMail schließen

Die Lösung ist leicht:

1.) Ihr druckt eine Mail manuell aus (über Datei --> Drucken)...
2.) Bevor Ihr den Druck los schickt setzt Ihr einen Harken unter dem Punkt "Anlagen Drucken. Anlagen werden nur mit dem Standartdrucker gedruckt".
3.) Nach Ausdruck Outlook schließen und erneut aufrufen...
4.) Wenn Ihr nun wieder eine neue Mail ausdruckt hat Outlook die Einstellung "Anlagen drucken" gespeichert.
5.) Nun werden die Anhänge auch gedruckt, wenn Outlook über den Regelassistent druckt!

Zum Vergrößern anklicken....

Sie können Anlagen, die Sie per E-Mail erhalten, sofort ausdrucken lassen. Voraussetzung dafür ist, dass auf Ihrem PC eine Anwendung installiert ist, die mit dem jeweiligen Dateityp umgehen kann, also z.B. Microsoft Word für Word-Dokumente (*.doc) und dass der Drucker eingeschaltet ist.

---------------------------------------------

Private 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

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder

Set Ns = Application.GetNamespace("MAPI")
Set Folder = Ns.GetDefaultFolder(olFolderInbox)
Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
PrintAttachments Item
End If
End Sub

Private Sub PrintAttachments(oMail As Outlook.MailItem)
On Error Resume Next
Dim colAtts As Outlook.Attachments
Dim oAtt As Outlook.Attachment
Dim sFile As String
Dim sDirectory As String
Dim sFileType As String

sDirectory = "D:\Attachments\"

Set colAtts = oMail.Attachments

If colAtts.Count Then
For Each oAtt In colAtts

sFileType = LCase$(right$(oAtt.FileName, 4))

Select Case sFileType
Case ".xls", ".doc"
sFile = ATTACHMENT_DIRECTORY & oAtt.FileName
oAtt.SaveAsFile sFile
ShellExecute 0, "print", sFile, vbNullString, vbNullString, 0
End Select
Next
End If
End Sub

Zum Vergrößern anklicken....