Slik eksporterer du raskt deler av en Outlook-e-post som en PDF filet

Hvis du ønsker å eksportere deler av en Outlook-e-post, i stedet for hele e-posten, som en PDF fil, kan du lese denne artikkelen. Her vil vi veilede deg for å oppnå det med en VBA-kode.

Fra mine tidligere artikler - "Hvordan lagre en Outlook-e-post som en PDF filet"Og"Slik eksporterer du raskt flere Outlook-e-poster som en enkelt PDF filet”, kan du lære måter å eksportere hele e-posten som PDF fil. Ikke desto mindre, til tider, er det du ønsker å eksportere delen av en e-post som en PDF fil. På det tidspunktet kan du bruke følgende VBA-kode for å realisere den. Hvis du ikke vet hvordan du bruker VBA, kan du se artikkelen – "Hvordan kjøre VBA-kode i Outlook" i mellomtiden.

Eksporter en del av en e-post som en PDF filet

1. For å begynne, start Outlook-programmet ditt.
2. Deretter får du tilgang til Outlook VBA-editor via "Alt + F11" hurtigtaster.
3. Deretter åpner du en ubrukt modul i dette nye vinduet.
4. Deretter kopierer og limer du inn følgende VBA-kode i denne modulen.

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. Etter det bør du legge til den nye makroen til hurtigtilgangsverktøylinjen i meldingsvinduet.
6. Til slutt kan du ta et skudd:

• Først åpner du en e-post.
• Velg deretter innholdet du vil eksportere.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Makroen vil kjøres med en gang.
• Når makroen er ferdig, kan du gå til den forhåndsdefinerte lokale mappen, hvor du vil se en ny PDF filen.
• Åpne den, og du vil se at den ser ut som følgende skjermbilde:

Effektive tiltak etter Outlook-skade

Til tross for å skryte av en rekke utmerkede funksjoner, kan Outlook fortsatt ikke være immun mot skade. Faktisk er det utsatt for korrupsjon på grunn av ulike faktorer, som virus, skadelig programvare, programvarefeil og maskinvareproblemer og så videre. I dette scenariet er det viktig å iverksette tiltak for å redde de skadede Outlook-dataene, inkludert oppstart scanpst å reparere filen, sjekke de nyeste sikkerhetskopiene og bruke et kraftig og pålitelig PST-reparasjonsverktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med