Печыва дапамагчы нам даставіць нашы паслугі. Карыстаючыся нашымі паслугамі, Вы згаджаецеся на выкарыстанне намі печыва.
Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як экспартаваць паведамленні з Outlook, у Excel аўтаматычна?

Як правіла, вы можаце экспартаваць паведамленні з Outlook, у Excel з Імпарт / Экспарт функцыі. Але, вы калі-небудзь спрабавалі аўто экспартаваць лісты ў файл Excel, калі новыя паведамленні прыбываюць? У гэтым артыкуле я распавяду пра тое, як экспартаваць інфармацыю пра новыя ўваходных паведамленняў аўтаматычна ў Excel.

Аўто экспарту інфармацыі па электроннай пошце ад знешняга выгляду ў Excel з VBA кода


Хутка экспартаваць emials з папкі Уваходныя / Адпраўленыя / Чарнавікі ... у файл Excel:

з Kutools для Outlook,'s хуткі справаздачу асаблівасць, вы можаце лёгка згенераваць файл XML для прадстаўлення інфармацыі ўсіх пунктаў у бягучай тэчцы электроннай пошты ці тэчцы задач

дакумент аўтаматычна экспартаваць электронныя лісты праўзыходных 5

Kutools для Outlook,: З больш чым 40 + зручныя Excel надбудовы, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 60 дзён. Спампаваць і паспрабаваць бясплатную пробную версію зараз!

Аўто экспарту інфармацыі па электроннай пошце ад знешняга выгляду ў Excel з VBA кода

Для таго, каб экспартаваць новыя прыходзяць паведамленні электроннай пошты ў кнігу Excel аўтаматычна, ўжыеце наступны VBA код:

1, Па-першае, вы павінны стварыць рабочую кнігу з інфармацыяй ніжэй загалоўка ў наступным скрыншоце паказана, таму гэтыя дадзеныя з паведамленняў будуць экспартаваныя ў гэты файл Excel.

дакумент аўтаматычна экспартаваць электронныя лісты праўзыходных 1

2, Затым перайдзіце да вонкавага выгляду і ўтрымлівайце 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 \ Раскол дакумент \ хто- data.xlsx гэта шлях да файла Excel і імя Excel, які вы хочаце, каб знайсці экспартуемую інфармацыю, калі ласка, зменіце яго на вашу патрэбнасць.

дакумент аўтаматычна экспартаваць электронныя лісты праўзыходных 2

4, Тым не менш у Microsoft Visual Basic для прыкладанняў вокны, націсніце інструменты > Спасылкі каб перайсці да Спасылкі-Project1 дыялогавае акно, і праверка Бібліятэка аб'ектаў Microsoft Excel варыянт ад даступныя спасылкі Акно спісу, см скрыншот:

дакумент аўтаматычна экспартаваць электронныя лісты праўзыходных 3

5, затым націсніце OK кнопку, каб закрыць дыялогавае акно, а затым захаваць і зачыніць акно кода.

6, Зараз, вы павінны перазапусціць Outlook, каб зрабіць гэты код уступае ў сілу. Цяпер, калі ёсць новыя электронныя лісты прыбываюць, яны будуць экспартаваныя ў канкрэтнай кнізе аўтаматычна, см скрыншот:

дакумент аўтаматычна экспартаваць электронныя лісты праўзыходных 4



Kutools для Outlook,

Больш 100 Пашыраныя функцыі для Перспектывы 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.