Si të eksportoni shpejt një pjesë të një emaili të Outlook si një PDF Skedar

Nëse dëshironi të eksportoni një pjesë të një emaili të Outlook, në vend të të gjithë emailit, si a PDF skedar, mund ta lexoni këtë artikull. Këtu do t'ju udhëzojmë ta arrini atë me një kod VBA.

Nga artikujt e mi të mëparshëm - "Si të ruani një email të Outlook si një PDF Skedar"Dhe"Si të eksportoni shpejt emaile të shumëfishta të Outlook si të vetme PDF Skedar”, mund të mësoni mënyra për të eksportuar të gjithë emailin si PDF dosje. Sidoqoftë, ndonjëherë, ajo që dëshironi është të eksportoni pjesën e një emaili si një PDF dosje. Në atë pikë, mund të përdorni kodin e mëposhtëm VBA për ta realizuar atë. Nëse nuk dini plotësisht të përdorni VBA, mund t'i referoheni artikullit – “Si të ekzekutoni kodin VBA në Outlook tuaj" ndërkohë.

Eksportoni një pjesë të një emaili si një PDF Skedar

1. Për të filluar, hapni programin tuaj Outlook.
2. Më pas, hyni në redaktorin VBA të Outlook përmes shkurtoreve të tastit "Alt + F11".
3. Më pas, në këtë dritare të re, hapni një modul të papërdorur.
4. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm VBA në këtë 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. Pas kësaj, duhet të shtoni makro të re në shiritin e veglave të aksesit të shpejtë të dritares së mesazhit.
6. Më në fund, mund të bëni një fotografi:

• Në fillim, hapni një email.
• Pastaj, zgjidhni përmbajtjen që dëshironi të eksportoni.
• Më pas, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Menjëherë, makro do të ekzekutohet.
• Kur makro të përfundojë, mund të shkoni te dosja e paracaktuar lokale, ku do të shihni një të re PDF fotografi.
• Hapeni atë dhe do të shihni se duket si pamja e mëposhtme e ekranit:

Masat efektive pas dëmtimit të Outlook

Pavarësisht mburrjes me shumë funksione të shkëlqyera, Outlook ende nuk mund të jetë i imunizuar nga dëmtimi. Në fakt, është i prirur ndaj korrupsionit për shkak të faktorëve të ndryshëm, si viruset, malware, gabimet e softuerit dhe problemet e harduerit etj. Në këtë skenar, është thelbësore të ndërmerren veprime për të shpëtuar të dhënat e dëmtuara të Outlook, duke përfshirë nisjen scanpst për të riparuar skedarin, duke kontrolluar kopjet rezervë më të fundit dhe duke përdorur një mjet të fuqishëm dhe të besueshëm për rregullimin e PST-së, siç është DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com