Cum se exportă automat e-mailurile din Outlook în Excel?

În mod normal, puteți exporta e-mailurile din Outlook în Excel cu ajutorul funcției Import / Export. Dar, ați încercat vreodată să exportați automat e-mailurile în fișierul Excel când sosesc mesaje noi? În acest articol, voi vorbi despre cum să exportați automat informațiile despre noile mesaje primite în Excel.

Exportați automat informațiile de e-mail din Outlook în Excel cu cod VBA

Exportați informații de e-mail din Outlook în Excel cu o funcție uimitoare

Exportați automat informațiile de e-mail din Outlook în Excel cu cod VBA

Pentru a exporta automat noile e-mailuri sosite într-un registru de lucru Excel, aplicați următorul cod VBA:

1. În primul rând, ar trebui să creați un registru de lucru cu informațiile de antet de mai jos, după cum se arată în următoarea captură de ecran, astfel încât aceste informații despre mesaje să fie exportate în acest fișier Excel.

2. Apoi accesați Outlook și țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: exportați automat informațiile de e-mail din Outlook în fișierul 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

notițe: În codul de mai sus, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx este calea fișierului Excel și numele Excel pe care doriți să localizați informațiile exportate, vă rugăm să le modificați în funcție de nevoile dvs.

4. Încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Instrumente > Referinte a merge la Referințe-Proiect1 casetă de dialog și bifați Biblioteca de obiecte Microsoft Excel opțiune de la Referințe disponibile casetă listă, vezi captura de ecran:

5. Apoi apasa OK pentru a închide dialogul, apoi salvați și închideți fereastra de cod.

6. Acum, ar trebui să reporniți Outlook pentru a face acest cod să intre în vigoare. De acum înainte, dacă vor sosi e-mailuri noi, acestea vor fi exportate automat în registrul de lucru specific, vezi captura de ecran:

Exportați informații de e-mail din Outlook în Excel cu o funcție uimitoare

Dacă doriți să exportați e-mailurile din Inbox, Outbox sau alte foldere într-un fișier Excel, Kutools pentru Outlook's Raport rapid vă poate ajuta să generați cu ușurință un fișier XML pentru raportarea tuturor informațiilor despre elementele din folderul de e-mail curent sau folderul de activitate, după cum aveți nevoie.

După instalare Kutools pentru Outlook, vă rugăm să faceți acest lucru:

1. Selectați un folder pe care doriți să exportați toate mesajele, apoi faceți clic pe Kutools Plus > Raport rapid, vezi captura de ecran:

2. Apoi, în pop-out Salvează raportul fereastra, alegeți o locație și specificați un nume pentru acest fișier exportat, vedeți captura de ecran:

3. Apoi, faceți clic Economisiți pentru a salva acest fișier și, în caseta pop-out, faceți clic pe Da butonul pentru a deschide fișierul, vezi captura de ecran:

4. Acum, puteți vedea toate informațiile despre e-mailurile din folderul selectat care au fost exportate în fișierul Excel, a se vedea captura de ecran:

Mai multe articole relative:

---

Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente Pro: Salvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

Citeste mai mult       Descărcare gratuită      Cumpărare