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

Ako želite da izvezete dio Outlook e-pošte, umjesto cijele e-pošte, kao PDF datoteku, možete pročitati ovaj članak. Ovdje ćemo vas uputiti da to postignete pomoću VBA koda.

Iz mojih prethodnih članaka – “Kako sačuvati Outlook e-poštu kao PDF fajl"I"Kako brzo izvesti više Outlook e-poruka kao jednu PDF fajl“, mogli biste naučiti načine za izvoz cijele e-pošte kao PDF fajl. Ipak, s vremena na vrijeme, ono što želite je da izvezete dio e-pošte kao a PDF fajl. U tom trenutku možete koristiti sljedeći VBA kod da ga realizujete. Ako potpuno 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 a PDF fajl

1. Za početak, pokrenite Outlook program.
2. Zatim pristupite Outlook VBA uređivaču preko tipskih prečica „Alt + F11“.
3. Zatim, u ovom novom prozoru, otvorite nekoriš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 novi makro na alatnu traku za brzi pristup prozora poruke.
6. Konačno, možete snimiti:

• Prvo otvorite email.
• Zatim odaberite sadržaj koji želite da izvezete.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Makro će se odmah pokrenuti.
• Kada se makro završi, možete otići do unaprijed definirane lokalne mape, gdje ćete vidjeti novu PDF fajl.
• Otvorite ga i vidjet ćete da izgleda kao na sljedećem snimku ekrana:

Učinkovite mjere nakon oštećenja Outlooka

Unatoč brojnim odličnim funkcijama, Outlook još uvijek ne može biti imun na oštećenja. Zapravo, podložan je korupciji zbog različitih faktora, kao što su virusi, zlonamjerni softver, softverski kvarovi, hardverski problemi i tako dalje. U ovom scenariju, neophodno 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 datoteka, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com