Как бързо да експортирате всички прикачени изображения на имейл в Outlook в PDF досие

Ако искате бързо да експортирате всички прикачени изображения на имейл на Outlook в a PDF файл, можете да използвате метода, представен в тази статия. Той използва част от VBA код, за да реализира такъв „експорт“ за бързо време.

Понякога може да искате да комбинирате много изображения в a PDF файл, като експортиране на всички прикачени изображения на имейл към a PDF файл. Звучи малко трудно. Но по-долу ще покажем метод, който може бързо да постигне това без никакви проблеми.

Експортирайте всички прикачени изображения към имейл към a PDF досие

1. За начало стартирайте програмата 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. В крайна сметка можете да опитате този макрос.

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

Извличане на компрометирани данни на Outlook

Ако Outlook се повреди, трябва да положите усилия да възстановите повредените данни. В този случай първо можете да опитате вградения инструмент за ремонт – Scanpst. Ако приемем, че не е за задачата да поправите файл на Outlook, можете да се възползвате и от външни инструменти, като напр. DataNumen Outlook Repair. Добър е за възстановяване повреден Outlook файлове с минимална повреда.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf ремонт и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com