Cara Cepat Mengeksport Bahagian Email Outlook sebagai PDF File

Sekiranya anda ingin mengeksport sebahagian daripada e-mel Outlook, bukan keseluruhan e-mel, sebagai PDF fail, anda boleh membaca artikel ini. Di sini kami akan membimbing anda untuk mencapainya dengan kod VBA.

Dari artikel saya sebelum ini - “Cara Menyimpan E-mel Outlook sebagai PDF File"Dan"Cara Cepat Mengeksport Beberapa E-mel Outlook sebagai Satu PDF File", Anda boleh belajar cara mengeksport keseluruhan e-mel sebagai PDF fail. Walaupun begitu, kadang-kadang, yang anda mahukan adalah mengeksport bahagian e-mel sebagai PDF fail. Pada ketika itu, anda boleh menggunakan kod VBA berikut untuk merealisasikannya. Sekiranya anda sama sekali tidak tahu bagaimana menggunakan VBA, anda boleh merujuk artikel - "Cara Menjalankan Kod VBA di Outlook Anda"Sementara itu.

Eksport Bahagian E-mel sebagai PDF File

1. Sebagai permulaan, lancarkan program Outlook anda.
2. Kemudian, akses editor Outlook VBA melalui pintasan utama "Alt + F11".
3. Seterusnya, di tetingkap baru ini, buka modul yang tidak digunakan.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.

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. Selepas itu, anda harus menambahkan makro baru ke Bar Alat Akses Pantas dari tetingkap mesej.
6. Akhirnya, anda boleh mengambil gambar:

• Pada mulanya, buka e-mel.
• Kemudian, pilih kandungan yang ingin anda eksport.
• Seterusnya, klik butang makro di Bar Alat Akses Pantas.
• Sekaligus, makro akan berjalan.
• Apabila makro selesai, anda boleh menuju ke folder tempatan yang telah ditentukan, di mana anda akan melihat yang baru PDF fail.
• Buka, dan anda akan melihat bahawa ia seperti tangkapan skrin berikut:

Langkah-langkah Berkesan selepas Kerosakan Outlook

Walaupun mempunyai banyak fungsi yang sangat baik, Outlook tetap tidak dapat kebal dari kerosakan. Sebenarnya, ia terdedah kepada rasuah kerana pelbagai faktor, seperti virus, perisian hasad, kesalahan perisian, dan masalah perkakasan dan sebagainya. Dalam senario ini, penting untuk mengambil tindakan untuk menyelamatkan data Outlook yang rosak, termasuk melancarkan scanpst untuk membaiki fail, menyemak sandaran terkini dan menggunakan alat pembaikan PST yang berkuasa dan boleh dipercayai, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com