Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā automātiski eksportēt e-pastus no Outlook uz Excel?

Parasti jūs varat eksportēt e-pastus no Outlook uz Excel ar importa / eksporta funkciju. Bet vai jūs kādreiz esat mēģinājis automātiski eksportēt e-pastus uz Excel failu, kad ierodas jaunās ziņas? Šajā rakstā es runāšu par to, kā automātiski Excel eksportēt informāciju par jaunajiem ienākošajiem ziņojumiem.

Auto eksporta e-pasta informācija no perspektīvas uz Excel ar VBA kodu


Ātri eksportējiet emuālus no iesūtnes / nosūtītām vienumiem / melnrakstiem ... uz Excel failu:

ar Kutools for Outlook's Ātrā atskaite jūs varat viegli izveidot XML failu, lai ziņotu par visu vienumu informāciju pašreizējā e-pasta mapē vai uzdevumu mapē

doc auto eksportēt e-pastus uz Excel 5

Kutools for Outlook: ar vairāk nekā 40 + ērtiem Excel pievienojumprogrammām, bez maksas izmēģināt bez ierobežojumiem 60 dienās. Lejupielādējiet un izmēģiniet bezmaksas izmēģinājuma versiju tagad!

Auto eksporta e-pasta informācija no perspektīvas uz Excel ar VBA kodu

Lai automātiski eksportētu jaunos ienākošos e-pasta ziņojumus uz Excel darbgrāmatu, lūdzu, izmantojiet šādu VBA kodu:

1. Pirmkārt, jums vajadzētu izveidot darbgrāmatu ar zemāk esošo informāciju par galvenēm, kā parādīts attēlā, tāpēc šī ziņu informācija tiks eksportēta uz šo Excel failu.

doc auto eksportēt e-pastus uz Excel 1

2. Tad ejiet uz Outlook un turiet ALT + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

3. Iekš Microsoft Visual Basic for Applications logu, veiciet dubultklikšķi ThisOutlookSession no Project1 (VbaProject.OTM) lai atvērtu režīmu, un pēc tam nokopējiet un ielīmējiet šādu kodu tukšajā modulī.

VBA kods: automātiska eksporta e-pasta informācija no Outlook uz Excel failu:

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

Piezīmes: Iepriekš minētajā kodā C: \ Lietotāji \ DT168 \ Desktop \ sadalīts dokuments \ kto-data.xlsx ir Excel faila ceļš un Excel nosaukums, uz kuru vēlaties atrast eksportēto informāciju, lūdzu, mainiet to atbilstoši jūsu vajadzībām.

doc auto eksportēt e-pastus uz Excel 2

4. Joprojām ir Microsoft Visual Basic for Applications logs, noklikšķiniet uz darbarīki > Atsauces doties uz Atsauces - Project1 dialoglodziņš un pārbaudiet Microsoft Excel objektu bibliotēka iespēja no Pieejamās atsauces saraksta lodziņš, skatiet ekrānuzņēmumu:

doc auto eksportēt e-pastus uz Excel 3

5. Pēc tam noklikšķiniet uz OK pogu, lai aizvērtu dialoglodziņu, un pēc tam saglabājiet un aizveriet koda logu.

6. Tagad jums ir jārestartē Outlook, lai šis kods stātos spēkā. No šī brīža, ja ieradīsies jauni e-pasta ziņojumi, tie tiks automātiski eksportēti uz konkrēto darbgrāmatu, skatīt ekrānuzņēmumu:

doc auto eksportēt e-pastus uz Excel 4



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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 · 4 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 4 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.