Jak rychle exportovat všechny obrázkové přílohy e-mailu aplikace Outlook do a PDF Soubor

Pokud byste chtěli rychle exportovat všechny obrázkové přílohy e-mailu aplikace Outlook do a PDF soubor, můžete použít metodu uvedenou v tomto článku. K realizaci takového „exportu“ v rychlém čase využívá kus kódu VBA.

Někdy můžete chtít zkombinovat mnoho obrázků do a PDF soubor, jako je export všech obrázkových příloh e-mailu do a PDF soubor. Zní to trochu obtížně. Ale v následujícím si ukážeme metodu, která toho může rychle dosáhnout bez jakýchkoli potíží.

Exportujte všechny obrazové přílohy e-mailu do a PDF Soubor

1. Pro začátek spusťte program Outlook jako obvykle.
2. Poté v hlavním okně aplikace Outlook klepněte na tlačítka kláves „Alt + F11“.
3. Následně se zobrazí vyskakovací okno „Microsoft Visual Basic for Applications“.
4. V tomto okně musíte získat přístup k modulu, který se nepoužívá.
5. Dále můžete zkopírovat a vložit následující kód VBA do tohoto modulu.

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. Poté můžete zavřít aktuální okno.
7. Později můžete přejít na „Soubor“ > „Možnosti“ > „Panel nástrojů Rychlý přístup“. Nyní můžete přidat nové makro na panel nástrojů Rychlý přístup.
8. Nakonec můžete toto makro vyzkoušet.

• Nejprve otevřete e-mail, jehož obrázkové přílohy chcete exportovat do a PDF soubor.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Po dokončení makra obdržíte zprávu.
• Poté můžete přejít do předdefinované místní složky a najít a PDF soubor, který obsahuje všechny obrázky připojené k otevřenému e-mailu.

Načíst kompromitovaná data aplikace Outlook

Pokud dojde k poškození aplikace Outlook, měli byste se pokusit poškozená data obnovit. V tomto případě můžete nejprve vyzkoušet vestavěný opravný nástroj – Scanpst. Za předpokladu, že není na opravu souboru aplikace Outlook, můžete také využít externí nástroje, jako je např. DataNumen Outlook Repair. Je to dobré na obnovu poškozený Outlook soubory s minimálním poškozením.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava MDF a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com