Як експортувати електронні листи з 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 для додатків вікно, двічі клацніть ThisOutlookSession від Проект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 \ split document \ kto-data.xlsx це шлях до файлу Excel та ім’я Excel, у якому ви хочете знайти експортовану інформацію, будь ласка, змініть її відповідно до своїх потреб.
4. Досі в Microsoft Visual Basic для додатків вікна, натисніть Tools > посилання йти до Список літератури-Проект1 і перевірте Бібліотека об’єктів Microsoft Excel опція від Доступні посилання вікно списку, див. знімок екрана:
5. Потім натисніть OK , щоб закрити діалогове вікно, а потім збережіть і закрийте вікно коду.
6. Тепер вам слід перезапустити Outlook, щоб цей код набув чинності. Відтепер, якщо надходять нові електронні листи, вони будуть експортовані до певної книги автоматично, див. Знімок екрана:
Експортуйте інформацію електронної пошти з Outlook в Excel із дивовижною функцією
Якщо ви хочете експортувати електронні листи з папок "Вхідні", "Вихідні" чи інших папок у файл Excel, Kutools для Outlook's Швидкий звіт може допомогти вам легко створити XML-файл для звітності про інформацію про всі елементи у поточній папці електронної пошти або папці завдань, як вам потрібно.
після установки Kutools для Outlook, будь ласка, зробіть так:
1. Виберіть папку, до якої потрібно експортувати всю інформацію про повідомлення, а потім натисніть Kutools Plus > Швидкий звіт, див. скріншот:
2. Потім у вискочив Зберегти звіт вікно, виберіть місце і вкажіть ім'я для цього експортованого файлу, див. знімок екрана:
3. А потім натисніть зберегти , щоб зберегти цей файл, і у контекстному вікні натисніть Так кнопку, щоб відкрити файл, див. знімок екрана:
4. Тепер ви можете бачити всю інформацію електронних листів у вибраній папці, експортовану у файл Excel, див. Знімок екрана:
Більше відносних статей:
- Експортувати таблицю основного повідомлення електронної пошти до Excel в Outlook
- Отримуючи електронне повідомлення, яке містить деякі таблиці в тілі, іноді може знадобитися експортувати всі таблиці з тіла повідомлення на аркуш Excel. Зазвичай ви можете копіювати та вставляти таблиці на робочий аркуш, але тут я розповім про корисний метод вирішення цієї роботи, коли існує кілька таблиць, які потрібно експортувати.
- Витягнути або експортувати список завдань до Excel в Outlook
- Використовуючи Outlook, ви можете витягти список завдань у Excel для іншого використання. Завдяки потужній функції експорту в Outlook ви можете легко експортувати список завдань до Excel. Будь ласка, виконайте наведені нижче інструкції.
- Експорт інформації про контакти з фотографіями в Outlook
- Коли ви експортуєте контакти з Outlook у файл, можна експортувати лише текстову інформацію контактів. Але іноді для експортування потрібні фотографії, а також текстова інформація контактів. Як ви могли впоратися з цим завданням в Outlook?
- Експортувати структуру папки з Outlook в Excel
- У цій статті я розповім, як експортувати структуру папок облікового запису з Outlook у файл Excel. Будь ласка, досягайте цього за допомогою деталей цієї статті.
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.