Direkt zum Inhalt

Wie drucke ich nur Anhänge aus einer E-Mail oder ausgewählten E-Mails in Outlook?

In Outlook können Sie die E-Mails drucken. Haben Sie die Anhänge jedoch nur aus einer E-Mail oder ausgewählten E-Mails in Outlook gedruckt? In diesem Artikel stelle ich die Tricks zur Lösung dieses Jobs vor.

Drucken Sie nur Anhänge aus einer E-Mail mit Quick Print

Drucken Sie nur Anhänge aus ausgewählten E-Mails mit VBA


Drucken Sie nur Anhänge aus einer E-Mail mit Quick Print

Um die Anhänge nur ohne E-Mail-Text zu drucken, können Sie die Schnelldruckfunktion verwenden.

1. Klicken Sie im Nachrichtenfenster mit der rechten Maustaste auf den Anhang, den Sie drucken möchten, und wählen Sie Schnelldruck in dem Kontextmenü.
doc print Anhang 1

2. Dann klick Speichern > Speichern um die Anhangsdatei an einem Ort zu speichern.
doc print Anhang 2
doc print Anhang 3

3. Gehen Sie nun zu dem Speicherort, an dem Sie die Anhangsdatei abgelegt haben, und öffnen Sie die Datei, um sie wie gewohnt zu drucken.


Drucken Sie nur Anhänge aus ausgewählten E-Mails mit VBA

Wenn Sie die Anhänge aus ausgewählten E-Mails drucken möchten, können Sie VBA-Code verwenden.

1. Wählen Sie die E-Mails aus, in denen Sie die Anhänge drucken möchten, und drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.

2. Doppelklick DieseOutlookSession von Project1 Fenster, kopieren und fügen Sie den folgenden Code in das Skript ein.

VBA: Drucken Sie Anhänge aus ausgewählten E-Mails

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

doc print Anhang 4

3. Dann klick Tools > Bibliographie, und in der Bibliographie Dialog, überprüfen Microsoft Scripting-Laufzeit Kontrollkästchen.
doc print Anhang 5   doc print Anhang 6

4 Klicken OK, dann drücken F5 Taste zum Drucken aller Anhänge in den ausgewählten E-Mails in großen Mengen.

Note: Wenn es sich bei dem Anhang um ein Bild handelt, wird a angezeigt Bilder drucken Klicken Sie zuerst im Dialogfeld auf Drucken auf dem Sprung Druckausgabe speichern als Dialog.
doc print Anhang 7


Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how do you print attachments in multiple emails but with a certain page range
This comment was minimized by the moderator on the site
I tried the multiple emails option of pasting the VBA code, but when I press F5 to run it, I get a syntax error with this line highlighted:
If xItem.Class = olMail Then


Any ideas?
This comment was minimized by the moderator on the site
Have you check the Microsoft Scripting Runtime checkbox?
This comment was minimized by the moderator on the site
how can I enable the macro's? Last week it worked perfectly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations