Jak rychle exportovat část e-mailu aplikace Outlook jako PDF Soubor

Pokud chcete exportovat část e-mailu aplikace Outlook, namísto celého e-mailu, jako PDF souboru, můžete si přečíst tento článek. Zde vás provedeme, jak toho dosáhnout pomocí kódu VBA.

Z mých předchozích článků - „Jak uložit e-mail aplikace Outlook jako PDF Soubor"A"Jak rychle exportovat více e-mailů aplikace Outlook jako jeden PDF Soubor”, Můžete se naučit způsoby, jak exportovat celý e-mail jako PDF soubor. Někdy však chcete část e-mailu exportovat jako PDF soubor. V tomto okamžiku můžete k realizaci použít následující kód VBA. Pokud zcela nevíte, jak používat VBA, můžete se podívat na článek - „Jak spustit kód VBA ve vašem Outlooku“Mezitím.

Exportujte část e-mailu jako PDF Soubor

1. Pro začátek spusťte program Outlook.
2. Poté přejděte do editoru aplikace Outlook VBA pomocí klávesových zkratek „Alt + F11“.
3. Dále v tomto novém okně otevřete nepoužívaný modul.
4. Následně zkopírujte a vložte následující kód VBA do tohoto modulu.

Sub ExportSelectionAsPDF()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
    Dim objWordApp As Word.Application
    Dim objTempDocument As Word.Document
    Dim strPDF As String
 
    'Get the currently opened email
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objMail Is Nothing Then
       'Copy the current selection
       Set objMailDocument = objMail.GetInspector.WordEditor
       Set objDocSelection = objMailDocument.Application.Selection
       objDocSelection.Copy
 
       'Paste the selection into a new Word document
       Set objWordApp = CreateObject("Word.Application")
       Set objTempDocument = objWordApp.Documents.Add
       objWordApp.Visible = True
       objTempDocument.Activate
       objWordApp.Selection.EndKey wdStory
       objWordApp.Selection.PasteAndFormat wdPasteDefault
 
       'Export the document as a PDF file
       'Change the path as per your needs
       strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
       objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

       objTempDocument.Close False
       objWordApp.Quit
    End If
End Sub

5. Poté byste měli přidat nové makro na panel nástrojů Rychlý přístup v okně zprávy.
6. Nakonec můžete pořídit snímek:

• Nejprve otevřete e-mail.
• Poté vyberte obsah, který chcete exportovat.
• Dále klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Makro se najednou spustí.
• Po dokončení makra můžete přejít do předdefinované místní složky, kde uvidíte novou PDF soubor.
• Otevřete jej a uvidíte, že to vypadá jako na následujícím snímku obrazovky:

Efektivní opatření po poškození aplikace Outlook

Navzdory tomu, že se může pochlubit mnoha vynikajícími funkcemi, Outlook stále nemůže být imunní vůči poškození. Ve skutečnosti je náchylný k poškození v důsledku různých faktorů, jako jsou viry, malware, chyby softwaru a problémy s hardwarem atd. V tomto scénáři je nezbytné podniknout kroky k záchraně poškozených dat aplikace Outlook, včetně spuštění scanpst opravit soubor, zkontrolovat nejnovější zálohy a využít výkonný a spolehlivý nástroj pro opravu PST, jako je například DataNumen Outlook Repair.

Ú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ě opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com