Outlook: So drucken Sie E-Mails ohne Bilder
Normalerweise wird beim Drucken einer E-Mail in Outlook auch die Bilder mitgedruckt. Manchmal möchten Sie jedoch nur den Text ohne die Bilder drucken. In Outlook gibt es jedoch keine integrierte Funktion, die dies unterstützt. Dieses Tutorial bietet einen VBA-Code, der die e-Mail ohne Bilder sofort über Word druckt. Wenn Ihr Computer keinen Drucker hat, exportiert der VBA-Code die E-Mail zuerst als PDF ohne Bilder, und Sie können das PDF ausdrucken, sobald der Drucker verfügbar ist.
VBA zum Drucken von E-Mails ohne Bilder
VBA zum Drucken von E-Mails ohne Bilder
1. Wählen Sie eine E-Mail aus, die Sie nur als Text drucken möchten, und drücken Sie dann die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, um ein neues leeres Modul zu erstellen, und kopieren Sie den folgenden Code in das Modul.
VBA: E-Mail ohne Bilder exportieren
Sub PrintWithoutImages()
'UpdatebyExtendoffice20220414
Dim xMail As Outlook.MailItem
Dim xFileName As String, xSubject As String
Dim xWord As Word.Application
Dim xWordDoc As Word.Document
Dim xInlineShape As Word.InlineShape
Dim InvalidArr
On Error Resume Next
If Application.ActiveWindow.Class = olInspector Then
Set xMail = ActiveInspector.CurrentItem
ElseIf Application.ActiveWindow.Class = olExplorer Then
Set xMail = ActiveExplorer.Selection.Item(1)
End If
InvalidArr = Array("/", "\", "*", ":", Chr(34), "?", "<", ">", "|")
xSubject = xMail.Subject
For i = 0 To UBound(InvalidArr)
xSubject = VBA.Replace(xSubject, InvalidArr(i), "")
Next i
xFileName = Environ("Temp") & "\" & xSubject & ".doc"
Debug.Print xFileName
xMail.SaveAs xFileName, olDoc
Set xWord = CreateObject("Word.Application")
xWord.Visible = False
Set xWordDoc = xWord.Documents.Open(xFileName)
For Each xInlineShape In xWordDoc.InlineShapes
xInlineShape.Delete
Next
xWordDoc.PrintOut
xWordDoc.Close
xWord.Quit
Kill xFileName
End Sub
3. Klicken Sie auf Extras > Verweise, um das Dialogfeld Verweise – Projekt 1 zu öffnen, aktivieren Sie das Kontrollkästchen Microsoft Word 16.0 Object Library, und klicken Sie auf OK.
4-1. Platzieren Sie den Cursor innerhalb des Codes und drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen , um den Code auszuführen. Die E-Mail ohne Bilder wird dann sofort über Word gedruckt. Wenn Ihr Computer jedoch keinen Drucker hat, befolgen Sie bitte Schritt 4.
4-2. Wenn Ihr Computer keinen Drucker hat, erscheint nach dem Drücken der Taste F5 oder dem Klicken auf die Schaltfläche Ausführen ein Dialogfenster, in dem Sie einen Ordner zum Speichern der PDF-Datei auswählen und die PDF-Datei benennen können. Klicken Sie auf Speichern.
Jetzt wurde die E-Mail als PDF ohne Bilder exportiert. Öffnen Sie die PDF-Datei, klicken Sie mit der rechten Maustaste darauf und wählen Sie Drucken, um die E-Mail auszudrucken.
Tipp: Wenn Sie mehrere ausgewählte E-Mails als PDF (oder Word-, CSV-, Excel-, Txt-, HTML-Dateien) mit Bildern, Kopfzeilen, Textkörpern und CCs speichern möchten, kann Ihnen die Funktion Massenspeichern von Kutools für Outlook helfen, die nur 3 Schritte erfordert.
1. Wählen Sie E-Mails aus.
2. Klicken Sie auf Kutools > Massenspeichern.
3. Wählen Sie einen Speicherort aus und aktivieren Sie die gewünschten Dateiformate. Klicken Sie auf OK.
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 die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
