2 метода экспорта всех электронных писем от определенного отправителя в файл Excel

Если вы хотите быстро экспортировать электронные письма от определенного отправителя в файл Excel, вы можете использовать следующие 2 средства, представленные в этой статье.

По некоторым причинам, например для составления сводки, иногда вам может потребоваться экспортировать определенные электронные письма, например электронные письма от определенного отправителя, в файл Excel. Когда дело доходит до экспорта, мне будет доступна встроенная функция «экспорт».ost сознание пользователей в первую очередь. Но, честно говоря, использование 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. Затем нажмите значок «Выполнить» на панели инструментов.
4. После этого вам потребуется ввести имя конкретного отправителя.
5. Позже нажмите «ОК».
6. Сразу же Outlooktart, чтобы экспортировать электронные письма от определенного отправителя и сохранить файл Excel в заданную папку назначения.
7. После завершения экспорта вы можете перейти в папку назначения, чтобы открыть и проверить ее.

Избавьтесь от проблем Outlook гибко

В связи с тем, что Outlook подвержен различным ошибкам, рекомендуется Исправление Outlook инструмент поблизости, например DataNumen Outlook Repair. В этом случае для устранения мелких ошибок можно просто использовать файл Scanpst.exe. Но для серьезных неприятностей можно прибегнуть к более надежному инструменту.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com