Jak wydrukować załączniki tylko z jednego e-maila lub wybranych e-maili w Outlooku?
W Outlooku możesz drukować e-maile, ale czy wydrukowałeś załączniki tylko z jednego e-maila lub wybranych e-maili w Outlooku? W tym artykule przedstawiam triki dotyczące rozwiązania tego zadania.
Drukuj tylko załączniki z jednego e-maila za pomocą funkcji szybkiego drukowania
Drukuj tylko załączniki z wybranych e-maili za pomocą VBA
Drukuj tylko załączniki z jednego e-maila za pomocą funkcji szybkiego drukowania
Aby wydrukować tylko załączniki bez treści wiadomości e-mail, możesz użyć funkcji szybkiego drukowania.
1. W oknie wiadomości kliknij prawym przyciskiem myszy załącznik, który chcesz wydrukować, wybierz Szybki wydruk z menu kontekstowego.
2. Następnie kliknij Zapisz > Zapisz aby zapisać plik załącznika w lokalizacji.
3. Teraz przejdź do lokalizacji, w której umieściłeś plik załącznika i otwórz plik do wydrukowania w zwykły sposób.
Drukuj tylko załączniki z wybranych e-maili za pomocą VBA
Jeśli chcesz wydrukować załączniki z wybranych e-maili, możesz użyć kodu VBA.
1. Wybierz wiadomości e-mail, dla których chcesz wydrukować załączniki, naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. Podwójne kliknięcie Ta sesja programu Outlook od Project1 okienko, skopiuj i wklej poniższy kod do skryptu.
VBA: Drukuj załączniki z wybranych wiadomości e-mail
Sub BatchPrintAllAttachmentsInMultipleEmails()
'UpdatebyExtendoffice20180417
Dim xFSO As Scripting.FileSystemObject
Dim xTmpFldPath As String
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xShell As Object
Dim xTempFolder As Object
Dim xTempFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xFSO = CreateObject("Scripting.FileSystemObject")
xTmpFldPath = xFSO.GetSpecialFolder(2).Path & "\Temp for Attachments"
If xFSO.FolderExists(xTmpFldPath) = False Then
xFSO.CreateFolder xTmpFldPath
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xShell = CreateObject("Shell.Application")
Set xTempFolder = xShell.NameSpace(0)
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count = 0 Then Exit Sub
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTmpFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Set xTempFolderItem = xTempFolder.ParseName(xFilePath)
xTempFolderItem.InvokeVerbEx ("print")
Next
End If
Next
'If xFSO.FolderExists(xTmpFldPath) Then
' xFSO.DeleteFolder xTmpFldPath, True
'End If
End Sub
3. Następnie kliknij Tools > Referencje, oraz w Referencje okno dialogowe, sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft checkbox.
4. kliknij OK, A następnie naciśnij przycisk F5 klucz, aby zbiorczo wydrukować wszystkie załączniki w wybranych wiadomościach e-mail.
Note: Jeśli załącznik jest obrazem, wyskoczy Wydrukuj zdjęcia najpierw kliknij , aby przejść do Zapisz wynik drukowania jako dialog.
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.