Kaip greitai eksportuoti dalį Outlook el. pašto kaip a PDF filė

Jei norite eksportuoti dalį Outlook el. laiško, o ne visą el. laišką, kaip a PDF failą, galite perskaityti šį straipsnį. Čia mes padėsime jums tai pasiekti naudojant VBA kodą.

Iš mano ankstesnių straipsnių – „Kaip išsaugoti „Outlook“ el. laišką kaip a PDF filė"Ir"Kaip greitai eksportuoti kelis „Outlook“ el. laiškus kaip vieną PDF filė“, galite sužinoti, kaip eksportuoti visą el. laišką kaip PDF failą. Nepaisant to, kartais norite eksportuoti el. laiško dalį kaip a PDF failą. Tuo metu galite naudoti šį VBA kodą, kad jį suprastumėte. Jei visiškai nežinote, kaip naudotis VBA, galite peržiūrėti straipsnį - "Kaip paleisti VBA kodą „Outlook“.“ tuo tarpu.

El. laiško dalies eksportavimas kaip a PDF filė

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pasiekite „Outlook VBA“ redaktorių naudodami sparčiuosius klavišus „Alt + F11“.
3. Tada šiame naujame lange atidarykite nenaudojamą modulį.
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį modulį.

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. Po to turėtumėte pridėti naują makrokomandą į pranešimų lango greitosios prieigos įrankių juostą.
6. Galiausiai galite nufotografuoti:

• Iš pradžių atidarykite el.
• Tada pasirinkite turinį, kurį norite eksportuoti.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto bus paleista makrokomanda.
• Baigę makrokomandą, galite pereiti į iš anksto nustatytą vietinį aplanką, kuriame pamatysite naują PDF failas.
• Atidarykite jį ir pamatysite, kad jis atrodo kaip ši ekrano kopija:

Veiksmingos priemonės po „Outlook“ žalos

Nepaisant daugybės puikių funkcijų, „Outlook“ vis tiek negali būti apsaugota nuo pažeidimų. Tiesą sakant, ji gali būti sugadinta dėl įvairių veiksnių, pvz., virusų, kenkėjiškų programų, programinės įrangos gedimų, aparatinės įrangos problemų ir pan. Pagal šį scenarijų būtina imtis veiksmų, kad būtų išgelbėti sugadinti Outlook duomenys, įskaitant paleidimą scanpst pataisyti failą, patikrinti naujausias atsargines kopijas ir pasinaudoti galinga ir patikima PST taisymo priemone, pvz. DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontuoti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com