Come si fa a salvare un messaggio email come immagine (JPG/TIFF) in Outlook?

Hai mai provato a salvare un messaggio email come immagine, ad esempio in formato JPG o TIFF, direttamente da Outlook? In questo articolo ti sveliamo un metodo efficace per farlo.

Salva il messaggio email in formato immagine con codice VBA

---

Salva il messaggio email in formato immagine con codice VBA

Per salvare un messaggio email come immagine in Outlook, procedi nel seguente modo:

1. Seleziona un'email che desideri salvare come immagine, quindi premi contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > UserForm. Vedi screenshot:

3. Crea un UserForm come mostrato nello screenshot seguente.

4. Seleziona il pulsante di opzione jpg e modifica il suo nome in opbJPG nel riquadro sinistro delle Proprietà.

5. Ripeti il passaggio precedente 4 per rinominare l’altro pulsante di opzione in opbTIFF. Inoltre, rinomina rispettivamente il pulsante di comando OK e il pulsante di comando Annulla in cdbOk e cdbCancel.

Nota: se il riquadro delle Proprietà non è visibile nella finestra di Microsoft Visual Basic for Applications, premi il tasto F4 per visualizzarlo.

6. Fai doppio clic su uno spazio vuoto nell’UserForm per aprire la finestra del Codice. Sostituisci tutto il codice con lo script VBA seguente, quindi chiudi la finestra del Codice.

Codice VBA 1: Salva il messaggio email come immagine

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. Seleziona UserForm1 e modifica il suo nome in FrmPicType nel riquadro delle Proprietà, come mostrato nello screenshot seguente.

8. Fai clic su Inserisci > Modulo, quindi copia il seguente codice VBA nella finestra del modulo.

Codice VBA 2: Salva il messaggio email come immagine

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. Fai clic su Strumenti > Riferimenti, seleziona la casella Microsoft PowerPoint Object Library e poi fai clic sul pulsante OK. Vedi screenshot:

10. Premi il tasto F5 per eseguire il codice. Si aprirà quindi la finestra di dialogo UserForm1. Seleziona un tipo di immagine e fai clic sul pulsante OK. Vedi screenshot:

11. Nella finestra di dialogo Sfoglia cartelle, specifica la cartella in cui salvare l’immagine, quindi fai clic sul pulsante OK.

12. Infine, verrà visualizzata una finestra di dialogo di Microsoft Outlook per informarti del completamento del salvataggio. Fai clic sul pulsante OK.

Le email selezionate sono state ora convertite in un'immagine JPG o TIFF e salvate correttamente nella cartella specificata.

---

Articoli correlati:

• Come salvare tutti gli allegati da più email in una singola cartella in Outlook?
• Come si fa a rimuovere tutti gli allegati da un'email in Outlook?