¿Cómo guardar un mensaje de correo electrónico como formato de imagen (jpg / tiff) en Outlook?

¿Alguna vez ha intentado guardar un mensaje de correo electrónico como una imagen como jpg o tiff en Outlook? Este artículo le mostrará un método para resolver este problema.

Guarde el mensaje de correo electrónico como formato de imagen con código VBA

Guarde el mensaje de correo electrónico como formato de imagen con código VBA

Haga lo siguiente para guardar un mensaje de correo electrónico como formato de imagen en Outlook.

1. Seleccione un correo electrónico que guardará como imagen y luego presione el otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Formulario de usuario. Ver captura de pantalla:

3. Crear un Formulario de usuario como se muestra a continuación.

4. Seleccione Opción jpg y cambie su nombre a opbJPG En la izquierda Propiedades cristal.

5. Repita el paso 4 anterior para cambiar el nombre del botón de otras opciones como opbTIFF. Y renombrar el OK botón de comando y el Cancelar botón de comando como cdbBien y cdbCancelar por separado.

Note: Si el Propiedades el panel no se muestra en el Microsoft Visual Basic para aplicaciones ventana, haga clic en el F4 clave para abrir el panel.

6. Haga doble clic en cualquier espacio en blanco del formulario de usuario para abrir el Código ventana. Reemplace todo el código con el siguiente script VBA. Y luego cierre la ventana Código.

Código VBA 1: guardar el 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 Formulario de usuario1 y cambia su nombre a Tipo de imagen Frm existentes Propiedades panel como se muestra a continuación.

8. Hacer clic en recuadro > Móduloy luego copie el siguiente código VBA en la ventana Módulo.

Código VBA 2: guardar el 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. Hacer clic en Herramientas > Referencias, comprueba la Biblioteca de objetos de Microsoft PowerPoint cuadro y luego haga clic en el OK botón. Ver captura de pantalla:

10. presione el F5 clave para ejecutar el código. Entonces la Formulario de usuario1 Aparece el cuadro de diálogo, seleccione un tipo de imagen y haga clic en el OK botón. Ver captura de pantalla:

11. En el Busca por carpetas cuadro de diálogo, especifique una carpeta para guardar la imagen y luego haga clic en el OK del botón.

12. Finalmente, un microsoft Outlook Aparecerá un cuadro de diálogo para informarle sobre la finalización del guardado. Por favor haga clic en OK del botón.