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 otrzymany w skrzynce pocztowej 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).

To, co tutaj pokazujemy, to utworzenie reguły w Outlooku i przeniesienie przychodzących wiadomości faksowych 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).Trzecie 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 w następujący sposób:

Krok 4

Po lewej stronie okna Projektu kliknij prawym przyciskiem myszy element Project1 i wstaw moduł o nazwie Module1:

Krok 5

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

Public Sub PrintAttachments() Dim Inbox As MAPIFolder Dim Element 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( "Wydruki grupowe") Dla każdej pozycji w skrzynce odbiorczej. Przedmioty dla każdego atrybutu w Item. Attachments" wszystkie załączniki są najpierw zapisywane w folderze temp 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 \ Reader \ acrord32.exe "" / h /p "" "+ FileName +" "" ", vbHide Next Item. Delete" usuń ten wiersz, jeśli nie chcesz, aby wiadomość e-mail była automatycznie usuwana Next Set Inbox = Nic nie kończy Sub

Zwróć uwagę, że możesz potrzebować zmienić liniękodu, który wywołuje program 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 zostaną wydrukowane 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 jest to przydatne!