Как быстро экспортировать все вложения изображений электронной почты Outlook в PDF Файл

Если вы хотите быстро экспортировать все вложения изображений электронной почты Outlook в PDF файл, вы можете использовать метод, представленный в этой статье. Он использует фрагмент кода VBA для быстрой реализации такого «экспорта».

Иногда вам может понадобиться объединить несколько изображений в один PDF файл, например, экспорт всех изображений, вложенных в электронное письмо, в PDF файл. Звучит немного сложно. Но далее мы покажем метод, с помощью которого можно быстро добиться этого без каких-либо хлопот.

Экспорт всех вложенных изображений электронной почты в PDF Файл

1. Для насtart, запустите программу Outlook, как обычно.
2. Затем в главном окне Outlook нажмите на клавиши «Alt + F11».
3. Впоследствии вы увидите всплывающее окно «Microsoft Visual Basic для приложений».
4. В этом окне вам нужно получить доступ к модулю, который не используется.
5. Затем вы можете скопировать и вставить следующий код VBA в этот модуль.

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. После этого можно закрыть текущее окно.
7. Позже вы можете перейти в «Файл»> «Параметры»> «Панель быстрого доступа». Теперь вы можете добавить новый макрос на панель быстрого доступа.
8. В конце концов, вы можете попробовать этот макрос.

• Прежде всего, откройте электронное письмо, вложения с изображениями которого вы хотите экспортировать в PDF .
• Затем нажмите кнопку макроса на панели быстрого доступа.
• Когда макрос завершится, вы получите сообщение.
• После этого вы можете перейти в предопределенную локальную папку, чтобы найти PDF файл, содержащий все изображения, прикрепленные к открытому письму.

Получить скомпрометированные данные Outlook

Если Outlook поврежден, вам следует приложить усилия для восстановления поврежденных данных. В этом случае вы можете сначала попробовать встроенный инструмент восстановления — Scanpst. Предполагая, что восстановление файла Outlook не подходит, вы также можете воспользоваться внешними инструментами, такими как DataNumen Outlook Repair. Это хорошо для восстановления поврежденный Outlook файлы с минимальным повреждением.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com