Как да експортирате имейли от 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 за приложения прозорец, кликнете Инструменти > Препратки за да отидете на Референции-Проект1 диалогов прозорец и проверете Библиотека с обекти на Microsoft Excel опция от Налични препратки списъчно поле, вижте екранна снимка:

5, След това кликнете OK бутон, за да затворите диалоговия прозорец, след което запазете и затворете прозореца с кода.

6. Сега трябва да рестартирате Outlook, за да влезе в сила този код. Отсега нататък, ако пристигат нови имейли, те ще бъдат експортирани автоматично в конкретната работна книга, вижте екранната снимка:

Експортирайте имейл информация от Outlook към Excel с невероятна функция

Ако искате да експортирате имейлите от Inbox, Outbox или други папки във файл на Excel, Kutools за Outlook's Бърз доклад може да ви помогне лесно да генерирате XML файл за отчитане на информацията за всички елементи в текущата имейл папка или папка със задачи, както ви е необходимо.

След инсталиране Kutools за Outlook, моля, направете следното:

1. Изберете папка, в която искате да експортирате цялата информация за съобщенията, след което щракнете Kutools плюс > Бърз доклад, вижте екранна снимка:

2. След това изскочи Запазване на отчета прозорец, изберете местоположение и посочете име за този експортиран файл, вижте екранна снимка:

3. И след това щракнете Save бутон, за да запазите този файл, и в изскачащото поле щракнете върху Да бутон за отваряне на файла, вижте екранна снимка:

4. Сега можете да видите, че цялата информация за имейлите в избраната папка е експортирана във файла на Excel, вижте екранната снимка:

Още относителни статии:

---

Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове  /   Антифишинг имейли  /  🕘Показване на часовата зона на подателя ...

👩🏼‍🤝‍👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли  /  Разделете група контакти на отделни групи  /  Премахнете напомнянията за рожден ден ...

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка