Outlook E-poçtunun bir hissəsini necə tez ixrac etmək olar PDF fayl

Bütün e-poçt əvəzinə Outlook e-poçtunun bir hissəsini ixrac etmək istəyirsinizsə, a PDF fayl, bu məqaləni oxuya bilərsiniz. Burada VBA kodu ilə buna nail olmaq üçün sizə rəhbərlik edəcəyik.

Əvvəlki məqalələrimdən – “Outlook e-poçtunu necə saxlamaq olar PDF fayl"Və"Birdən çox Outlook e-poçtunu tək olaraq necə tez ixrac etmək olar PDF fayl”, bütün e-poçtu ixrac etməyin yollarını öyrənə bilərsiniz PDF fayl. Buna baxmayaraq, bəzən istədiyiniz e-poçtun bir hissəsini ixrac etməkdir PDF fayl. Bu nöqtədə, onu həyata keçirmək üçün aşağıdakı VBA kodundan istifadə edə bilərsiniz. VBA-dan necə istifadə edəcəyinizi tamamilə bilmirsinizsə, məqaləyə müraciət edə bilərsiniz – “Outlook-da VBA kodunu necə işlətmək olar” bu arada.

E-poçtun bir hissəsini a kimi ixrac edin PDF fayl

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Sonra "Alt + F11" düymələri ilə Outlook VBA redaktoruna daxil olun.
3. Sonra, bu yeni pəncərədə istifadə olunmamış modulu açın.
4. Sonradan aşağıdakı VBA kodunu kopyalayıb bu modula yapışdırın.

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. Bundan sonra, mesaj pəncərəsinin Tez Giriş Alətlər Panelinə yeni makro əlavə etməlisiniz.
6. Nəhayət, bir çəkiliş edə bilərsiniz:

• Əvvəlcə e-poçtu açın.
• Sonra, ixrac etmək istədiyiniz məzmunu seçin.
• Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
• Bir anda makro işləyəcək.
• Makro başa çatdıqda, əvvəlcədən təyin edilmiş yerli qovluğa keçə bilərsiniz, burada yenisini görəcəksiniz PDF file.
• Onu açın və bunun aşağıdakı ekran görüntüsünə bənzədiyini görəcəksiniz:

Outlook Zərərindən Sonra Effektiv Tədbirlər

Çoxsaylı əla funksiyaları ilə öyünməsinə baxmayaraq, Outlook hələ də zərərdən qoruna bilməz. Əslində, viruslar, zərərli proqramlar, proqram təminatı xətaları, hardware problemləri və s. kimi müxtəlif amillər səbəbindən korrupsiyaya meyllidir. Bu ssenaridə, işə salmaq da daxil olmaqla zədələnmiş Outlook məlumatlarını xilas etmək üçün tədbirlər görmək vacibdir. scanpst faylı bərpa etmək, ən son ehtiyat nüsxələrini yoxlamaq və güclü və etibarlı PST düzəliş alətindən istifadə etmək DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com