Přejít k hlavnímu obsahu

Jak automaticky exportovat e-maily z Outlooku do Excelu?

Normálně můžete e-maily exportovat z Outlooku do Excelu pomocí funkce Import / Export. Pokusili jste se ale někdy automaticky exportovat e-maily do souboru aplikace Excel, když přicházejí nové zprávy? V tomto článku budu hovořit o tom, jak automaticky exportovat informace o nových příchozích zprávách v aplikaci Excel.

Automaticky exportujte e-mailové informace z aplikace Outlook do aplikace Excel pomocí kódu VBA

Exportujte e-mailové informace z aplikace Outlook do aplikace Excel s úžasnou funkcí


Automaticky exportujte e-mailové informace z aplikace Outlook do aplikace Excel pomocí kódu VBA

Chcete-li automaticky exportovat nové příchozí e-maily do sešitu aplikace Excel, použijte následující kód VBA:

1. Nejprve byste měli vytvořit sešit s níže uvedenými informacemi o záhlaví, jak ukazuje následující snímek obrazovky, takže tyto informace o zprávách budou exportovány do tohoto souboru Excel.

e-maily s automatickým exportem dokumentů do aplikace Excel 1

2. Poté přejděte do Outlooku a podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatický export e-mailových informací ze souboru aplikace Outlook do aplikace 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

Poznámka: Ve výše uvedeném kódu, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx je cesta k souboru Excel a název Excel, ve kterém chcete najít exportované informace, změňte je prosím podle potřeby.

e-maily s automatickým exportem dokumentů do aplikace Excel 2

4. Stále v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Objektová knihovna Microsoft Excel možnost z nabídky Dostupné reference seznam, viz screenshot:

e-maily s automatickým exportem dokumentů do aplikace Excel 3

5. Pak klikněte na tlačítko OK tlačítko zavřete dialogové okno a poté uložte a zavřete okno kódu.

6. Nyní byste měli restartovat Outlook, aby se tento kód projevil. Od této chvíle, pokud přicházejí nové e-maily, budou automaticky exportovány do konkrétního sešitu, viz screenshot:

e-maily s automatickým exportem dokumentů do aplikace Excel 4


Exportujte e-mailové informace z aplikace Outlook do aplikace Excel s úžasnou funkcí

Pokud chcete exportovat e-maily ze složky Doručená pošta, Pošta k odeslání nebo z jiných složek do souboru aplikace Excel, Kutools pro aplikaci Outlook's Rychlá zpráva vám pomůže snadno vygenerovat soubor XML pro hlášení informací o všech položkách v aktuální e-mailové složce nebo složce úkolů, jak potřebujete.

Poznámka:Použít toto Rychlá zprávaNejprve byste si měli stáhnout soubor Kutools pro aplikaci Outlooka poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro aplikaci Outlook, udělejte prosím toto:

1. Vyberte složku, do které chcete exportovat všechny informace o zprávách, a klikněte na Kutools Plus > Rychlá zpráva, viz screenshot:

2. Pak, v vyskočil Uložit zprávu v okně, vyberte umístění a zadejte název tohoto exportovaného souboru, viz screenshot:

3. A pak klikněte Uložit tlačítko pro uložení tohoto souboru a ve vyskakovacím poli klikněte na Ano tlačítko pro otevření souboru, viz screenshot:

4. Nyní můžete vidět, že všechny informace o e-mailech ve vybrané složce byly exportovány do souboru aplikace Excel, viz screenshot:


Více relativních článků:

  • Exportujte tabulku těla e-mailu do aplikace Excel v aplikaci Outlook
  • Když obdržíte e-mail, který obsahuje některé tabulky v těle, někdy budete možná muset exportovat všechny tabulky z těla zprávy do listu aplikace Excel. Normálně můžete tabulky zkopírovat a vložit do listu, ale zde budu hovořit o užitečné metodě řešení této úlohy, když je potřeba exportovat více tabulek.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
This comment was minimized by the moderator on the site
I have followed above steps but have blanks in excel.
what should I do?
This comment was minimized by the moderator on the site
Same excel not getting updated? Any suggestions?
This comment was minimized by the moderator on the site
How to capture the Categories, Importance or the User-defined column on the same folder view?
This comment was minimized by the moderator on the site
Can you please let me know how to deal with sub-folders in above code.
This comment was minimized by the moderator on the site
how to deal with subfolders.
This comment was minimized by the moderator on the site
I need the help about exporting Email information sent (outgoing) emails
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations