2 метода за експортиране на всички имейли от конкретен подател в файл на Excel

Ако искате бързо да експортирате имейлите от конкретен подател в файл на Excel, можете да използвате следните 2 средства, въведени в тази статия.

По някои причини, като например създаване на обобщение, понякога може да се наложи да експортирате конкретни имейли, например имейли от конкретен подател, в Excel файл. Що се отнася до експортирането, повечето потребители първо ще се сетят на вградената функция „експортиране“. Но честно казано, използването на Outlook VBA ще бъде много по-удобно от традиционната функция „Експортиране“. Сега ще представим подробно двата начина.

Метод 1: Използвайте функцията „Експортиране“

1. В самото начало стартирайте приложението си Outlook.
2. След това щракнете в полето за търсене в имейл списъка, което ще активира лентата „Инструменти за търсене“.
3. Щракнете върху бутона „От“ в лентата.
4. След това заменете символа „име на подателя“ с името на конкретния подател.
5. След това в списъка ще се показват само имейлите от конкретния подател. Сега натиснете „Ctrl + A“, за да изберете всички от тях.
6. След това щракнете с десния бутон и изберете „Преместване“> „Друга папка“.
7. Впоследствие в изскачащия диалогов прозорец „Преместване на елементи“ създайте нова папка и изберете тази папка, в която да преместите конкретните имейли.
8. След това можете да отидете на „Файл“> „Отваряне“> „Импортиране“.
9. След това в следния диалогов прозорец изберете „Експортиране във файл“> „Напред“> „Microsoft Excel 97 - 2003“> „Напред“.
10. След това изберете конкретната папка, която съхранява имейлите от конкретния подател и натиснете „Напред“.
11. След това щракнете върху „преглед“, за да изберете файл на Excel или да създадете нов файл на Excel.
12. По-късно щракнете върху „Напред“> „Готово“.
13. Накрая Outlook ще работи за експортиране. След като процесът на експортиране завърши, можете да намерите и отворите този файл на Excel.

Метод 2: Използвайте Outlook VBA

1. На първо място, натиснете бутоните на клавишите „Alt + F11“.
2. След това в изскачащия прозорец отворете нов модул и копирайте следните кодове в него.

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. След това щракнете върху иконата „Run“ в лентата с инструменти.
4. След това ще трябва да въведете името на конкретния подател.
5. По-късно щракнете върху „OK“.
6. Веднага Outlook ще започне да експортира имейлите от конкретния подател и да запазва Excel файла в предварително определената папка.
7. След като експортирането завърши, можете да отидете в целевата папка, за да я отворите и проверите.

Отървете се от проблемите на Outlook гъвкаво

Поради факта, че Outlook е податлив на различни грешки, препоръчително е да запазите мощност Поправка на Outlook инструмент в близост, като DataNumen Outlook Repair. В този случай, за да разрешите малките грешки, можете просто да използвате Scanpst.exe. Но за сериозните проблеми можете да прибегнете до по-здравия инструмент.

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

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