Ako rýchlo exportovať všetky obrazové prílohy e-mailu z programu Outlook do PDF rezeň

Ak chcete rýchlo exportovať všetky obrázkové prílohy e-mailov z Outlooku do a PDF súboru, môžete použiť metódu uvedenú v tomto článku. Využíva kúsok kódu VBA na uskutočnenie takéhoto „exportu“ v rýchlom čase.

Možno budete niekedy chcieť spojiť veľa obrázkov do a PDF súbor, ako napríklad export všetkých obrazových príloh e-mailu do súboru PDF spis. Znie to trochu ťažko. Ale v nasledujúcich ukážkach si ukážeme metódu, ktorá to dokáže rýchlo dosiahnuť bez akýchkoľvek ťažkostí.

Exportujte všetky obrazové prílohy e-mailu do a PDF rezeň

1. Na začiatok spustite program Outlook ako obvykle.
2. Potom v hlavnom okne Outlooku klepnite na kľúčové tlačidlá „Alt + F11“.
3. Následne uvidíte vyskakovacie okno „Microsoft Visual Basic for Applications“.
4. V tomto okne musíte získať prístup k modulu, ktorý sa práve nepoužíva.
5. Ďalej môžete do tohto modulu skopírovať a vložiť nasledujúci kód 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. Potom môžete zavrieť aktuálne okno.
7. Neskôr môžete prejsť na „Súbor“> „Možnosti“> „Panel nástrojov Rýchly prístup“. Teraz môžete pridať nové makro na panel s nástrojmi Rýchly prístup.
8. Nakoniec môžete toto makro vyskúšať.

• Najskôr otvorte e-mail, ktorého obrázkové prílohy chcete exportovať do PDF súbor.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Po dokončení makra dostanete správu.
• Potom môžete prejsť do preddefinovaného miestneho priečinka a nájsť PDF súbor, ktorý obsahuje všetky obrázky pripojené k otvorenému e-mailu.

Načítajte kompromitované údaje Outlooku

Ak dôjde k poškodeniu Outlooku, mali by ste sa pokúsiť poškodené dáta obnoviť. V takom prípade môžete najskôr vyskúšať zabudovaný nástroj na opravu - Scanpst. Za predpokladu, že oprava súboru Outlooku nie je v poriadku, môžete využiť aj externé nástroje, ako napr DataNumen Outlook Repair. Je dobrý pri obnove poškodený Outlook súbory s minimalizovaným poškodením.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S