Cookies ни помагат да постигнем нашите услуги. С помощта на нашите услуги, Вие се съгласявате да използвате нашите бисквитки.
Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да експортирате имейли от Outlook в Excel автоматично?

Обикновено можете да експортирате имейлите от Outlook в Excel с функцията Импорт / експорт. Но, опитали ли сте се да експортирате автоматично имейлите в Excel файл, когато пристигат нови съобщения? В тази статия ще говоря за това как да експортирам информацията за новите входящи съобщения автоматично в Excel.

Автоматично експортиране на имейл информация от Outlook в Excel с VBA код


Бързо експортиране на emials от Inbox / Изпратени елементи / Чернови ... към Excel файл:

с Kutools за Outlook's Бърз отчет можете лесно да генерирате XML файл за отчитане на информацията за всички елементи в текущата папка на имейли или задачата

Документи за автоматично експортиране на документи, за да Excel 5

Kutools за Outlook: с повече от 40 + удобни добавки в Excel, безплатни, без ограничения в 60 дни. Изтеглете и опитайте безплатната пробна версия сега!

Автоматично експортиране на имейл информация от Outlook в Excel с VBA код

За да експортирате новите пристигащи имейли автоматично в работна книга на Excel, моля приложете следния код VBA:

1, Първо, трябва да създадете работна книга с информацията от заглавието по-долу, както е показано на следващия екран, така че тази информация за съобщенията ще бъде експортирана в този файл в Excel.

Документи за автоматично експортиране на документи, за да 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 \ раздели документ \ kto-data.xlsx е пътят за файла на Excel и името на Excel, които искате да намерите в изнесената информация, моля, променете го според вашите нужди.

Документи за автоматично експортиране на документи, за да Excel 2

4, Все още в Microsoft Visual Basic за приложения прозорец, кликнете Инструменти > Препратки за да отидете на Позоваването-Project1 диалоговия прозорец и проверете Библиотека с обекти на Microsoft Excel опция от Налични референции , вижте екранната снимка:

Документи за автоматично експортиране на документи, за да Excel 3

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

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

Документи за автоматично експортиране на документи, за да Excel 4



Kutools за 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.