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.

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.

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:

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:

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.

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ů:

---

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

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

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? 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 Pro: Dá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