Cum să exportați rapid o parte dintr-un e-mail Outlook ca a PDF Fișier

Dacă doriți să exportați o parte dintr-un e-mail Outlook, în loc de întregul e-mail, ca a PDF fișier, puteți citi acest articol. Aici vă vom ghida pentru a realiza acest lucru cu un cod VBA.

Din articolele mele anterioare – „Cum să salvați un e-mail Outlook ca a PDF Fișier"Și"Cum să exportați rapid mai multe e-mailuri Outlook ca un singur PDF Fișier”, puteți afla modalități de a exporta întregul e-mail ca PDF fişier. Cu toate acestea, uneori, ceea ce doriți este să exportați o parte dintr-un e-mail ca a PDF fişier. În acel moment, puteți utiliza următorul cod VBA pentru a-l realiza. Dacă nu știi complet cum să folosești VBA, te poți referi la articolul – „Cum să rulați codul VBA în Outlook” între timp.

Exportați o parte dintr-un e-mail ca a PDF Fișier

1. Pentru noitart, lansați programul Outlook.
2. Apoi, accesați editorul Outlook VBA prin comenzile rapide „Alt + F11”.
3. Apoi, în această nouă fereastră, deschideți un modul neutilizat.
4. Ulterior, copiați și inserați următorul cod VBA în acest 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. După aceea, ar trebui să adăugați noua macrocomandă la Bara de instrumente Acces rapid a ferestrei de mesaje.
6. În cele din urmă, puteți face o fotografie:

• La început, deschideți un e-mail.
• Apoi, selectați conținutul pe care doriți să îl exportați.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Macro-ul va rula imediat.
• Când macro-ul se termină, vă puteți îndrepta către folderul local predefinit, unde veți vedea un nou PDF fișier.
• Deschideți-l și veți vedea că arată ca următoarea captură de ecran:

Măsuri eficiente după deteriorarea Outlook

În ciuda faptului că se lăuda cu numeroase funcții excelente, Outlook încă nu poate fi imun la daune. De fapt, este predispus la corupție din cauza diferiților factori, cum ar fi viruși, programe malware, defecte software și probleme hardware și așa mai departe. În acest scenariu, este esențial să luați măsuri pentru a salva datele Outlook deteriorate, inclusiv lansarea Scanpst a repara dosar, verificând most backup-uri recente și cu ajutorul unui instrument puternic de remediere PST de încredere, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com