Cum să exportați rapid toate atașamentele de imagine ale unui e-mail Outlook într-un PDF Fișier

Dacă doriți să exportați rapid toate atașamentele de imagine ale unui e-mail Outlook într-un PDF fișier, puteți folosi metoda introdusă în acest articol. Utilizează o bucată de cod VBA pentru a realiza un astfel de „export” în timp scurt.

Uneori, este posibil să doriți să combinați multe imagini pentru a PDF fișier, cum ar fi exportul tuturor atașamentelor de imagine ale unui e-mail la a PDF fişier. Sună puțin dificil. Dar în cele ce urmează, vom arăta o metodă, care poate realiza rapid acest lucru, fără nicio bătaie de cap.

Exportați toate atașamentele de imagine ale unui e-mail la a PDF Fișier

1. Pentru început, lansați programul Outlook ca de obicei.
2. Apoi, în fereastra principală Outlook, atingeți butoanele tastei „Alt + F11”.
3. Ulterior, veți vedea fereastra pop-up „Microsoft Visual Basic pentru aplicații”.
4. În această fereastră, trebuie să accesați un modul care nu este utilizat.
5. Apoi, puteți copia și lipi următorul cod VBA în acest modul.

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. După aceea, puteți închide fereastra curentă.
7. Mai târziu, puteți accesa „Fișier” > „Opțiuni” > „Bara de instrumente cu acces rapid”. Acum puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid.
8. În cele din urmă, puteți încerca această macrocomandă.

• Mai întâi, deschideți un e-mail ale cărui atașamente de imagine doriți să le exportați PDF fișier.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• După finalizarea macrocomenzii, veți primi un mesaj.
• După aceea, puteți merge la folderul local predefinit pentru a găsi un PDF fișier, care conține toate imaginile atașate e-mailului deschis.

Preluați date Outlook compromise

Dacă Outlook este corupt, ar trebui să faceți eforturi pentru a recupera datele deteriorate. În acest caz, puteți încerca mai întâi instrumentul de reparare încorporat – Scanpst. Presupunând că nu este la înălțimea sarcinii de a repara fișierul Outlook, puteți folosi și instrumente externe, cum ar fi DataNumen Outlook Repair. Este bun la restaurare Outlook deteriorat fișiere cu o corupție minimă.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparatie mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com