Batch Print PDF-Anlagen in Outlook
Dieser Artikel wurde von Sean Tsai, einem Data Warehousing-Experten und guten Freund des How-To-Geek, verfasst
Wollten Sie schon immer jeden Anhang, den Sie erhalten, in Ihrer Outlook-E-Mail-Box ausdrucken? Angenommen, Sie haben einen kostenlosen Fax-zu-PDF-E-Mail-Dienst abonniert und möchten, dass sie automatisch wie ein altmodisches Faxgerät ausgedruckt werden.
Dies ist ein schneller Weg, um dies zu erreichen, wenn Sie mit der VB-Programmierung (Makro) vertraut sind.
Wir zeigen hier eine Regel in Outlook und verschieben die eingehenden Fax-E-Mails in einen separaten Unterordner. Mit VB-Code erstellen wir ein Makro, mit dem Sie einen Druckauftrag für jede E-Mail in diesem Unterordner ausführen können, damit Sie die E-Mail nicht öffnen und die Anlagen nacheinander drucken müssen.
Schritt 1
Erstellen Sie in Outlook unter "Postfach - IhrName" einen Unterordner mit dem Namen "Batch Prints".
Schritt 2
Erstellen Sie eine Regel (aus dem Menü Extras / Regeln und Warnungen) in Outlook, die folgendermaßen aussieht:
Geben Sie die E-Mail-Adresse Ihres Faxanbieters in das Feld "[email protected]" ein. Fügen Sie in die Betreffzeile den permanenten Text ein, der jedes Mal vom Faxanbieter gesendet wird (geben Sie nicht den Text ein, der regelmäßig geändert wird). Die 3rd Das Feld “Stapelausgabe” ist der Unterordner, den Sie im ersten Schritt erstellt haben.
Schritt 3
Erstellen Sie ein VB-Makro. Rufen Sie zuerst den VB-Editor auf, indem Sie zu Tools / Macro / Visual Basic Editor gehen. Der VB-Editor sollte folgendermaßen aussehen:
Schritt 4
Klicken Sie im linken Projektfenster mit der rechten Maustaste auf das Element Project1 und fügen Sie ein Modul mit dem Namen Module1 ein:
Schritt 5
Sobald das Modul1 erstellt wurde, kopieren Sie den folgenden Code in das Fenster auf der rechten Seite, wie in Punkt 3 dargestellt.
Public Sub PrintAttachments () Dim Inbox As MAPIFolder Dim Element als MailItem Dim Atmt As Attachment Dim Dateiname Als String Dim i As Integer Set Posteingang = GetNamespace ("MAPI"). GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Für jedes Element im Posteingang. Elemente für jedes Attribut In Item.Attachments werden alle Anhänge zuerst im temporären Ordner C: \ Temp gespeichert. Stellen Sie sicher, dass Sie diesen Ordner erstellen. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName 'Bitte ändern Sie den Programmordner entsprechend, wenn der Acrobat Reader nicht auf Laufwerk C: Shell "" "" C: \ Programme \ Adobe \ Reader 8.0 \ installiert ist. Reader \ acrord32.exe "" / h / p "" "+ Dateiname +" "" ", vbHide Next Item.Delete 'Entfernen Sie diese Zeile, wenn die E-Mail nicht automatisch gelöscht werden soll. Next Set Inbox = Nothing End Sub Beachten Sie, dass Sie möglicherweise die Codezeile, in der Acrobat aufgerufen wird, an den Pfad in Ihrem System anpassen müssen.
Schritt 6
Damit ist das Setup abgeschlossen. Alle E-Mails Ihres Faxanbieters werden in Ihren Batch-Prints verschoben, wenn sie eingehen. Bitte beachten Sie, dass wir im Beispiel erwarten, dass alle Anhänge im PDF-Format vorliegen. Daher verwenden wir Acrobat acrord32.exe, um jeden Anhang zu drucken.
Verwenden des Makros
Wenn Sie jetzt alle Anlagen drucken möchten, gehen Sie einfach zum Makro und führen Sie das Makro PrintAttachments aus. Alle Anlagen werden nacheinander gedruckt. E-Mails werden gelöscht und in den Papierkorb verschoben, sobald sie gedruckt wurden.
Hinweis: Die Ausdrucke werden an Ihren Standarddrucker weitergeleitet. Sie müssen also sicherstellen, dass ein gültiger Druckertreiber eingerichtet und ausgewählt ist.
Hoffe das ist nützlich!
