Stapeln Sie PDF-Anhänge in Outlook

Dieser Artikel wurde von Sean Tsai, einem Data-Warehousing-Experten und einem guten Freund des How-To Geek

geschrieben. Wollten Sie schon immer jeden Anhang drucken, den Sie in Ihrer Outlook-E-Mail-Box erhalten? Angenommen, Sie haben einen kostenlosen Fax-to-PDF-E-Mail-Dienst abonniert und möchten, dass diese automatisch wie bei einem herkömmlichen Faxgerät ausgedruckt werden.

Hier ist ein schneller Weg, um das zu erreichen, wenn Sie sich mit ein bisschen VB( Makro) Programmierung auskennen.

Was wir hier zeigen, ist eine Regel in Outlook zu erstellen und die eingehenden Fax-E-Mails in einen separaten Unterordner zu verschieben. Mithilfe von VB-Code erstellen wir ein Makro, mit dem Sie einen Druckauftrag für jede E-Mail in diesem Unterordner ausführen können, sodass Sie die E-Mail nicht öffnen und die Anhänge einzeln ausdrucken 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. Platzieren Sie in der Betreffzeile den permanenten Text, der jedes Mal vom Faxanbieter gesendet wird( geben Sie nicht den Text ein, der regelmäßig geändert wird).Das 3. Feld "Batch Prints" ist der Unterordner, den Sie gerade 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. Sie sollten sehen, dass der VB-Editor wie folgt aussieht:

Schritt 4

Klicken Sie mit der rechten Maustaste auf das Project1-Element und fügen Sie ein Modul mit dem Namen Module1 ein:

Schritt 5

Nachdem das Modul1 erstellt wurde, kopieren Sie den folgenden Code in dasFenster auf der rechten Seite wie in der Aufzählung # 3 gezeigt.

Public Sub PrintAttachments() Dim Posteingang als MAPIFolder Dim Item als MailItem Dim Atmt als Attachment Dim FileName als String Dim i As Ganzzahl Set Inbox = GetNamespace( "MAPI"). GetDefaultFolder( olFolderInbox). Parent. Folders. Item( "Batch Prints") Für jeden Eintrag im Posteingang. Einträge für jeden Eintrag In" Eintrag. Anhänge "werden alle Anhänge zuerst im temporären Ordner C: \ Temp gespeichert. Stellen Sie sicher, dass Sie diesen Ordner erstellen. Dateiname = "C: \ Temp \" &Atmt. FileName Atmt. SaveAsFile FileName 'Bitte ändern Sie den Programmordner entsprechend, wenn der Acrobat Reader nicht auf Laufwerk C: Shell installiert ist "" "C: \ Programme \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe" "/ h /p "" "+ Dateiname +" "" ", vbHide Next Item. Delete 'Diese Zeile entfernen, wenn die E-Mail nicht automatisch gelöscht werden soll. Weiter Posteingang = Nothing End Sub

Beachten Sie, dass Sie die Zeile möglicherweise ändern müssenCode, der Acrobat aufruft, um dem Pfad auf Ihrem System zu entsprechen.

Schritt 6

Nun ist das Setup abgeschlossen. Alle E-Mails von Ihrem Faxanbieter werden in Ihre "Batch Prints" verschoben, wenn sie eintreffen. Beachten Sie bitte, dass wir im Anhang 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 nun alle Anhänge drucken möchten, gehen Sie einfach zum Makro und führen Sie das Makro PrintAttachments aus, und alle Anhänge werden nacheinander gedruckt. Die E-Mail wird gelöscht und nach dem Drucken in den Papierkorb verschoben.

Hinweis: Die Ausdrucke werden an Ihren Standarddrucker weitergeleitet, so dass Sie sicherstellen müssen, dass ein gültiger Druckertreiber eingerichtet und ausgewählt ist.

Hoffe das ist nützlich!