Hoe sla je een e-mailbericht op als afbeeldingsformaat (jpg/tiff) in Outlook op?

Heb je ooit geprobeerd om een e-mailbericht op te slaan als een afbeelding, zoals een jpg of tiff-afbeelding in Outlook? Dit artikel laat je een methode zien om dit probleem op te lossen.

Sla e-mailbericht op als afbeeldingsformaat met VBA-code

Sla e-mailbericht op als afbeeldingsformaat met VBA-code

Volg de volgende stappen om een e-mailbericht op te slaan als afbeeldingsformaat in Outlook.

1. Selecteer een e-mail die je wilt opslaan als afbeelding, en druk vervolgens tegelijkertijd op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications -venster op Invoegen > UserForm. Zie screenshot:

3. Maak een Userform zoals in de onderstaande screenshot wordt getoond.

4. Selecteer de jpg Optieknop en verander de naam ervan in opbJPG in het linker Eigenschappenpaneel.

5. Herhaal stap 4 hierboven om de andere optieknop te hernoemen naar opbTIFF. En hernoem de OK-knop en de Annuleren-knop naar cdbOk en cdbCancel respectievelijk.

Opmerking: Als het Eigenschappenpaneel niet zichtbaar is in het Microsoft Visual Basic for Applications-venster, klik dan op de F4-toets om het paneel te laten verschijnen.

6. Dubbelklik op een lege ruimte in de userform om het Code-venster te openen. Vervang alle code door het volgende VBA-script. Sluit vervolgens het Code-venster.

VBA-code 1: Sla e-mailbericht op als afbeelding

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 Sub

7. Selecteer de UserForm1 en verander de naam ervan in FrmPicType in het Eigenschappenpaneel zoals in de onderstaande screenshot wordt getoond.

8. Klik op Invoegen > Module, en kopieer vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code 2: Sla e-mailbericht op als afbeelding

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 Sub

9. Klik op Tools > Referenties, vink het vakje Microsoft PowerPoint Object Library aan en klik vervolgens op de OK-knop. Zie screenshot:

10. Druk op de F5-toets om de code uit te voeren. Het dialoogvenster UserForm1 verschijnt, selecteer een afbeeldingstype en klik op de OK-knop. Zie screenshot:

11. Geef in het dialoogvenster Bladeren naar map een map op waarin de afbeelding moet worden opgeslagen en klik vervolgens op de OK-knop.

12. Tot slot verschijnt er een Microsoft Outlook-dialoogvenster dat je informeert over de voltooiing van het opslaan. Klik op de OK-knop.

Nu zijn de geselecteerde e-mails geconverteerd naar een jpg- of tiff-afbeelding en succesvol opgeslagen in een gespecificeerde map.

Gerelateerde artikelen:

• Hoe sla je alle bijlagen van meerdere e-mails op naar een map in Outlook op?
• Hoe verwijder je alle bijlagen uit een e-mail in Outlook?

---

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

• ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
• 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
• 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite