Jak szybko wyeksportować wszystkie załączniki obrazu z wiadomości e-mail programu Outlook do pliku PDF Plik

Jeśli chcesz szybko wyeksportować wszystkie załączniki obrazów wiadomości e-mail programu Outlook do pliku PDF możesz skorzystać z metody przedstawionej w tym artykule. Wykorzystuje fragment kodu VBA do realizacji takiego „eksportu” w krótkim czasie.

Czasami możesz chcieć połączyć wiele obrazów w plik PDF plik, na przykład eksportowanie wszystkich załączników do wiadomości e-mail z obrazami do pliku PDF plik. Brzmi trochę trudno. Ale poniżej pokażemy metodę, która może szybko osiągnąć to bez żadnych kłopotów.

Eksportuj wszystkie załączniki obrazu do wiadomości e-mail do pliku PDF Plik

1. Jaktart, uruchom program Outlook w zwykły sposób.
2. Następnie w głównym oknie Outlooka naciśnij klawisze „Alt + F11”.
3. Następnie pojawi się wyskakujące okno „Microsoft Visual Basic for Applications”.
4. W tym oknie musisz uzyskać dostęp do modułu, który nie jest używany.
5. Następnie możesz skopiować i wkleić następujący kod VBA do tego modułu.

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. Następnie możesz zamknąć bieżące okno.
7. Później możesz przejść do „Plik”> „Opcje”> „Pasek narzędzi szybkiego dostępu”. Teraz możesz dodać nowe makro do paska narzędzi szybkiego dostępu.
8. W końcu możesz wypróbować to makro.

• Po pierwsze, otwórz wiadomość e-mail, której załączniki obrazów chcesz wyeksportować do pliku PDF plik.
• Następnie kliknij przycisk makra na pasku narzędzi Szybki dostęp.
• Po zakończeniu działania makra otrzymasz komunikat.
• Następnie możesz udać się do wstępnie zdefiniowanego folderu lokalnego, aby znaleźć plik PDF plik, który zawiera wszystkie obrazy załączone do otwartej wiadomości e-mail.

Pobierz zaatakowane dane programu Outlook

Jeśli program Outlook zostanie uszkodzony, należy podjąć wysiłki w celu odzyskania uszkodzonych danych. W takim przypadku możesz najpierw wypróbować wbudowane narzędzie naprawcze - Scanpst. Zakładając, że naprawa pliku Outlooka nie jest w stanie sprostać zadaniu, możesz również skorzystać z narzędzi zewnętrznych, takich jak DataNumen Outlook Repair. Jest dobry w przywracaniu uszkodzony Outlook pliki ze zminimalizowanym uszkodzeniem.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com