Как автоматически экспортировать электронные письма из Outlook в Excel?
Обычно вы можете экспортировать электронные письма из Outlook в Excel с помощью функции импорта / экспорта. Но пробовали ли вы когда-нибудь автоматически экспортировать электронные письма в файл Excel при поступлении новых сообщений? В этой статье я расскажу о том, как автоматически экспортировать информацию о новых входящих сообщениях в Excel.
Автоматический экспорт информации электронной почты из Outlook в Excel с кодом VBA
Экспорт информации электронной почты из Outlook в Excel с удивительной функцией
Автоматический экспорт информации электронной почты из Outlook в Excel с кодом VBA
Чтобы автоматически экспортировать новые поступающие электронные письма в книгу Excel, примените следующий код VBA:
1. Во-первых, вы должны создать книгу с приведенной ниже информацией заголовка, как показано на следующем снимке экрана, чтобы эта информация сообщений была экспортирована в этот файл Excel.
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, по которому вы хотите найти экспортированную информацию, измените его по своему усмотрению.
4. Все еще в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Рекомендации , чтобы перейти к Ссылки-Project1 диалоговое окно и установите флажок Библиотека объектов Microsoft Excel из файла Доступные ссылки список, см. снимок экрана:
5. Затем нажмите OK кнопку, чтобы закрыть диалоговое окно, а затем сохраните и закройте окно кода.
6. Теперь вам следует перезапустить Outlook, чтобы этот код вступил в силу. С этого момента, если будут поступать новые электронные письма, они будут автоматически экспортироваться в конкретную книгу, см. Снимок экрана:
Экспорт информации электронной почты из Outlook в Excel с удивительной функцией
Если вы хотите экспортировать электронные письма из входящих, исходящих или других папок в файл Excel, Kutools for Outlook's Быстрый отчет может помочь вам легко создать XML-файл для сообщения информации обо всех элементах в текущей папке электронной почты или папке задач по мере необходимости.
После установки 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 для Outlook Бесплатная версия!
Испытайте совершенно новые Kutools для Outlook БЕСПЛАТНАЯ версия с более чем 70 потрясающими функциями, которыми вы можете пользоваться НАВСЕГДА! Нажмите, чтобы скачать сейчас!
???? Автоматизация электронной почты: Автоответ (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Отозвать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Расширенный поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Напоминать, когда приходят важные письма / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
