Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or
0
0
0
s2smodern

Jak exportovat emaily z aplikace Outlook do aplikace Excel automaticky?

Obvykle můžete exportovat e-maily z aplikace Outlook do aplikace Excel pomocí funkce import / export. Pokusili jste se někdy automaticky exportovat e-maily do souboru aplikace Excel při příchodu nových zpráv? V tomto článku budu hovořit o tom, jak automaticky exportovat informace o nových příchozích zprávách do aplikace Excel.

Automaticky exportovat e-mailové informace z aplikace Outlook do aplikace Excel s kódem VBA


Rychle exportujte emialy z Inbox / Odeslané položky / Koncepty ... do souboru aplikace Excel:

S Kutools pro aplikaci Outlook's Rychlá zpráva můžete snadno generovat soubor XML pro oznamování informací o všech položkách v aktuální složce e-mailu nebo složce úkolů

doc auto exportovat emaily na excel 5

Kutools pro aplikaci Outlook: s více než 40 + šikovnými doplňky aplikace Excel, můžete zkusit bez omezení v 60 dnech. Stáhnout a vyzkoušejte zkušební verzi zdarma!

Automaticky exportovat e-mailové informace z aplikace Outlook do aplikace Excel s kódem VBA

Chcete-li nově příchozí e-maily exportovat do sešitu aplikace Excel, použijte prosím 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 je znázorněno na následujícím obrázku, takže tyto informace o zprávách budou exportovány do tohoto souboru aplikace Excel.

doc auto exportovat emaily na excel 1

2. Pak přejděte do aplikace Outlook a podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

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

Kód VBA: Automatické exportování e-mailových informací z aplikace Outlook do souboru 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 \ rozdělit dokument \ kto-data.xlsx je cesta k souboru aplikace Excel a jméno aplikace Excel, které chcete vyhledat exportované informace, změňte je podle potřeby.

doc auto exportovat emaily na excel 2

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

doc auto exportovat emaily na excel 3

5. Pak klikněte na tlačítko OK pro zavření dialogového okna a poté uložit a zavřít okno kódu.

6. Nyní byste měli aplikaci Outlook restartovat, aby tento kód nabyl účinnosti. Od tohoto okamžiku, kdyby přišli nové e-maily, budou automaticky exportovány do konkrétního sešitu, viz screenshot:

doc auto exportovat emaily na excel 4


100 + Výkonné nástroje a funkce pro aplikaci Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

li-oranžováKompatibilní s aplikací Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

li-oranžováKompatibilní se systémy Windows XP, Windows Vista, Windows 7 / 8 / 10, systémem Windows Server 2003 / 2008, systémem Citrix a terminálem Windows (Remote Desktop);

li-oranžováBezplatná zkušební verze bez omezování funkce v 45 dnech!

ČTĚTE VÍCE | ZDARMA KE STAŽENÍ | KUP NYNÍ

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
People in conversation:
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 1 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 1 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.