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.
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.
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:
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:
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.
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.
- A feladatlista kivonása vagy exportálása az Excel programba az Outlook programban
- Az Outlook használata közben kibonthatja a feladatlistát az Excelbe más használatra. Az Outlook erőteljes Export funkciójával könnyedén exportálhatja a feladatlistát az Excel programba. Kérjük, tegye az alábbiakat.
- 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?
- Export mappaszerkezet az Outlookból az Excelbe
- Ebben a cikkben bemutatom, hogyan lehet egy fiók mappaszerkezetét exportálni az Outlookból az Excel fájlba. Kérjük, érje el a cikk részleteivel.
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
???? 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 Pro: Kö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.