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ü.
2. Dann klick Speichern > Speichern um die Anhangsdatei an einem Ort zu speichern.
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
3. Dann klick Tools
> Bibliographie, und in der Bibliographie Dialog, überprüfen Microsoft Scripting-Laufzeit Kontrollkästchen.
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.
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 Pro: Batch 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.