Если вы хотите быстро экспортировать электронные письма от определенного отправителя в файл Excel, вы можете использовать следующие 2 средства, представленные в этой статье.
По некоторым причинам, например для составления сводки, иногда вам может потребоваться экспортировать определенные электронные письма, например электронные письма от определенного отправителя, в файл Excel. Когда дело доходит до экспорта, мне будет доступна встроенная функция «экспорт».ost сознание пользователей в первую очередь. Но, честно говоря, использование Outlook VBA будет намного удобнее, чем традиционная функция «Экспорт». Теперь мы подробно расскажем об этих двух средствах.
Способ 1: используйте функцию «Экспорт»
- В самом начале запустите приложение Outlook.
- Затем щелкните поле поиска в списке адресов электронной почты, что активирует ленту «Инструменты поиска».
- Нажмите кнопку «От» на ленте.
- Затем замените символ «имя отправителя» именем конкретного отправителя.
- После этого в списке будут отображаться только электронные письма от конкретного отправителя. Теперь нажмите «Ctrl + A», чтобы выделить их все.
- Затем щелкните правой кнопкой мыши и выберите «Переместить»> «Другая папка».
- Затем во всплывающем диалоговом окне «Переместить элементы» создайте новую папку и выберите эту папку, чтобы переместить в нее определенные электронные письма.
- После этого вы можете перейти в «Файл»> «Открыть»> «Импорт».
- Затем в следующем диалоговом окне выберите «Экспорт в файл» > «Далее» > «Microsoft Excel 97 — 2003» > «Далее».
- Затем выберите конкретную папку, в которой хранятся электронные письма от определенного отправителя, и нажмите «Далее».
- Затем нажмите «Обзор», чтобы выбрать файл Excel или создать новый файл Excel.
- Позже нажмите «Далее» > «Готово».
- Наконец, Outlook будет работать для экспорта. После завершения процесса экспорта вы можете найти и открыть этот файл Excel.
Способ 2: использовать Outlook VBA
- Прежде всего, нажмите клавиши «Alt + F11».
- Затем во всплывающем окне откройте новый модуль и скопируйте в него следующие коды.
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 Строка При ошибке Возобновить Далее 'Получить электронные письма от определенного отправителя Set objEmails = Application.Session.GetDefaultFolder(olFolderInbox).Items strSpecificSender = InputBox("Введите имя конкретного отправителя:", "Укажите отправителя") strFilter = "[From ] = '" & strSpecificSender & "'" Set objSpecificEmails = objEmails.Restrict(strFilter) Set objExcelApplication = CreateObject("Excel.Application") Set objExcelWorkbook = objExcelApplication.Workbooks.Add 'Экспортировать определенные электронные письма на рабочий лист Set objExcelWorksheet = objExcelWorkbook. Рабочие листы (1) С objExcelWorksheet .Cells(1, 1) = "Тема" .Cells(1, 2) = "Получено" .Cells(1, 3) = "Тело" .Cells(1, 4) = "Категории" .Cells(1, 5) = "Размер" End with nRow = 2 Для каждого объекта objItem в objSpecificEmails с 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 'Сохранить книгу Excel strFilePath = "C:\Report\Emails from" & strSpecificSender & ".xlsx" objExcelWorkbook.Close True, strFilePath 'Уведомить вас о завершении экспорта MsgBox ("Экспорт завершен!") Конец сабвуфера
- Затем нажмите значок «Выполнить» на панели инструментов.
- После этого вам потребуется ввести имя конкретного отправителя.
- Позже нажмите «ОК».
- Сразу же Outlooktart, чтобы экспортировать электронные письма от определенного отправителя и сохранить файл Excel в заданную папку назначения.
- После завершения экспорта вы можете перейти в папку назначения, чтобы открыть и проверить ее.
Избавьтесь от проблем Outlook гибко
В связи с тем, что Outlook подвержен различным ошибкам, рекомендуется Исправление Outlook инструмент поблизости, например DataNumen Outlook Repair. В этом случае для устранения мелких ошибок можно просто использовать файл Scanpst.exe. Но для серьезных неприятностей можно прибегнуть к более надежному инструменту.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com