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ů:
- 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.
- Extrahujte nebo exportujte seznam úkolů do aplikace Excel v aplikaci Outlook
- Při používání aplikace Outlook můžete rozbalit seznam úkolů do aplikace Excel pro další použití. Díky výkonné funkci Export v aplikaci Outlook můžete snadno exportovat seznam úkolů do aplikace Excel. Postupujte podle níže uvedených ukázek tutoriálu.
- Exportujte informace kontaktů pomocí fotografií v aplikaci Outlook
- Při exportu kontaktů z Outlooku do souboru lze exportovat pouze textové informace kontaktů. Někdy však potřebujete exportovat fotografie i textové informace kontaktů, jak byste si mohli s tímto úkolem poradit v Outlooku?
- Exportujte strukturu složek z aplikace Outlook do aplikace Excel
- V tomto článku představím, jak exportovat strukturu složek účtu ze souboru aplikace Outlook do aplikace Excel. Dosáhněte toho s podrobnostmi tohoto článku.
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.