Hoe om e-posse van Outlook na Excel outomaties uit te voer?
Geskryf op 19 September 2018 .
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
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!
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.
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:
Dim xNextEmptyRow As Integer
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
xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
.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
Function IsWorkBookOpen(FileName As String)
Dim xFreeFile As Long, xErrNo As Long
xFreeFile = FreeFile()
Open FileName For Input Lock Read As #xFreeFile
xErrNo = Err
Select Case xErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error xErrNo
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.
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:
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:
Jorge · 4 months ago
I need the help about exporting Email information sent (outgoing) emails
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.