Печенье помочь нам доставить наши услуги. Пользуясь нашими услугами, Вы соглашаетесь на использование нами куки.
Совет. Другие языки - 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 for Outlook

Более чем расширенные функции 100 для Outlook 2010, 2013, 2016, 2019 и 365

снимок экрана kutools для внешнего вида крошечный для баннера 201812

Дополнительные функции | Скачать бесплатно | Только $ 39.00 для сотен функций

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.
    Jorge · 4 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months 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.