2 Kaedah untuk Mengeksport Semua E-mel dari Pengirim Khusus ke Fail Excel

Sekiranya anda ingin dengan cepat mengeksport e-mel yang berasal dari pengirim tertentu ke fail Excel, anda boleh menggunakan 2 cara berikut yang diperkenalkan dalam artikel ini.

Atas beberapa sebab, seperti membuat ringkasan, kadangkala, anda mungkin perlu mengeksport e-mel tertentu, seperti e-mel daripada penghantar tertentu, ke fail Excel. Apabila melibatkan pengeksportan, ciri asal "eksport" akan terlintas di fikiran kebanyakan pengguna. Tetapi sejujurnya, menggunakan Outlook VBA akan lebih mudah berbanding ciri "Eksport" tradisional. Sekarang kami akan memperkenalkan kedua-dua cara tersebut secara terperinci.

Kaedah 1: Gunakan "Eksport" Ciri

1. Pada awalnya, lancarkan aplikasi Outlook anda.
2. Kemudian klik ke kotak carian dalam senarai e-mel, yang akan membolehkan pita "Alat Carian".
3. Klik butang "Dari" di pita.
4. Kemudian ganti watak "nama pengirim" dengan nama pengirim tertentu.
5. Selepas itu, hanya e-mel dari pengirim tertentu yang akan ditunjukkan dalam senarai. Sekarang tekan "Ctrl + A" untuk memilih semuanya.
6. Klik kanan seterusnya dan pilih "Pindahkan"> "Folder Lain".
7. Selanjutnya, dalam kotak dialog "Pindahkan Item" pop timbul, buat folder baru dan pilih folder ini untuk memindahkan e-mel tertentu.
8. Setelah itu, anda boleh pergi ke "File"> "Open"> "Import".
9. Kemudian pada kotak dialog berikut, pilih 'Eksport ke file ">" Next ">" Microsoft Excel 97 - 2003 ">" Next ".
10. Seterusnya pilih folder tertentu yang menyimpan e-mel dari pengirim tertentu dan tekan "Next".
11. Kemudian klik “browse” untuk memilih fail Excel atau membuat fail Excel baru.
12. Kemudian, klik "Seterusnya"> "Selesai".
13. Akhirnya Outlook akan berfungsi untuk dieksport. Setelah proses eksport selesai, anda dapat mencari dan membuka fail Excel ini.

Kaedah 2: Gunakan Outlook VBA

1. Di tempat pertama, tekan butang kekunci "Alt + F11".
2. Kemudian di tetingkap pop timbul, buka modul baru dan salin kod berikut ke dalamnya.

Sub ExportEmailsfromSpecificSender()
    Dim objEmails, objSpecificEmails As Outlook.Items
    Dim objItem As Object
    Dim strSpecificSender As String
    Dim strFilter As String
    Dim objExcelApplication As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow As Integer
    Dim strFilePath As String
 
    On Error Resume Next
    'Get the emails from a specific sender
    Set objEmails = Application.Session.GetDefaultFolder(olFolderInbox).Items
    strSpecificSender = InputBox("Input the name of the specific sender:", "Specify Sender")
    strFilter = "[From] = '" & strSpecificSender & "'"
    Set objSpecificEmails = objEmails.Restrict(strFilter)
 
    Set objExcelApplication = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApplication.Workbooks.Add
 
    'Export the specific emails to worksheet
    Set objExcelWorksheet = objExcelWorkbook.Worksheets(1)
    With objExcelWorksheet
         .Cells(1, 1) = "Subject"
         .Cells(1, 2) = "Received"
         .Cells(1, 3) = "Body"
         .Cells(1, 4) = "Categories"
         .Cells(1, 5) = "Size"
    End With
 
    nRow = 2
    For Each objItem In objSpecificEmails
        With objExcelWorksheet
             .Name = "From " & strSpecificSender
             .Cells(nRow, 1) = objItem.Subject
             .Cells(nRow, 2) = objItem.ReceivedTime
             .Cells(nRow, 3) = objItem.Body
             .Cells(nRow, 4) = objItem.Categories
             .Cells(nRow, 5) = objItem.Size
        End With
        nRow = nRow + 1
    Next
 
    objExcelWorksheet.Columns("A:E").AutoFit

    'Save the Excel workbook
    strFilePath = "C:\Report\Emails from " & strSpecificSender & ".xlsx"
    objExcelWorkbook.Close True, strFilePath
 
    'Notify you of the export complete
    MsgBox ("Export Complete!")
End Sub

3. Selepas itu, klik ikon "Jalankan" di bar alat.
4. Selepas itu, anda akan diminta memasukkan nama pengirim tertentu.
5. Kemudian, klik "OK".
6. Outlook akan mula mengeksport e-mel daripada penghantar tertentu serta-merta dan menyimpan fail Excel ke folder destinasi yang telah ditetapkan.
7. Setelah eksport selesai, anda boleh pergi ke folder tujuan untuk membukanya dan memeriksanya.

Selesaikan Masalah Outlook Secara Fleksibel

Kerana kenyataan bahawa Outlook terdedah kepada pelbagai kesalahan, disarankan untuk tetap kuat Pembaikan Outlook alat di sekitar, seperti DataNumen Outlook Repair. Dalam kes ini, untuk menyelesaikan kesalahan kecil, anda hanya boleh menggunakan Scanpst.exe. Tetapi untuk masalah serius, anda boleh menggunakan alat yang lebih mantap.

Pengenalan Pengarang:

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