Как бързо да експортирате част от имейл в Outlook като PDF досие

Ако искате да експортирате част от имейл в Outlook, вместо целия имейл, като PDF файл, можете да прочетете тази статия. Тук ще ви насочим да го постигнете с VBA код.

От предишните ми статии - “Как да запазите имейл в Outlook като PDF досие"А"Как бързо да експортирате множество имейли в Outlook като единични PDF досие”, Можете да научите начини да експортирате целия имейл като PDF файл. Въпреки това, понякога това, което искате, е да експортирате частта от имейл като PDF файл. В този момент можете да използвате следния VBA код, за да го реализирате. Ако напълно не знаете как да използвате VBA, можете да се обърнете към статията - “Как да стартирате VBA код във вашия Outlook”Междувременно.

Експортирайте част от имейл като a PDF досие

1. За начало стартирайте програмата Outlook.
2. След това отворете редактора на Outlook VBA чрез клавишните комбинации „Alt + F11“.
3. След това в този нов прозорец отворете неизползван модул.
4. Впоследствие копирайте и поставете следния 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. След това трябва да добавите новия макрос към лентата с инструменти за бърз достъп на прозореца за съобщения.
6. И накрая, можете да направите снимка:

• Отначало отворете имейл.
• След това изберете съдържанието, което искате да експортирате.
• След това щракнете върху бутона за макрос в лентата с инструменти за бърз достъп.
• Веднага макросът ще се стартира.
• Когато макросът завърши, можете да се насочите към предварително дефинираната локална папка, където ще видите нова PDF файл.
• Отворете го и ще видите, че изглежда като следната екранна снимка:

Ефективни мерки след щети в Outlook

Въпреки че може да се похвали с многобройни отлични функции, Outlook все още не може да бъде защитен от повреди. Всъщност той е склонен към корупция поради различни фактори, като вируси, злонамерен софтуер, софтуерни грешки и хардуерни проблеми и т.н. В този сценарий е от съществено значение да се предприемат действия за спасяване на повредените данни на Outlook, включително стартиране scanpst за да поправите файла, като проверите най-новите резервни копия и използвате мощен и надежден инструмент за поправка на PST, като например DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com