Jak wydrukować wszystkie załączniki w jednej / wielu wiadomościach e-mail w Outlooku?
Jak wiesz, po kliknięciu pliku filet > w programie Microsoft Outlook, ale nie drukuj załączników. Tutaj pokażemy Ci, jak łatwo wydrukować wszystkie załączniki w wybranej wiadomości e-mail w programie Microsoft Outlook.
- Drukuj wszystkie załączniki w jednej wiadomości e-mail jeden po drugim
- Drukowanie zbiorcze wszystkich załączników w jednej wiadomości e-mail
- Grupowe drukowanie wszystkich załączników i zdjęć w wielu wybranych wiadomościach e-mail
- Grupowe drukowanie wszystkich załączników w wielu wybranych wiadomościach e-mail z wyjątkiem zdjęć w treści
Drukuj wszystkie załączniki w jednej wiadomości e-mail jeden po drugim
Microsoft Outlook zapewnia nam Szybki wydruk funkcja, która może pomóc w drukowaniu załączników w wiadomości e-mail jeden po drugim.
1. Wybierz wiadomość e-mail, której załączniki wydrukujesz później.
2. Kliknij jeden załącznik w tej wiadomości e-mail.
3, Kliknij Szybki wydruk przycisk w Akcje grupa na Załączniki patka.
Zanotuj Narzędzia załączników nie zostanie aktywowany, dopóki nie klikniesz załączników w wiadomościach e-mail.
4. Pojawi się okno dialogowe otwierania załącznika poczty i kliknij przycisk Otwarte przycisk.
Pamiętaj, że ten krok spowoduje otwarcie wybranego załącznika i jednoczesne wydrukowanie tego załącznika.
Aby wydrukować inne załączniki w tej wiadomości e-mail, powtórz kroki od 2 do 4.
Szybko zapisuj / eksportuj wszystkie załączniki z wielu wiadomości e-mail w programie Outlook
Zwykle możemy zapisywać załączniki z jednego e-maila, aktywując rozszerzenie Narzędzia załączników i zastosowanie Zapisz wszystkie załączniki funkcja w programie Outlook. Ale co, jeśli zapisujesz załączniki z wielu wiadomości e-mail lub z całego folderu poczty w Outlooku? Wypróbuj Kutools dla programu Outlook Zapisz wszystkie Funkcja (Załączniki).
Drukowanie zbiorcze wszystkich załączników w jednej wiadomości e-mail
Jeśli w jednej wiadomości e-mail znajduje się wiele załączników, wydrukowanie ich jeden po drugim będzie czasochłonne. Poniższa metoda przeprowadzi Cię przez łatwe drukowanie wsadowe wszystkich załączników w wybranej wiadomości e-mail.
1. Wybierz wiadomość e-mail, której załączniki wydrukujesz później.
2. W programie Outlook 2010 lub nowszych wersjach kliknij plik filet > > Opcje drukowania. Zobacz poniższy zrzut ekranu:
3. W oknie dialogowym Drukuj sprawdź Wydrukuj załączone pliki. Załączniki będą drukowane tylko na domyślnej drukarce opcja w Opcje drukowania
4, Kliknij przycisk.
5. W wyskakującym oknie dialogowym Otwieranie załącznika poczty kliknij plik Otwarte przycisk, aby przejść dalej. (Note: To okno dialogowe pojawi się osobno dla każdego załącznika).
Teraz wszystkie załączniki w wybranej wiadomości e-mail zostaną wydrukowane jednocześnie.
Grupowe drukowanie wszystkich załączników i zdjęć w wielu wybranych wiadomościach e-mail
Aby wydrukować wszystkie załączniki w wielu e-mailach, a także wszystkie zdjęcia w treści wiadomości w Outlooku, wykonaj poniższe czynności, aby zastosować kod VBA.
1. Proszę czekać na liście mailingowej Ctrl or Shift klucze, aby wybrać wiele wiadomości e-mail, których załączniki chcesz wydrukować.
2. naciśnij inny + F11 klucze razem, aby otworzyć okno Microsoft Visual Basic for Applications.
3. W oknie Microsoft Visual Basic for Applications kliknij Tools > Referencje. A następnie sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja, jak pokazano poniżej. Po zakończeniu kliknij OK.
4. Kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.
VBA: wydrukuj wszystkie załączniki w wielu wiadomościach e-mail programu Outlook
Sub PrintAllAttachmentsInMultipleMails()
'Update by ExtendOffice 2022/08/03
Dim xShellApp As Object
Dim xFSO As Scripting.FileSystemObject
Dim xItem As Object
Dim xTempFldPath, xFilePath As String
Dim xSelItems As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xFile As File
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
xFSO.CreateFolder (xTempFldPath)
End If
Set xSelItems = Outlook.ActiveExplorer.Selection
Set xShellApp = CreateObject("Shell.Application")
For Each xItem In xSelItems
If xItem.Class = OlObjectClass.olMail Then
Set xMailItem = xItem
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
xFilePath = xTempFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Next
End If
Next
For Each xFile In xFSO.GetFolder(xTempFldPath).Files
VBA.DoEvents
Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
Next
Set xSelItems = Nothing
Set xShellApp = Nothing
Set xFSO = Nothing
End Sub
5. naciśnij F5 lub kliknij run przycisk, aby uruchomić ten kod VBA. Teraz zobaczysz, że wszystkie załączniki w wybranych e-mailach i zdjęcia w treści wiadomości są drukowane.
Uwaga:
- Każdy obraz wyświetli wyskakujące okno dialogowe z prośbą o potwierdzenie drukowania. Podczas gdy inne typy plików zostaną wydrukowane bezpośrednio.
- Jeśli w podpisie wiadomości e-mail znajdują się obrazy, wyświetlą się również wyskakujące okna dialogowe.
- Jeśli dostaniesz Makra w tym projekcie są wyłączone błąd, sprawdź ten samouczek: Jak włączyć i wyłączyć makra w Outlooku?
Grupowe drukowanie wszystkich załączników w wielu wybranych wiadomościach e-mail z wyjątkiem zdjęć w treści
Aby drukować tylko załączniki w wielu e-mailach, ale zdjęcia w treści wiadomości w Outlooku, wykonaj poniższe czynności, aby zastosować kod VBA.
1. Proszę czekać na liście mailingowej Ctrl or Shift klucze, aby wybrać wiele wiadomości e-mail, których załączniki chcesz wydrukować.
2. naciśnij inny + F11 klucze razem, aby otworzyć okno Microsoft Visual Basic for Applications.
3. W oknie Microsoft Visual Basic for Applications kliknij Tools > Referencje. A następnie sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja, jak pokazano poniżej. Po zakończeniu kliknij OK.
4. Kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.
VBA: wydrukuj wszystkie załączniki w wielu wiadomościach e-mail programu Outlook
Sub PrintAllAttachmentsInMultipleMails()
'Update by ExtendOffice 2022/08/05
Dim xShellApp As Object
Dim xFSO As Scripting.FileSystemObject
Dim xItem As Object
Dim xTempFldPath, xFilePath As String
Dim xSelItems As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xFile As File
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTempFldPath = xFSO.GetSpecialFolder(2).Path & "\Attachments " & Format(Now, "yyyymmddhhmmss") 'xFSO.GetSpecialFolder(2) For saving temporary files
If xFSO.FolderExists(xTemfldpath) = False Then 'create temporary folder
xFSO.CreateFolder (xTempFldPath)
End If
Set xSelItems = Outlook.ActiveExplorer.Selection
Set xShellApp = CreateObject("Shell.Application")
For Each xItem In xSelItems
If xItem.Class = OlObjectClass.olMail Then
Set xMailItem = xItem
Set xAttachments = xMailItem.Attachments
For Each xAttachment In xAttachments
If IsEmbeddedAttachment(xAttachment) = False Then
xFilePath = xTempFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
Debug.Print xFilePath
End If
Next
End If
Next
For Each xFile In xFSO.GetFolder(xTempFldPath).Files
VBA.DoEvents
Call xShellApp.ShellExecute(xFile.Path, "", "", "print", 0)
Next
Set xSelItems = Nothing
Set xShellApp = Nothing
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
5. naciśnij F5 lub kliknij run przycisk, aby uruchomić ten kod VBA. Teraz zobaczysz, że wszystkie załączniki w wybranych wiadomościach e-mail są drukowane.
Uwaga:
- Każdy załączony obraz spowoduje wyświetlenie wyskakującego okna dialogowego z prośbą o potwierdzenie drukowania. Podczas gdy inne typy plików zostaną wydrukowane bezpośrednio.
- Obrazy w treści wiadomości nie zostaną wydrukowane.
- Jeśli dostaniesz Makra w tym projekcie są wyłączone błąd, sprawdź ten samouczek: Jak włączyć i wyłączyć makra w Outlooku?
Demo: wydrukuj jeden lub wszystkie załączniki w wiadomości e-mail programu Outlook
Wskazówka: W tym wideo, Kutools została dodana przez Kutools dla programu Outlook. Jeśli potrzebujesz, kliknij tutaj mieć 60-dniowy bezpłatny okres próbny bez ograniczeń!
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.