Ugrás a tartalomra

Hogyan lehet automatikusan exportálni az e-maileket az Outlookból az Excelbe?

Általában az Import / Export szolgáltatással exportálhatja az e-maileket az Outlookból az Excelbe. De próbált már valaha exportálni az e-maileket Excel fájlba, amikor új üzenetek érkeztek? Ebben a cikkben arról fogok beszélni, hogyan lehet az új bejövő üzenetek adatait automatikusan exportálni az Excel programba.

Az e-mail információk automatikus exportálása az Outlookból az Excelbe VBA kóddal

Csodálatos funkcióval exportálja az e-mail információkat az Outlookból az Excelbe


Az e-mail információk automatikus exportálása az Outlookból az Excelbe VBA kóddal

Az új érkező e-mailek automatikus exportálásához egy Excel munkafüzetbe 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écinformációkkal, az alábbi képernyőképen látható módon, így az üzenetek ezen információi exportálódnak ebbe az Excel fájlba.

doc automatikusan exportálja az e-maileket az Excel 1-be

2. Ezután lépjen az Outlook programba, és tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA kód: E-mail információk automatikus exportálása az Outlookbó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 \ split document \ kto-data.xlsx az Excel fájl elérési útja és Excel neve, amelyekkel meg akarja találni az exportált információkat, kérjük, változtassa meg az igényeinek megfelelően.

doc automatikusan exportálja az e-maileket az Excel 2-be

4. Még mindig a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák menni Referenciák-Projekt1 párbeszédpanelt, és ellenőrizze Microsoft Excel objektumkönyvtár lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:

doc automatikusan exportálja az e-maileket az Excel 3-be

5. Ezután kattintson OK gombot a párbeszédablak bezárásához, majd a kódablak mentését és bezárását.

6. A kód életbe léptetéséhez indítsa újra az Outlook programot. Mostantól, ha új e-mailek érkeznek, azokat automatikusan exportálják az adott munkafüzetbe, lásd a képernyőképet:

doc automatikusan exportálja az e-maileket az Excel 4-be


Csodálatos funkcióval exportálja az e-mail információkat az Outlookból az Excelbe

Ha exportálni szeretné az e-maileket az Inbox, a Outbox vagy más mappákból egy Excel fájlba, Kutools az Outlook számára's Gyorsjelentés segítségével könnyedén létrehozhat egy XML fájlt, amely az aktuális e-mail mappában vagy a feladatmappában található összes elem adatait jelentheti.

Jegyzet:Ennek alkalmazásához Gyorsjelentés, először is le kell töltenie a Kutools az Outlook számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Outlook számára, kérjük, tegye a következőket:

1. Jelöljön ki egy mappát, amelybe az összes üzenetinformációt exportálni kívánja, majd kattintson a gombra Kutools Plus > Gyorsjelentés, lásd a képernyőképet:

2. Aztán beugrott Jelentés mentése ablakban válasszon helyet és adjon nevet ennek az exportált fájlnak, lásd a képernyőképet:

3. Ezután kattintson Megtakarítás gombra a fájl mentéséhez, és az előugró mezőben kattintson a gombra Igen gombra a fájl megnyitásához, lásd a képernyőképet:

4. Most láthatja, hogy a kiválasztott mappában lévő összes e-mail információ exportálva lett az Excel fájlba, lásd a képernyőképet:


Relatívabb cikkek:

  • E-mail törzstáblájának exportálása az Outlook programba az Excel programba
  • Ha olyan e-mailt kap, amely tartalmaz néhány táblázatot a törzsben, előfordulhat, hogy az összes táblát exportálnia kell az üzenet törzséből egy Excel munkalapra. Normál esetben másolhatja és beillesztheti a táblázatokat a munkalapra, de itt egy hasznos módszerről fogok beszélni ennek a feladatnak a megoldására, ha több táblát kell exportálni.
  • Exportálja a névjegyadatokat fényképekkel az Outlook programban
  • Ha exportálja a névjegyeket az Outlookból egy fájlba, csak a névjegyek szöveges információi exportálhatók. De néha szükség van az exportálandó fotókra, valamint a névjegyek szöveges adataira. Hogyan kezelheti ezt a feladatot az Outlook programban?

A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
This comment was minimized by the moderator on the site
I have followed above steps but have blanks in excel.
what should I do?
This comment was minimized by the moderator on the site
Same excel not getting updated? Any suggestions?
This comment was minimized by the moderator on the site
How to capture the Categories, Importance or the User-defined column on the same folder view?
This comment was minimized by the moderator on the site
Can you please let me know how to deal with sub-folders in above code.
This comment was minimized by the moderator on the site
how to deal with subfolders.
This comment was minimized by the moderator on the site
I need the help about exporting Email information sent (outgoing) emails
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations