Перейти к основному содержанию

Как автоматически экспортировать электронные письма из Outlook в Excel?

Обычно вы можете экспортировать электронные письма из Outlook в Excel с помощью функции импорта / экспорта. Но пробовали ли вы когда-нибудь автоматически экспортировать электронные письма в файл Excel при поступлении новых сообщений? В этой статье я расскажу о том, как автоматически экспортировать информацию о новых входящих сообщениях в Excel.

Автоматический экспорт информации электронной почты из Outlook в Excel с кодом VBA

Экспорт информации электронной почты из Outlook в Excel с удивительной функцией


Автоматический экспорт информации электронной почты из Outlook в Excel с кодом VBA

Чтобы автоматически экспортировать новые поступающие электронные письма в книгу Excel, примените следующий код VBA:

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

doc автоматический экспорт писем в Excel 1

2. Затем перейдите в Outlook и удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект1 (VbaProject.OTM) панель, чтобы открыть режим, а затем скопируйте и вставьте следующий код в пустой модуль.

Код VBA: автоматический экспорт информации электронной почты из Outlook в файл Excel:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Внимание: В приведенном выше коде C: \ Users \ DT168 \ Desktop \ разделить документ \ kto-data.xlsx - это путь к файлу Excel и имя Excel, по которому вы хотите найти экспортированную информацию, измените его по своему усмотрению.

doc автоматический экспорт писем в Excel 2

4. Все еще в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Рекомендации , чтобы перейти к Ссылки-Project1 диалоговое окно и установите флажок Библиотека объектов Microsoft Excel из файла Доступные ссылки список, см. снимок экрана:

doc автоматический экспорт писем в Excel 3

5. Затем нажмите OK кнопку, чтобы закрыть диалоговое окно, а затем сохраните и закройте окно кода.

6. Теперь вам следует перезапустить Outlook, чтобы этот код вступил в силу. С этого момента, если будут поступать новые электронные письма, они будут автоматически экспортироваться в конкретную книгу, см. Снимок экрана:

doc автоматический экспорт писем в Excel 4


Экспорт информации электронной почты из Outlook в Excel с удивительной функцией

Если вы хотите экспортировать электронные письма из входящих, исходящих или других папок в файл Excel, Kutools for Outlook's Быстрый отчет может помочь вам легко создать XML-файл для сообщения информации обо всех элементах в текущей папке электронной почты или папке задач по мере необходимости.

Примечание:Чтобы применить это Быстрый отчет, во-первых, вы должны скачать Kutools for Outlook, а затем быстро и легко примените эту функцию.

После установки Kutools for Outlook, пожалуйста, сделайте так:

1. Выберите папку, в которую вы хотите экспортировать всю информацию о сообщениях, и нажмите Кутулс Плюс > Быстрый отчет, см. снимок экрана:

2. Затем в выскочившем Сохранить отчет В окне выберите расположение и укажите имя для этого экспортируемого файла, см. снимок экрана:

3. А затем нажмите Сохранить кнопку, чтобы сохранить этот файл, и в появившемся окне нажмите Да кнопку, чтобы открыть файл, см. снимок экрана:

4. Теперь вы можете видеть, что вся информация о электронных письмах в выбранной папке была экспортирована в файл Excel, см. Снимок экрана:


Больше относительных статей:

  • Экспорт таблицы тела электронной почты в Excel в Outlook
  • Когда вы получаете электронное письмо, которое содержит несколько таблиц в теле, иногда вам может потребоваться экспортировать все таблицы из тела сообщения в рабочий лист Excel. Обычно вы можете скопировать и вставить таблицы на рабочий лист, но здесь я расскажу о полезном методе решения этой задачи, когда необходимо экспортировать несколько таблиц.
  • Извлечь или экспортировать список задач в Excel в Outlook
  • При использовании Outlook вы можете извлечь список задач в Excel для другого использования. Благодаря мощной функции экспорта в Outlook вы можете легко экспортировать список задач в Excel. Пожалуйста, сделайте, как показано ниже.
  • Экспорт информации о контактах с фотографиями в Outlook
  • При экспорте контактов из Outlook в файл можно экспортировать только текстовую информацию о контактах. Но иногда вам нужно экспортировать фотографии, а также текстовую информацию контактов, как вы могли бы справиться с этой задачей в Outlook?
  • Экспорт структуры папок из Outlook в Excel
  • В этой статье я расскажу, как экспортировать структуру папок учетной записи из Outlook в файл Excel. Пожалуйста, добейтесь этого с подробностями в этой статье.

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
This comment was minimized by the moderator on the site
I have followed above steps but have blanks in excel.
what should I do?
This comment was minimized by the moderator on the site
Same excel not getting updated? Any suggestions?
This comment was minimized by the moderator on the site
How to capture the Categories, Importance or the User-defined column on the same folder view?
This comment was minimized by the moderator on the site
Can you please let me know how to deal with sub-folders in above code.
This comment was minimized by the moderator on the site
how to deal with subfolders.
This comment was minimized by the moderator on the site
I need the help about exporting Email information sent (outgoing) emails
This comment was minimized by the moderator on the site
Hello, Jorge,
If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations