Kolačići nam pomoći isporučiti naše usluge. Korištenjem naših usluga, pristajete na naše korištenje kolačića.
Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijaviti se
x
or
x
x
Registrirajte se
x

or

Kako automatski izvesti poruke e-pošte iz programa Outlook u Excel?

Normalno, možete izvesti e-poštu iz programa Outlook u Excel s značajkom uvoza / izvoza. No, jeste li ikad pokušali automatski izvesti poruke e-pošte u Excel datoteku kada stignu nove poruke? U ovom ću članku govoriti o tome kako automatski izvesti informacije o novim dolaznim porukama u programu Excel.

Automatsko izvoz podataka e-pošte iz outlooka u Excel s VBA kodom


Brzo izvoziti emials iz Inbox / Poslano stavke / Skice ... u Excel datoteku:

S Kutools za Outlook's Brzo izvješće možete jednostavno generirati XML datoteku za izvješćivanje o svim stavkama u trenutnoj mapi e-pošte ili mapi zadataka

doc auto izvoz e-pošte za Excel 5

Kutools za Outlook: s više od 40 + praktičnih dodataka za Excel, slobodno možete isprobati bez ograničenja u 60 danima. Preuzmite i isprobajte besplatnu probnu verziju sada!

Automatsko izvoz podataka e-pošte iz outlooka u Excel s VBA kodom

Da biste izvezili nove poruke e-pošte koje dolazite u radnu knjigu programa Excel, primijenite sljedeći VBA kôd:

1, Prvo, trebali biste stvoriti radnu knjigu s informacijama ispod zaglavlja kako je prikazano na sljedećoj slici, tako da će te informacije poruka biti izvezene u ovu datoteku programa Excel.

doc auto izvoz e-pošte za Excel 1

2, Zatim idite na Outlook i držite ALT + F11 tipke za otvaranje Microsoft Visual Basic for Applications prozor.

3. U Microsoft Visual Basic for Applications prozor, dvaput klik ThisOutlookSession od Project1 (VbaProject.OTM) otvorite način rada, a zatim kopirajte i zalijepite sljedeći kod u prazni modul.

VBA kôd: Auto izvoz podataka e-pošte iz datoteke programa Outlook u 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

bilješke: U gore navedenom kodu, C: \ Users \ DT168 \ Desktop \ split dokument \ kto-data.xlsx je Excel put datoteke i Excel ime koje želite pronaći izvezene podatke, molimo vas da ih promijenite u vašu potrebu.

doc auto izvoz e-pošte za Excel 2

4, Još uvijek u Microsoft Visual Basic for Applications prozor, kliknite alat > Reference otići na Reference-Project1 dijaloški okvir i provjerite Knjižnica objekta Microsoft Excel Mogućnost iz Dostupne reference okvir za prikaz, pogledajte snimak zaslona:

doc auto izvoz e-pošte za Excel 3

5, Zatim kliknite OK gumb za zatvaranje dijaloškog okvira, a zatim spremite i zatvorite prozor koda.

6, Sada biste trebali ponovo pokrenuti Outlook kako bi ovaj kod stupio na snagu. Od sada, ako dođu nove e-poruke, one će se automatski izvesti na određenu radnu knjigu, pogledajte snimak zaslona:

doc auto izvoz e-pošte za Excel 4



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

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.