A bejövő e-mailek információinak automatikus exportálása Excel-fájlba az Outlook VBA segítségével

Sok felhasználó azt reméli, hogy az Outlook automatikusan exportálja a bejövő e-mailek elsődleges információit egy Excel-fájlba. Ez a cikk megvizsgálja ezt a követelményt, és bemutat egy gyors módszert az Outlook VBA-n keresztül.

Néha bizonyos okok miatt, például a levelezési statisztikák miatt, gyakran előfordulhat, hogy az e-maileket Excel-fájlba kell exportálnia. Általánosságban elmondható, hogy a meglévő fogadott e-maileket egyszerűen használhatja az „Importálás és exportálás” funkcióval, hogy egy lépésben exportálja őket Excelbe. Azonban talán még arra is vágyik, hogy az Outlook automatikusan exportálja a bejövő e-maileket az Excelbe, amint megérkeznek a postafiókjába. Kétségtelenül nincs ilyen natív funkció az Outlookban. Ezért más megközelítéseket kell alkalmaznia, például egy harmadik féltől származó bővítményt vagy az Outlook VBA-t. Itt megtanítjuk, hogyan teheti automatikusan az Outlook VBA-val. Olvassa el a lépéseket és a megfelelő kódokat.

A bejövő e-mailek információinak automatikus exportálása Excel-fájlba

1. Először is létre kell hoznia egy Excel fájlt.

• Nyisson meg egy új Excel-fájlt.
• Ezután be kell írnia, hogy „Nem”. az A1 cellában, a „Feladó neve” a B1 cellában, a „Feladó e-mail címe” a C1 cellában és az „E-mail tárgya” a D1 cellában, és a „Fogadási idő” az E1 cellában, mint az alábbi képen.
• Végül mentse el a kívánt névbe és mappába.

2. Ezt követően el kell indítania az Outlookot.
3. Ezután nyomja meg az „Alt + F11” billentyűket, amely a VBA szerkesztőhöz viszi.
4. Ezután a felugró ablakban kattintson duplán a bal oldalon található „ThisOutlookSession” elemre.
5. Ezt követően a „ThisOutlookSession” projektablakban ki kell másolnia és be kell illesztenie a következő VBA-kódokat.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

6. Később alá kell írnia ezt a kódot.
7. Ezt követően restart Outlook az új VBA-projekt aktiválásához.
8. Végül mostantól az összes bejövő e-mail automatikusan exportálásra kerül az előre beállított Excel-fájlba, amint a Beérkezett üzenetek mappába kerül. Az Excel fájl a következő képhez hasonlóan fog kinézni:

Kerülje el a fájdalmas PST-adatok korrupcióját

Az Outlook sok dicséretet szerzett különféle funkcióinak köszönhetően. Ez azonban nem jelenti azt, hogy ez bolondbiztos. Még mindig bármikor veszélybe kerülhet. Ha például gyakran nem megfelelően zárja be az Outlook-ot, nagyon valószínű, hogy a PST-adatai veszélybe kerülnek. Ebben az esetben, ha szeretné javítás PST adatokhoz, tapasztalt eszközhöz kell folyamodnia, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com