Outlook: So drucken Sie E-Mails ohne Bilder
Beim Drucken einer E-Mail in Outlook werden im Allgemeinen auch die Bilder gedruckt. Aber manchmal möchten Sie nur die Texte ohne die Bilder drucken, aber in Outlook gibt es keine integrierte Funktion, die diesen Job unterstützen kann. Dieses Tutorial enthält einen VBA-Code, der die bildfreie E-Mail sofort über Word druckt. Oder wenn Ihr Computer keinen Drucker hat, exportiert der VBA-Code die E-Mail zuerst als PDF ohne Bilder, und dann können Sie das PDF drucken, sobald der Drucker verfügbar ist.
VBA zum Drucken von E-Mails ohne Bilder
- Automatisieren Sie den E-Mail-Versand mit Auto CC / BCC, Automatische Weiterleitung nach Regeln; schicken Automatische Antwort (Abwesend) ohne dass ein Exchange-Server erforderlich ist ...
- Erhalten Sie Erinnerungen wie BCC-Warnung wenn Sie auf alle antworten, während Sie sich in der BCC-Liste befinden, und Bei fehlenden Anhängen erinnern für vergessene Anhänge...
- Verbessern Sie die E-Mail-Effizienz mit (Allen) mit Anhängen antworten, Begrüßung oder Datum und Uhrzeit automatisch zur Signatur oder zum Betreff hinzufügen, Beantworten Sie mehrere E-Mails...
- Optimieren Sie den E-Mail-Versand mit E-Mails abrufen, Anbaugeräte (Alles komprimieren, Alles automatisch speichern...), Duplikate entfernen und Kurzbericht...
VBA zum Drucken von E-Mails ohne Bilder
1. Wählen Sie eine E-Mail aus, bei der Sie nur den Text drucken möchten, und drücken Sie dann Andere + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul Um ein neues leeres Modul zu erstellen, kopieren Sie den folgenden Code und fügen Sie ihn in das Modul ein.
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 Tools > Bibliographie ermöglichen Bibliographie - Projekt 1 Dialog, ankreuzen Microsoft Word 16.0-Objektbibliothek Kontrollkästchen. Klicken OK.
4-1. Halten Sie den Cursor innerhalb des Codes und drücken Sie F5 Taste oder klicken Führen Sie Schaltfläche, um den Code auszuführen, dann wird die E-Mail ohne Bilder sofort über Word gedruckt. Wenn Ihr Computer jedoch keinen Drucker hat, folgen Sie bitte Schritt 4.
4-2. Wenn Ihr Computer keinen Drucker hat, drücken Sie nach dem Drücken von F5 Taste oder klicken Führen Sie Schaltfläche, um den Code auszuführen, erscheint ein Dialogfeld zur Auswahl eines Ordners zum Platzieren der PDF-Datei und zum Benennen der PDF-Datei. Klicken Speichern.
Jetzt wurde die E-Mail als PDF ohne Bilder exportiert. Öffnen Sie die PDF-Datei und klicken Sie mit der rechten Maustaste, um sie auszuwählen Print um die E-Mail auszudrucken.
Tipp: Wenn Sie ausgewählte E-Mails als PDF-Dateien (oder Word-, CSV-, Excel-, Txt-, HTML-Dateien) mit Bildern, Kopfzeilen, Textkörpern, Ccs, den Massenspeicherung Merkmal von Kutools for Outlook kann Ihnen helfen, die nur 3 Schritte benötigen.
1. Wählen Sie E-Mails aus.
2 Klicken Kutoolen > Massenspeicherung.
3. Wählen Sie einen Speicherort und markieren Sie das/die gewünschte(n) Dateiformat(e), klicken Sie auf OK.
Holen Sie sich jetzt eine kostenlose 30-Tage-Testversion von Kutools für Outlook.
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.