Kā ātri eksportēt visus Outlook e-pasta e-pasta attēlu pielikumus uz a PDF fileja

Ja vēlaties ātri eksportēt visus Outlook e-pasta attēlu pielikumus uz a PDF failu, varat izmantot šajā rakstā aprakstīto metodi. Tas izmanto VBA koda gabalu, lai ātri realizētu šādu “eksportu”.

Dažkārt, iespējams, vēlēsities apvienot daudzus attēlus ar a PDF failu, piemēram, eksportējot visus e-pasta attēla pielikumus uz a PDF failu. Tas izklausās mazliet grūti. Bet turpmāk mēs parādīsim metodi, ar kuru to var ātri sasniegt bez jebkādām problēmām.

Eksportēt visus e-pasta attēlu pielikumus uz a PDF fileja

1. Lai sāktu, palaidiet savu Outlook programmu kā parasti.
2. Pēc tam galvenajā Outlook logā pieskarieties taustiņu taustiņiem “Alt + F11”.
3. Pēc tam jūs redzēsit uznirstošo logu “Microsoft Visual Basic for Applications”.
4. Šajā logā jums ir jāpiekļūst modulim, kas netiek izmantots.
5. Pēc tam varat kopēt un ielīmēt šo VBA kodu šajā 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. Pēc tam jūs varat aizvērt pašreizējo logu.
7. Vēlāk varat doties uz "Fails" > "Opcijas" > "Ātrās piekļuves rīkjosla". Tagad jauno makro varat pievienot ātrās piekļuves rīkjoslai.
8. Galu galā jūs varat izmēģināt šo makro.

• Vispirms atveriet e-pasta ziņojumu, kura attēlu pielikumus vēlaties eksportēt uz a PDF fails.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas makro.
• Kad makro būs pabeigts, jūs saņemsit ziņojumu.
• Pēc tam varat doties uz iepriekš noteiktu vietējo mapi, lai atrastu a PDF failu, kurā ir visi atvērtajam e-pasta ziņojumam pievienotie attēli.

Izgūstiet apdraudētos Outlook datus

Ja programma Outlook tiek bojāta, jums ir jāpieliek pūles, lai atgūtu bojātos datus. Šajā gadījumā vispirms varat izmēģināt iebūvēto labošanas rīku – Scanpst. Pieņemot, ka Outlook faila labošanas uzdevums nav veikt, varat izmantot arī ārējos rīkus, piemēram, DataNumen Outlook Repair. Tas labi palīdz atjaunot bojāta Outlook faili ar minimālu bojājumu.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar