Wie druckt man nur Anhänge aus einer E-Mail oder ausgewählten E-Mails in Outlook?
In Outlook können Sie E-Mails drucken, aber haben Sie schon einmal nur die Anhänge aus einer E-Mail oder ausgewählten E-Mails in Outlook gedruckt? In diesem Artikel stelle ich Tricks zur Lösung dieser Aufgabe vor.
Nur Anhänge aus einer E-Mail mit Schnelldruck drucken
Nur Anhänge aus ausgewählten E-Mails mit VBA drucken
Nur Anhänge aus einer E-Mail mit Schnelldruck drucken
Um nur die Anhänge ohne den Text der E-Mail zu drucken, können Sie die Funktion „Schnelldruck“ verwenden.
1. Klicken Sie im Nachrichtenfenster mit der rechten Maustaste auf den Anhang, den Sie drucken möchten, und wählen Sie „Schnelldruck“ aus dem Kontextmenü.
2. Klicken Sie dann auf „Speichern“ > „Speichern“, um die Anhangsdatei an einem Ort zu speichern.
3. Gehen Sie nun zu dem Ort, an dem Sie die Anhangsdatei abgelegt haben, und öffnen Sie die Datei, um sie wie gewohnt zu drucken.
Nur Anhänge aus ausgewählten E-Mails mit VBA drucken
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, deren Anhänge Sie drucken möchten, und drücken Sie die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Doppelklicken Sie auf „ThisOutlookSession“ im Bereich „Project1“, kopieren Sie den folgenden Code und fügen Sie ihn in das Skript ein.
VBA: Anhänge aus ausgewählten E-Mails drucken
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. Klicken Sie dann auf „Extras“ > „Referenzen“, und aktivieren Sie im Dialogfeld „Referenzen“ das Kontrollkästchen „Microsoft Scripting Runtime“.
4. Klicken Sie auf „OK“ und drücken Sie dann die Taste „F5“, um alle Anhänge in den ausgewählten E-Mails gleichzeitig zu drucken.
Hinweis: Wenn der Anhang ein Bild ist, wird zunächst ein Dialogfeld „Bilder drucken“ angezeigt. Klicken Sie auf „Drucken“, um zum Dialogfeld „Druckausgabe speichern unter“ zu gelangen.
AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS
Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.
Diese Funktion unterstützt:
- Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
- Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
- Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
- Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
- Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
- Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.
Diese Funktion unterstützt:
- Intelligente E-Mail-Antworten
- Optimierter Inhalt
- Schlüsselwortbasierte Entwürfe
- Intelligente Inhaltserweiterung
- E-Mail-Zusammenfassung
- Mehrsprachige Übersetzung
Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine Kontaktgruppe in einzelne Gruppen aufteilen /Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
