2 Metode untuk Mengekspor Semua Email dari Pengirim Tertentu ke File Excel

Jika Anda ingin mengekspor email yang berasal dari pengirim tertentu ke file Excel dengan cepat, Anda dapat menggunakan 2 cara berikut yang diperkenalkan dalam artikel ini.

Untuk beberapa alasan, seperti membuat ringkasan, terkadang Anda mungkin perlu mengekspor email tertentu, misalnya email dari pengirim tertentu, ke file Excel. Saat mengekspor, fitur bawaan "ekspor" akan langsung terlintas di benak sebagian besar pengguna. Namun, jujur ​​saja, menggunakan Outlook VBA akan jauh lebih praktis daripada fitur "Ekspor" tradisional. Sekarang kita akan membahas kedua cara tersebut secara detail.

Metode 1: Gunakan Fitur "Ekspor"

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian klik ke kotak pencarian di daftar email, yang akan mengaktifkan pita "Alat Pencarian".
3. Klik tombol "Dari" di pita.
4. Kemudian ganti karakter “nama pengirim” dengan nama pengirim tertentu.
5. Setelah itu, hanya email dari pengirim tertentu yang akan ditampilkan dalam daftar. Sekarang tekan "Ctrl + A" untuk memilih semuanya.
6. Selanjutnya klik kanan dan pilih “Move” > “Other Folder”.
7. Selanjutnya, di kotak dialog "Pindahkan Item" popup, buat folder baru dan pilih folder ini untuk memindahkan email tertentu.
8. Setelah itu, Anda dapat pergi ke “File” > “Open” > “Import”.
9. Kemudian pada kotak dialog berikut, pilih 'Export to a file” > “Next” > “Microsoft Excel 97 – 2003” > “Next”.
10. Selanjutnya pilih folder tertentu yang menyimpan email dari pengirim tertentu dan tekan "Next".
11. Kemudian klik "browse" untuk memilih file Excel atau membuat file Excel baru.
12. Kemudian, klik “Selanjutnya” > “Selesai”.
13. Akhirnya Outlook akan berfungsi untuk mengekspor. Setelah proses ekspor selesai, Anda dapat menemukan dan membuka file Excel ini.

Metode 2: Gunakan Outlook VBA

1. Pertama-tama, tekan tombol "Alt + F11".
2. Kemudian di jendela popup, buka modul baru dan salin kode 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. Selanjutnya, klik ikon "Jalankan" di bilah alat.
4. Setelah itu, Anda akan diminta untuk memasukkan nama pengirim tertentu.
5. Nanti, klik "OK".
6. Seketika itu juga, Outlook akan mulai mengekspor email dari pengirim tertentu dan menyimpan file Excel ke folder tujuan yang telah ditentukan.
7. Setelah ekspor selesai, Anda dapat pergi ke folder tujuan untuk membuka dan memeriksanya.

Singkirkan Masalah Outlook Secara Fleksibel

Karena kenyataan bahwa Outlook rentan terhadap berbagai kesalahan, disarankan untuk menyimpan yang kuat Perbaikan Outlook alat di sekitarnya, seperti DataNumen Outlook Repair. Dalam hal ini, untuk mengatasi kesalahan kecil, Anda cukup menggunakan Scanpst.exe. Tetapi untuk masalah serius, Anda dapat menggunakan alat yang lebih kuat.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rusak SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com