Як автоматично експортувати інформацію про вхідні електронні листи у файл Excel за допомогою Outlook VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Багато користувачів сподіваються, що Outlook зможе автоматично експортувати основну інформацію вхідних електронних листів у файл Excel. У цій статті буде розглянуто цю вимогу та представлено швидкий метод за допомогою Outlook VBA.

Іноді з певних причин, як-от статистика пошти, вам може часто знадобитися експортувати електронні листи у файл Excel. Як правило, для наявних отриманих електронних листів ви можете просто скористатися функцією «Імпорт та експорт», щоб експортувати їх до Excel за один раз. Однак, можливо, ви навіть бажаєте, щоб Outlook міг автоматично експортувати вхідні електронні листи до Excel, щойно вони надходять у вашу поштову скриньку. Без сумніву, такої рідної функції в Outlook немає. Тому вам потрібно використовувати інші підходи, як-от сторонні надбудови або Outlook VBA. Тут ми навчимо вас, як зробити його автоматичним за допомогою Outlook VBA. Читайте далі, щоб отримати кроки та відповідні коди.

Автоматичний експорт інформації про вхідні електронні листи у файл Excel

  1. По-перше, вам слід створити файл Excel.
  • Відкрийте новий файл Excel.
  • Тоді вам слід ввести «Ні». у комірці A1, «Ім’я відправника» у комірці B1, «Адреса електронної пошти відправника» у комірці C1 та «Тема електронного листа» у комірці D1 та «Час отримання» у комірці E1, як на зображенні нижче.Створіть файл Excel
  • Нарешті, збережіть його під потрібним ім’ям і в бажаній папці.
  1. Після цього слід запустити Outlook.
  2. Потім натисніть клавіші «Alt + F11», які переведуть вас у редактор VBA.
  3. Далі у спливаючому вікні потрібно двічі клацнути «ThisOutlookSession» ліворуч.
  4. Згодом у вікні проекту «ThisOutlookSession» потрібно скопіювати та вставити в нього наведені нижче коди VBA.
Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

Коди VBA - автоматичний експорт інформації про вхідні електронні листи до файлу Excel

  1. Пізніше ви повинні підписати цей код.
  2. Згодом, відмtart Outlook для активації нового проекту VBA.
  3. Зрештою, відтепер усі вхідні електронні листи автоматично експортуватимуться до попередньо встановленого файлу Excel, щойно потраплять у папку «Вхідні». Файл excel матиме такий вигляд:Файл Excel, що містить інформацію про вхідні електронні листи

Запобігайте болісному пошкодженню даних PST

Outlook заслужив багато похвали завдяки своїм різноманітним функціям. Однак це не означає, що він надійний. Він все ще може бути скомпрометований у будь-який час. Наприклад, якщо ви часто закриваєте Outlook неправильно, дуже ймовірно, що ваші PST-дані будуть піддані небезпеці. У цьому випадку, якщо ви хочете ремонт PST даних, ви повинні вдатися до досвідченого інструменту, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.