¿Cómo guardar un mensaje de correo electrónico como imagen (JPG/TIFF) en Outlook?

¿Ha intentado alguna vez guardar un mensaje de correo electrónico como imagen, por ejemplo en formato JPG o TIFF, directamente desde Outlook? En este artículo le mostramos un método sencillo para lograrlo.

Guardar mensaje de correo electrónico en formato de imagen con código VBA

---

Guardar mensaje de correo electrónico en formato de imagen con código VBA

Siga estos sencillos pasos para guardar un mensaje de correo electrónico como imagen en Outlook.

1. Seleccione un correo electrónico que desee guardar como imagen y, a continuación, pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > UserForm. Vea la captura de pantalla:

3. Cree un UserForm tal como se muestra en la siguiente captura de pantalla.

4. Seleccione el botón de opción jpg y cámbiele el nombre a opbJPG en el panel izquierdo de Propiedades.

5. Repita el paso anterior 4 para cambiar el nombre del otro botón de opción a opbTIFF. A continuación, cambie el nombre del botón de comando Aceptar y del botón de comando Cancelar a cdbOk y cdbCancel, respectivamente.

Nota: Si el panel de Propiedades no aparece en la ventana de Microsoft Visual Basic para Aplicaciones, pulse la tecla F4 para mostrarlo.

6. Haga doble clic en cualquier espacio en blanco del formulario de usuario para abrir la ventana de Código. Sustituya todo el código por el siguiente script de VBA y, a continuación, cierre la ventana de Código.

Código VBA 1: Guardar mensaje de correo electrónico como imagen

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. Seleccione el UserForm1 y cámbiele el nombre a FrmPicType en el panel de Propiedades, tal como se muestra en la siguiente captura de pantalla.

8. Haga clic en Insertar > Módulo y, a continuación, copie el siguiente código VBA en la ventana del módulo.

Código VBA 2: Guardar mensaje de correo electrónico como imagen

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. Haga clic en Herramientas > Referencias, active la casilla Microsoft PowerPoint Object Library y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:

10. Pulse la tecla F5 para ejecutar el código. A continuación, aparecerá el cuadro de diálogo UserForm1. Seleccione un tipo de imagen y haga clic en el botón Aceptar. Vea la captura de pantalla:

11. En el cuadro de diálogo Examinar carpetas, especifique la carpeta en la que desea guardar la imagen y, a continuación, haga clic en el botón Aceptar.

12. Por último, aparecerá un cuadro de diálogo de Microsoft Outlook que le informará de que se ha completado el guardado. Haga clic en el botón Aceptar.

Ahora, los correos electrónicos seleccionados se han convertido en una imagen JPG o TIFF y se han guardado correctamente en la carpeta especificada.

---

Artículos relacionados:

• ¿Cómo guardar todos los archivos adjuntos de varios correos electrónicos en una sola carpeta en Outlook?
• ¿Cómo eliminar todos los archivos adjuntos de un correo electrónico en Outlook?