A sütik segítenek nekünk Szolgáltatásainkat. Segítségével szolgáltatásainkat, Ön elfogadja a cookie-k használatát.
Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Hogyan exportálhat e-maileket az Outlook-ból Excel-be?

Normál esetben exportálhatja az e-maileket az Outlookból az Excel-be az Import / Export funkcióval. Azonban próbált-e automatikusan exportálni az e-maileket Excel fájlba, amikor új üzenet érkezik? Ebben a cikkben fogok beszélni arról, hogyan exportálhatja az új bejövő üzenetek adatait az Excel programban.

Automatikusan exportálja az e-mail információkat az Outlook-tól az Excel-be VBA kóddal


Gyorsan exportálhatja az érméket az Inbox / Elküldött tételek / Vázlatok ... Excel fájlba:

Val vel Kutools for Outlook's Gyorsjelentés funkció segítségével könnyen létrehozhat egy XML-fájlt az összes elem információinak az aktuális e-mail mappában vagy feladat mappában való jelentéséhez

doc automatikus exportálása az 5 excelhez

Kutools for Outlook: több mint 40 + praktikus Excel bővítményekkel, szabadon próbálkozhat az 60 napokban korlátozás nélkül. Töltsd le és próbáld ki most az ingyenes próbaverziót!

Automatikusan exportálja az e-mail információkat az Outlook-tól az Excel-be VBA kóddal

Ha az új érkező e-maileket automatikusan Excel-munkafüzetbe kívánja exportálni, kérjük, alkalmazza a következő VBA-kódot:

1. Először létre kell hoznia egy munkafüzetet az alábbi fejléc információkkal, a következő képernyőképen, így az üzenetek ezen információi exportálódnak erre az Excel fájlra.

doc automatikus exportálása az 1 excelhez

2. Ezután menjen az Outlookba, és tartsa lenyomva a gombot ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Az Microsoft Visual Basic for Applications dupla kattintással ThisOutlookSession tól Project1 (VbaProject.OTM) majd nyissa meg a módot, majd másolja a következő kódot az üres modulba.

VBA kód: Automatikusan exportálja az e-mail információkat az Outlook programból az Excel fájlba:

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

Megjegyzések: A fenti kódban, C: \ Users \ DT168 \ Desktop \ osztott dokumentum \ kto-data.xlsx az Excel fájl elérési útja és az Excel név, amelyik az exportált információkat szeretné megtalálni, kérjük, változtassa meg az Ön igénye szerint.

doc automatikus exportálása az 2 excelhez

4. Még a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák menni Referenciák-Project1 párbeszédpanelen, és ellenőrizze Microsoft Excel objektumkönyvtár lehetőség a Rendelkezésre álló referenciák list box, lásd a screenshot:

doc automatikus exportálása az 3 excelhez

5. Ezután kattintson OK gombot a párbeszédablak bezárásához, majd mentse és zárja be a kódablakot.

6. Most újra kell indítania az Outlook programot, hogy ez a kód érvényesüljön. Mostantól kezdve, ha új e-mail érkezik, automatikusan exportálnak az adott munkafüzetbe, lásd a képernyőképet:

doc automatikus exportálása az 4 excelhez



Kutools for Outlook

Több, mint 100 speciális funkció az Outlook 2010, 2013, 2016, 2019 és 365 alkalmazásokhoz

képernyőn lövés kutools az Outlook 201812 számára

További funkciók | ingyenes letöltés | Csak $ 39.00 több száz funkcióért

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.