Wie speichert man eine E-Mail als Bildformat (jpg/tiff) in Outlook?
Haben Sie jemals versucht, eine E-Mail als Bild, wie ein jpg- oder tiff-Bild, in Outlook zu speichern? Dieser Artikel zeigt Ihnen eine Methode zur Lösung dieses Problems.
E-Mail als Bildformat mit VBA-Code speichern
a name="a1">E-Mail als Bildformat mit VBA-Code speichern
Bitte gehen Sie wie folgt vor, um eine E-Mail als Bildformat in Outlook zu speichern.
1. Wählen Sie eine E-Mail aus, die Sie als Bild speichern möchten, und drücken Sie dann gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > UserForm. Siehe Screenshot:
3. Erstellen Sie ein Userform wie im folgenden Screenshot gezeigt.
4. Wählen Sie den jpg-Optionsbutton aus und ändern Sie seinen Namen im linken Eigenschaftenbereich in opbJPG.
5. Wiederholen Sie den obigen Schritt 4, um den anderen Optionsbutton in opbTIFF umzubenennen. Benennen Sie außerdem die OK- und Abbrechen-Kommandobuttons separat in cdbOk und cdbCancel um.
Hinweis: Wenn der Eigenschaftenbereich nicht im Fenster Microsoft Visual Basic for Applications angezeigt wird, drücken Sie bitte die F4-Taste, um den Bereich einzublenden.
6. Doppelklicken Sie auf einen leeren Bereich des Userforms, um das Codefenster zu öffnen. Ersetzen Sie den gesamten Code durch das folgende VBA-Skript. Schließen Sie dann das Codefenster.
VBA-Code 1: E-Mail als Bild speichern
Option Explicit
'Update by Extendoffice 2018/3/5
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
FrmPicType.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
FrmPicType.Hide
End Sub7. Wählen Sie UserForm1 aus und ändern Sie seinen Namen im Eigenschaftenbereich wie im folgenden Screenshot gezeigt in FrmPicType .
8. Klicken Sie auf Einfügen > Modul und kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
VBA-Code 2: E-Mail als Bild speichern
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Update by Extendoffice 2018/3/5
Sub ExportEmailAsImage()
Dim xMail As Outlook.MailItem
Dim xFileName, xFilePath, xWdDocPath As String
Dim xPPTApp As PowerPoint.Application
Dim xPresentation As PowerPoint.Presentation
Dim xPPTShape As PowerPoint.Shape
Dim xPicType As String
Dim xFileFormat As PpSaveAsFileType
On Error Resume Next
FrmPicType.Show
If FrmPicType.xRet Then
If FrmPicType.opbJPG.Value = True Then
xPicType = ".jpg"
xFileFormat = ppSaveAsJPG
ElseIf FrmPicType.opbTIFF.Value = True Then
xPicType = ".tiff"
xFileFormat = ppSaveAsTIF
End If
Else
Exit Sub
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFilePath = xFolderItem.Path & "\"
Else
xFilePath = ""
Exit Sub
End If
'ShellExecute 0, "Open", "POWERPNT.exe", "", "", 0
Set xPPTApp = New PowerPoint.Application
xPPTApp.Height = 0
xPPTApp.Width = 0
xPPTApp.WindowState = ppWindowMinimized
xPPTApp.Visible = msoFalse
For Each xMail In Outlook.Application.ActiveExplorer.Selection
xFileName = Replace(xMail.Subject, "/", " ")
xFileName = Replace(xFileName, "\", " ")
xFileName = Replace(xFileName, ":", "")
xFileName = Replace(xFileName, "?", " ")
xFileName = Replace(xFileName, Chr(34), " ")
xWdDocPath = Environ("Temp") & "\" & xFileName & ".doc"
xMail.SaveAs xWdDocPath, olDoc
Set xPresentation = xPPTApp.Presentations.Add
xPresentation.Application.WindowState = ppWindowMinimized
xPresentation.Application.Visible = msoFalse
With xPresentation
.PageSetup.SlideHeight = 900 '792
.PageSetup.SlideWidth = 612
.Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
End With
xPPTApp.WindowState = ppWindowMinimized
With xPresentation.Slides(1)
.Application.Visible = msoFalse
Set xPPTShape = .Shapes.AddOLEObject(0, 0, 612, 900, , xWdDocPath)
xPresentation.SaveAs xFilePath & xFileName & xPicType, xFileFormat, msoTrue
End With
xPresentation.Close
Next
xPPTApp.Quit
MsgBox "Mails has been successfully saved as picture", vbInformation + vbOKOnly
End Sub9. Klicken Sie auf Extras > Verweise, aktivieren Sie das Kontrollkästchen Microsoft PowerPoint Object Library und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
10. Drücken Sie die F5-Taste, um den Code auszuführen. Dann erscheint das Dialogfeld UserForm1. Wählen Sie einen Bildtyp aus und klicken Sie auf die Schaltfläche OK. Siehe Screenshot:
11. Geben Sie im Dialogfeld Ordner suchen einen Ordner an, um das Bild zu speichern, und klicken Sie dann auf die Schaltfläche OK.
12. Schließlich wird ein Microsoft Outlook-Dialogfeld angezeigt, das Sie über den Abschluss des Speicherns informiert. Klicken Sie bitte auf die Schaltfläche OK.
Nun werden die ausgewählten E-Mails in ein jpg- oder tiff-Bild konvertiert und erfolgreich in einem bestimmten Ordner gespeichert.
Verwandte Artikel:
- Wie speichert man alle Anhänge aus mehreren E-Mails in einen Ordner in Outlook?
- Wie entfernt man alle Anhänge aus einer E-Mail in Outlook?
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 ...
