Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum de a exporta 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 atunci când sosesc mesaje noi? În acest articol, voi vorbi despre cum să exportați automat informațiile din noile mesaje primite în Excel.

Exportați automat informații de e-mail de la Outlook la Excel cu codul VBA


Exportați rapid emaliile din Inbox / Articole trimise / Proiecte ... la fișierul Excel:

Cu Kutools pentru Outlook's Raport Rapid , puteți genera cu ușurință un fișier XML pentru raportarea informațiilor tuturor elementelor din folderul curent de e-mail sau din dosarul de sarcini

doc auto export de e-mailuri pentru a excela 5

Kutools pentru Outlook: cu mai mult de 40 + extensii Excel excelente, gratuite pentru a încerca fără limitări în zilele 60. Descărcați și încercați încercarea gratuită acum!

Exportați automat informații de e-mail de la Outlook la Excel cu codul VBA

Pentru a exporta în mod automat noile e-mailuri care sosesc î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 din antetul de mai jos, după cum se arată în imaginea de mai jos, astfel încât aceste informații ale mesajelor vor fi exportate în acest fișier Excel.

doc auto export de e-mailuri pentru a excela 1

2. Apoi mergeți la Outlook și țineți apăsată tasta ALT + F11 pentru a deschide tasta Microsoft Visual Basic pentru aplicații fereastră.

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

Codul VBA: Informații despre exportul automat de e-mail de la Outlook la 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: \ Utilizatorii \ DT168 \ Desktop \ split document \ kto-data.xlsx este calea fișierului Excel și numele Excel pe care doriți să-l localizați informațiile exportate, vă rugăm să-l modificați în funcție de necesități.

doc auto export de e-mailuri pentru a excela 2

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

doc auto export de e-mailuri pentru a excela 3

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

6. Acum, trebuie să reporniți Outlook pentru a face acest cod să aibă efect. De acum încolo, dacă sosesc e-mailuri noi, acestea vor fi exportate în mod automat în registrul de lucru specific, vezi captura de ecran:

doc auto export de e-mailuri pentru a excela 4



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 5 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      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.