Como exportar rapidamente todos os anexos de imagem de um e-mail do Outlook para um PDF Envie o

Se você deseja exportar rapidamente todos os anexos de imagem de um e-mail do Outlook para um PDF arquivo, você pode usar o método apresentado neste artigo. Ele utiliza um trecho de código VBA para realizar essa “exportação” rapidamente.

Às vezes, você pode querer combinar muitas imagens em uma PDF arquivo, como exportar todos os anexos de imagem de um e-mail para um PDF arquivo. Parece um pouco difícil. Mas a seguir, mostraremos um método que pode fazer isso rapidamente e sem complicações.

Exportar todos os anexos de imagem de um e-mail para um PDF Envie o

1. Para começar, abra o Outlook como de costume.
2. Em seguida, na janela principal do Outlook, toque nos botões de teclas “Alt + F11”.
3. Posteriormente, você verá a janela pop-up “Microsoft Visual Basic for Applications”.
4. Nesta janela, você precisa acessar um módulo que não está sendo usado.
5. Em seguida, você pode copiar e colar o seguinte código VBA neste 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. Depois disso, você pode fechar a janela atual.
7. Posteriormente, você pode ir em “Arquivo” > “Opções” > “Barra de Ferramentas de Acesso Rápido”. Agora você pode adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.
8. Eventualmente, você pode tentar esta macro.

• Primeiro, abra um e-mail cujos anexos de imagem você deseja exportar para um PDF arquivo.
• Em seguida, clique no botão de macro na Barra de Ferramentas de Acesso Rápido.
• Quando a macro for concluída, você receberá uma mensagem.
• Depois disso, você pode ir para a pasta local predefinida para encontrar um PDF arquivo, que contém todas as imagens anexadas ao e-mail aberto.

Recuperar Dados Comprometidos do Outlook

Se o Outlook for corrompido, você deve fazer esforços para recuperar os dados danificados. Nesse caso, você pode primeiro tentar a ferramenta de reparo integrada - Scanpst. Supondo que não cabe a tarefa de reparar o arquivo do Outlook, você também pode usar ferramentas externas, como DataNumen Outlook Repair. É bom para restaurar Outlook danificado arquivos com uma corrupção minimizada.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo conserto de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com