Cómo exportar rápidamente todos los archivos adjuntos de imágenes de un correo electrónico de Outlook a un PDF Archivo

Si desea exportar rápidamente todos los archivos adjuntos de imágenes de un correo electrónico de Outlook a un PDF archivo, puede utilizar el método presentado en este artículo. Utiliza un fragmento de código VBA para realizar dicha "exportación" en un tiempo rápido.

A veces, es posible que desee combinar muchas imágenes en una PDF archivo, como exportar todos los archivos adjuntos de imagen de un correo electrónico a un PDF expediente. Suena un poco difícil. Pero a continuación, mostraremos un método que puede lograrlo rápidamente sin problemas.

Exportar todos los archivos adjuntos de imagen de un correo electrónico a un PDF Archivo

1. Para empezar, abre tu programa Outlook como de costumbre.
2. Luego, en la ventana principal de Outlook, toque los botones de la tecla "Alt + F11".
3. Posteriormente, verá la ventana emergente "Microsoft Visual Basic para aplicaciones".
4. En esta ventana, debe acceder a un módulo que no se está utilizando.
5. A continuación, puede copiar y pegar el siguiente código VBA en este módulo.

Sub ExportAllImageAttachmentsIntoPdfFile()
    Dim objSourceMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strImage As String
    Dim objInlineShape As Word.InlineShape
    Dim strPDF As String
 
    Set objSourceMail = Application.ActiveInspector.currentItem
 
    If Not (objSourceMail Is Nothing) Then
 
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
 
       strTempFolder = Environ("Temp") & "\" & Format(Now, "yyyymmddhhmmss") & "\"
       MkDir (strTempFolder)
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
       For Each objAttachment In objSourceMail.Attachments
           If IsEmbedded(objAttachment) = False Then
              Select Case LCase(objFileSystem.GetExtensionName(objAttachment.filename))
                     Case "jpg", "jpeg", "png", "bmp", "gif"
                           objAttachment.SaveAsFile strTempFolder & objAttachment.filename
              End Select
           End If
       Next
 
       strImage = Dir(strTempFolder & "*.*", vbNormal)

       Do Until Len(strImage) = 0
          With Selection
               .InlineShapes.AddPicture (strTempFolder & strImage)
               .TypeParagraph
               .Collapse Direction:=wdCollapsEnd
               .ParagraphFormat.Alignment = wdAlignParagraphCenter
               .TypeParagraph
          End With
          strImage = Dir()
       Loop

       For Each objInlineShape In objTempDocument.InlineShapes
           objInlineShape.Select
           Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
           objInlineShape.ScaleHeight = 50
           objInlineShape.ScaleWidth = 50
       Next
 
       'Change the path to save the PDF file
       strPDF = "E:\Image Attachments.pdf"
 
       'Export the temp Word document as a PDF file
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
  
       objTempDocument.Close False
       objWordApp.Quit
 
       MsgBox "Complete!" 
    End If
End Sub

Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

6. Después de eso, puede cerrar la ventana actual.
7. Más tarde, puede ir a "Archivo"> ​​"Opciones"> "Barra de herramientas de acceso rápido". Ahora puede agregar la nueva macro a la barra de herramientas de acceso rápido.
8. Eventualmente, puede probar esta macro.

• En primer lugar, abra un correo electrónico cuyos archivos adjuntos de imagen desee exportar a un PDF .
• Luego, haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Cuando se complete la macro, recibirá un mensaje.
• Después de eso, puede dirigirse a la carpeta local predefinida para encontrar una PDF archivo, que contiene todas las imágenes adjuntas al correo electrónico abierto.

Recuperar datos de Outlook comprometidos

Si Outlook se corrompe, debe esforzarse por recuperar los datos dañados. En este caso, primero puede probar la herramienta de reparación incorporada: Scanpst. Suponiendo que no está a la altura de la tarea de reparar el archivo de Outlook, también puede utilizar herramientas externas, como DataNumen Outlook Repair. Es bueno para restaurar Outlook dañado archivos con una corrupción minimizada.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparación de mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com