Koekies help om ons dienste te lewer. Deur die gebruik van ons dienste, stem jy in tot ons gebruik van koekies.
Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om e-posse van Outlook na Excel outomaties uit te voer?

Normaalweg kan u die e-posse vanaf Outlook na Excel uitvoer met die Invoer / Uitvoer-funksie. Maar, het jy al ooit probeer om die e-posse outomaties na Excel-lêers te eksporteer wanneer nuwe boodskappe aankom? In hierdie artikel sal ek praat oor hoe om die inligting van die nuwe inkomende boodskappe outomaties in Excel uit te voer.

Outomaties uitvoer van e-pos inligting vanaf Outlook na Excel met VBA-kode


Vinnig uitvoer emials uit Inbox / Sent Items / Drafts ... na Excel-lêer:

Met Kutools for Outlook's Vinnige verslag funksie, kan jy maklik 'n XML-lêer genereer vir die rapportering van alle items se inligting in die huidige e-posmap of taakmap

Dok outomaties uitvoer e-posse om 5 uit te beeld

Kutools for Outlook: met meer as 40 + handige Excel-invoegtoepassings, kan jy sonder beperking in 60 dae probeer. Laai en probeer die gratis proeflopie nou!

Outomaties uitvoer van e-pos inligting vanaf Outlook na Excel met VBA-kode

Om die nuwe aankomende e-posse outomaties na 'n Excel-werkboek uit te voer, pas asseblief die volgende VBA-kode toe:

1. Eerstens moet jy 'n werkboek skep met die onderstaande koptekst inligting soos die volgende skermkiekie vertoon word. Hierdie inligting van die boodskappe sal dan na hierdie Excel-lêer uitgevoer word.

Dok outomaties uitvoer e-posse om 1 uit te beeld

2. Gaan dan na Outlook en hou die ALT + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

3. in die Microsoft Visual Basic vir toepassings venster, dubbel kliek ThisOutlookSession van die Project1 (VbaProject.OTM) paneel om die modus oop te maak en kopieer en plak dan die volgende kode in die leë module.

VBA-kode: Outomatiese uitvoer van e-pos inligting vanaf Outlook na Excel-lêer:

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

nota: In bogenoemde kode, C: \ Users \ DT168 \ Desktop \ verdeel dokument \ kto-data.xlsx is die Excel-lêerpad en Excel-naam wat u die uitgevoerde inligting wil opspoor, verander dit asseblief na u behoefte.

Dok outomaties uitvoer e-posse om 2 uit te beeld

4. Nog in die Microsoft Visual Basic vir toepassings venster, kliek Gereedskap > Verwysings om te gaan na die Verwysings-Project1 dialoogkassie, en tjek Microsoft Excel Object Library Opsie uit die Beskikbare verwysings lys boks, sien skermkiekie:

Dok outomaties uitvoer e-posse om 3 uit te beeld

5. Klik dan OK Knoppie om die dialoog te sluit, en dan die kode venster te stoor en toe te maak.

6. Nou moet u die Outlook herbegin om hierdie kode in werking te stel. Van nou af sal nuwe e-posse outomaties na die spesifieke werkboek uitgevoer word, sien skermkiekie:

Dok outomaties uitvoer e-posse om 4 uit te beeld



Kutools for Outlook

Meer as 100 Gevorderde funksies vir Outlook 2010, 2013, 2016, 2019 en 365

skermskut kutools vir uitsig klein vir banner 201812

Meer funksies | Gratis aflaai | Slegs $ 39.00 vir honderde funksies

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