Kako hitro izvoziti del Outlookove e-pošte kot a PDF file

Če želite izvoziti del Outlookovega e-poštnega sporočila namesto celotnega e-poštnega sporočila kot a PDF datoteko, lahko preberete ta članek. Tukaj vas bomo vodili, kako to doseči s kodo VBA.

Iz mojih prejšnjih člankov – “Kako shraniti Outlookovo e-pošto kot a PDF file"In"Kako hitro izvoziti več Outlookovih e-poštnih sporočil kot eno PDF file«, se lahko naučite, kako celotno e-pošto izvoziti kot PDF mapa. Kljub temu je včasih tisto, kar želite, izvoziti del e-pošte kot PDF mapa. Takrat lahko uporabite naslednjo kodo VBA, da to realizirate. Če popolnoma ne veste, kako uporabljati VBA, si lahko ogledate članek – “Kako zagnati kodo VBA v Outlooku”Medtem.

Izvozi del e-pošte kot a PDF file

1. Za začetek zaženite program Outlook.
2. Nato odprite urejevalnik Outlook VBA prek bližnjičnih tipk »Alt + F11«.
3. Nato v tem novem oknu odprite neuporabljen modul.
4. Nato v ta modul kopirajte in prilepite naslednjo kodo VBA.

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 tem bi morali dodati nov makro v orodno vrstico za hitri dostop okna za sporočila.
6. Končno lahko posnamete posnetek:

• Najprej odprite e-poštno sporočilo.
• Nato izberite vsebino, ki jo želite izvoziti.
• Nato kliknite gumb makra v orodni vrstici za hitri dostop.
• Takoj se bo zagnal makro.
• Ko se makro konča, se lahko odpravite v vnaprej določeno lokalno mapo, kjer boste videli novo PDF Datoteka.
• Odprite ga in videli boste, da je videti kot naslednji posnetek zaslona:

Učinkoviti ukrepi po poškodbi Outlooka

Kljub temu, da se ponaša s številnimi odličnimi funkcijami, Outlook še vedno ne more biti imun na poškodbe. Pravzaprav je nagnjen k poškodbam zaradi različnih dejavnikov, kot so virusi, zlonamerna programska oprema, napake programske opreme in težave s strojno opremo itd. V tem scenariju je bistveno, da ukrepate za rešitev poškodovanih Outlookovih podatkov, vključno z zagonom scanpst za popravilo datoteke preverite najnovejše varnostne kopije in si pomagajte z zmogljivim zanesljivim orodjem za popravilo PST, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com