Note: The other languages of the website are Google-translated. Back to English

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.

doc samodejno izvozi e-pošto v excel 1

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.

doc samodejno izvozi e-pošto v excel 2

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:

doc samodejno izvozi e-pošto v excel 3

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:

doc samodejno izvozi e-pošto v excel 4


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.

Opomba:Če želite uporabiti to Hitro poročilo, najprej bi morali prenesti Kutools za Outlookin nato funkcijo hitro in enostavno uporabite.

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:

  • Izvoz tabele telesa e-pošte v Excel v Outlooku
  • Ko prejmete e-poštno sporočilo, ki vsebuje nekaj tabel v telesu, boste včasih morda morali vse tabele iz telesa sporočila izvoziti na Excelov delovni list. Običajno lahko tabele kopirate in prilepite na delovni list, toda tukaj bom govoril o uporabni metodi za reševanje tega posla, kadar je treba izvoziti več tabel.
  • Izvozite podatke o stikih s fotografijami v Outlooku
  • Ko izvozite stike iz Outlooka v datoteko, je mogoče izvoziti samo besedilne podatke stikov. Toda včasih potrebujete fotografije, ki jih želite izvoziti, in besedilne podatke o stikih. Kako bi se lahko v Outlooku spoprijeli s to nalogo?

Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (8)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Potrebujem pomoč pri izvozu poslanih (odhodnih) e-poštnih podatkov
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Jorge,
Če želite izvoziti poslana sporočila iz mape Poslani predmeti, vam lahko pomaga funkcija za hitro poročilo Kutools for Outlook. Kutools za Outlook lahko najprej prenesete in nato uporabite.
Ta komentar je moderator na spletnem mestu minimiziral
kako ravnati s podmapami.
Ta komentar je moderator na spletnem mestu minimiziral
Ali mi lahko prosim sporočite, kako ravnati s podmapami v zgornji kodi.
Ta komentar je moderator na spletnem mestu minimiziral
Kako zajeti stolpec Kategorije, Pomen ali Uporabniško definiran stolpec v istem pogledu mape?
Ta komentar je moderator na spletnem mestu minimiziral
Sledil sem zgornjim korakom, vendar imam v excelu praznine.
kaj naj naredim?
Ta komentar je moderator na spletnem mestu minimiziral
Isti excel se ne posodablja? Kakšen predlog?
Ta komentar je moderator na spletnem mestu minimiziral
Če imam v Outlooku več e-poštnih računov, kako lahko pošljem e-pošto iz določenega računa?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije