Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


Быстро экспортировать emials из Inbox / Sent Items / Drafts ... в файл Excel:

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

doc автоматически экспортирует электронные письма в excel 5

Kutools for Outlook: с более чем 40 + удобными надстройками Excel, бесплатно, без каких-либо ограничений, в 60-дни. Скачайте и попробуйте бесплатную пробную версию прямо сейчас!

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

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

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

doc автоматически экспортирует электронные письма в excel 1

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

3. В Microsoft Visual Basic для приложений окно, двойной щелчок ThisOutlookSession из Project1 (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 \ split document \ 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


Kutools для Outlook - предоставляет расширенные функции 100 для Outlook и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и больше автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать при отсутствии вложенийи еще напомнить особенности ...
  • Ответить (Все) Со всеми вложениями в почтовом разговоре; Ответить много писем в секундах; Автоматическое добавление приветствия когда ответишь; Добавить дату в тему ...
  • Инструменты вложения: Управление всеми вложениями во всех письмах, Автоотключение, Сжать все, Переименовать все, Сохранить все ... Быстрый отчет, Считать выбранные письма...
  • Мощные нежелательные письма по заказу; Удалить дубликаты писем и контактов... Позволит вам делать умнее, быстрее и лучше в Outlook.
выстрел kutools Outlook Outlook вкладка kutools
выстрел kutools внешний вид kutools плюс вкладка
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sailu G · 1 months ago
    I have followed above steps but have blanks in excel.
    what should I do?
  • To post as a guest, your comment is unpublished.
    Marduk20 · 5 months ago
    How to capture the Categories, Importance or the User-defined column on the same folder view?
  • To post as a guest, your comment is unpublished.
    sagar khomane · 7 months ago
    Can you please let me know how to deal with sub-folders in above code.
  • To post as a guest, your comment is unpublished.
    Sagar · 7 months ago
    how to deal with subfolders.
  • To post as a guest, your comment is unpublished.
    Jorge · 1 years ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      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.