Kako brzo izvesti dio Outlook e-pošte kao a PDF file

Ako želite izvesti dio Outlook e-pošte, umjesto cijele e-pošte, kao PDF datoteku, možete pročitati ovaj članak. Ovdje ćemo vas voditi kako to postići pomoću VBA koda.

Iz mojih prethodnih članaka – “Kako spremiti Outlook e-poštu kao PDF file"A"Kako brzo izvesti više Outlook e-poruka kao jednu PDF file”, mogli biste saznati kako izvesti cijelu e-poštu kao PDF datoteka. Ipak, ponekad želite izvesti dio e-pošte kao PDF datoteka. U tom trenutku možete koristiti sljedeći VBA kod da biste to realizirali. Ako uopće ne znate kako koristiti VBA, možete pogledati članak – “Kako pokrenuti VBA kod u vašem Outlooku” u međuvremenu.

Izvezi dio e-pošte kao PDF file

1. Za početak, pokrenite svoj Outlook program.
2. Zatim pristupite Outlook VBA uređivaču putem tipkovnih prečaca “Alt + F11”.
3. Zatim u novom prozoru otvorite neiskorišteni modul.
4. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj 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. Nakon toga, trebali biste dodati novu makronaredbu na alatnu traku za brzi pristup prozora poruke.
6. Konačno, možete snimiti:

• Najprije otvorite e-poštu.
• Zatim odaberite sadržaj koji želite izvesti.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Makro će se pokrenuti odjednom.
• Kada makronaredba završi, možete se uputiti u unaprijed definiranu lokalnu mapu, gdje ćete vidjeti novu PDF file.
• Otvorite ga i vidjet ćete da izgleda kao na sljedećoj snimci zaslona:

Učinkovite mjere nakon oštećenja Outlooka

Unatoč brojnim izvrsnim funkcijama, Outlook još uvijek ne može biti imun na štetu. Zapravo, sklon je korupciji zbog različitih čimbenika, poput virusa, zlonamjernog softvera, softverskih grešaka, hardverskih problema i tako dalje. U ovom scenariju, bitno je poduzeti radnje za spašavanje oštećenih Outlook podataka, uključujući pokretanje scanpst za popravak datoteke, provjera najnovijih sigurnosnih kopija i korištenje moćnog i pouzdanog alata za popravak PST-a, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com