Batch Print PDF Attachments in Outlook

Ten artykuł został napisany przez Seana Tsai, eksperta ds. Magazynowania danych i dobrego przyjaciela How-To Geek

Czy kiedykolwiek chciałeś wydrukować każdy załącznik, który otrzymasz w skrzynce pocztowej programu Outlook? Załóżmy, że subskrybujesz bezpłatną usługę faksu na PDF i chcesz, aby były drukowane automatycznie, tak jak staromodny faks.

Oto szybki sposób, aby to osiągnąć, jeśli czujesz się komfortowo przy odrobinie programowania VB (makro).

Pokazujemy tutaj, jak utworzyć regułę w Outlooku i przenieść przychodzące wiadomości faksowe do osobnego podfolderu. Korzystając z kodu VB, tworzymy makro, aby uruchomić zadanie drukowania w odniesieniu do wszystkich wiadomości e-mail w tym podfolderze, dzięki czemu nie trzeba otwierać wiadomości e-mail i drukować załączników jeden po drugim.

Krok 1

Utwórz podfolder o nazwie "Wydruk wsadowy" w obszarze "Mailbox - YourName" w programie Outlook.

Krok 2

Utwórz regułę (z menu Narzędzia / reguły i alerty) w programie Outlook, która wygląda następująco:

Umieść adres e-mail od swojego dostawcy faksu w polu "[email protected]". W wierszu tematu umieść stały tekst, który jest wysyłany od sprzedawcy faksu za każdym razem (nie wstawiaj tekstu, który będzie okresowo zmieniany). The 3^{r & D} pole "Batch Prints" jest podfolderem, który właśnie utworzyłeś w pierwszym kroku.

Krok 3

Utwórz makro VB. Najpierw wywołaj edytor VB, przechodząc do Tools / Macro / Visual Basic Editor. Powinieneś zobaczyć edytor VB wygląda tak:

Krok 4

W lewym oknie projektu kliknij prawym przyciskiem myszy element Project1 i wstaw moduł o nazwie Module1:

Krok 5

Po utworzeniu Module1 skopiuj poniższy kod do okna po prawej stronie, jak pokazano w punkcie # 3.

Public Sub PrintAttachments () Dim Skrzynka odbiorcza jako MAPIFolder Dim Pozycja jako MailItem Dim Atmt jako załącznik Dim Nazwa pliku jako ciąg Dim i jako Integer Ustaw skrzynkę odbiorczą = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Batch Prints" ) Dla każdej pozycji w skrzynce odbiorczej. Przedmioty dla każdego atrybutu w Item.Attachments "wszystkie załączniki są najpierw zapisywane w folderze tymczasowym C: \ Temp. Pamiętaj, aby utworzyć ten folder. FileName = "C: \ Temp \" & Atmt.FileName Atmt.SaveAsFile FileName "należy odpowiednio zmienić folder programu, jeśli Acrobat Reader nie jest zainstalowany na dysku C: Shell" "" C: \ Program Files \ Adobe \ Reader 8.0 \ Czytnik \ acrord32.exe "" / h / p "" "+ nazwa_pliku +" "" ", vbHide Następna pozycja Usuń" usuń ten wiersz, jeśli nie chcesz, aby wiadomość e-mail była automatycznie usuwana Następna Ustaw skrzynka odbiorcza = Nic Zakończ sub 

Zauważ, że może być konieczna zmiana linii kodu, która wywołuje Acrobat w celu dopasowania do ścieżki w systemie.

Krok 6

Teraz konfiguracja została zakończona. Wszystkie e-maile od Twojego dostawcy faksu zostaną przeniesione do "Wydruku zbiorczego", gdy wejdą. Zwróć uwagę, że w tym przykładzie oczekujemy, że wszystkie załączniki są w formacie PDF, więc używamy Acrobat acrord32.exe do drukowania każdego załącznika.

Korzystanie z makra

Teraz, gdy chcesz wydrukować wszystkie załączniki, po prostu przejdź do makra i uruchom makro PrintAttachments, a wszystkie załączniki będą drukowane sekwencyjnie. E-mail zostanie usunięty i przeniesiony do kosza po wydrukowaniu.

Uwaga: wydruki są kierowane do drukarki domyślnej, więc musisz się upewnić, że wybrany został prawidłowy sterownik drukarki.

Mam nadzieję, że to jest przydatne!