Kako samodejno izvoziti e-pošto iz Outlooka v Excel?

Običajno lahko e-pošto iz Outlooka izvozite v Excel s funkcijo Uvoz / izvoz. Ali ste že kdaj poskusili samodejno izvoziti e-pošto v datoteko Excel, ko prihajajo nova sporočila? V tem članku bom govoril o tem, kako samodejno izvoziti podatke o novih dohodnih sporočilih v Excelu.

Samodejno izvozite podatke o e-pošti iz Outlooka v Excel s kodo VBA

Izvozite informacije o e-pošti iz Outlooka v Excel z neverjetno funkcijo

Samodejno izvozite podatke o e-pošti iz Outlooka v Excel s kodo VBA

Če želite nova prispela e-poštna sporočila samodejno izvoziti v Excelov delovni zvezek, uporabite naslednjo kodo VBA:

1. Najprej ustvarite delovni zvezek s spodnjimi informacijami v glavi, kot je prikazano na spodnji sliki zaslona, ​​tako da bodo te informacije o sporočilih izvožene v to datoteko Excel.

2. Nato pojdite v Outlook in držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Samodejni izvoz e-poštnih informacij iz programa Outlook v datoteko 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

Opombe: V zgornji kodi, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx je pot do datoteke Excel in ime Excel, pri katerem želite najti izvožene podatke, jih spremenite po svojih željah.

4. Še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference Pojdite na Reference-Projekt1 pogovorno okno in preverite Knjižnica predmetov Microsoft Excel možnost iz Razpoložljive reference seznam, glej posnetek zaslona:

5. Nato kliknite OK , da zaprete pogovorno okno, nato pa shranite in zaprite okno s kodo.

6. Zdaj morate znova zagnati Outlook, da bo ta koda začela veljati. Odslej bodo nova e-poštna sporočila samodejno izvožena v določeno delovno knjigo, glejte posnetek zaslona:

Izvozite informacije o e-pošti iz Outlooka v Excel z neverjetno funkcijo

Če želite izvoziti e-pošto iz mape Prejeto, Odpošlji ali iz drugih map v Excelovo datoteko, Kutools za Outlook's Hitro poročilo vam lahko pomaga, da enostavno ustvarite datoteko XML za poročanje o vseh podatkih v trenutni e-poštni mapi ali mapi opravil, kot jo potrebujete.

Po namestitvi Kutools za Outlook, naredite tako:

1. Izberite mapo, v katero želite izvoziti vse informacije o sporočilih, in kliknite Kutools Plus > Hitro poročilo, glej posnetek zaslona:

2. Potem, v izskočil Shrani poročilo okno, izberite lokacijo in določite ime za to izvoženo datoteko, glejte posnetek zaslona:

3. In nato kliknite Shrani , da shranite to datoteko, in v pojavnem polju kliknite Da gumb, da odprete datoteko, si oglejte posnetek zaslona:

4. Zdaj lahko vidite, da so bile vse informacije o e-poštnih sporočilih v izbrani mapi izvožene v datoteko Excel, glejte posnetek zaslona:

Več relativnih člankov:

---

Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge Pro: Shrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

Preberi več       Brezplačen prenos      Nakup