Batch Print PDF Attachments in Outlook
Ten artykuł został napisany przez Seana Tsai, eksperta ds. Hurtowni 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, a 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. Używając kodu VB, tworzymy makro, aby uruchomić zadanie drukowania w odniesieniu do wszystkich wiadomości e-mail w tym podfolderze, aby nie trzeba było otwierać wiadomości e-mail i drukować załączniki jeden po drugim.
Krok 1
Utwórz podfolder o nazwie "Wydruki zbiorcze" 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 3r & 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.
Publiczne podteksty drukowania () Przyciemnij skrzynkę odbiorczą jako element docelowy MAPIFolder jako plik MailItem Dim Atmt jako załącznik Dim Nazwa pliku jako ciąg Dim i jako liczba całkowita Ustaw skrzynkę odbiorczą = GetNamespace ("MAPI") GetDefaultFolder (olFolderInbox) .Parent.Folders.Item ("Drukowanie wsadowe" ) 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 \ 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 Zwróć uwagę, że może być konieczna zmiana linii kodu, która 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 Twoich "wydruków seryjnych", gdy wejdą. Pamiętaj, ż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!
