Sut i allforio e-byst o Outlook i Excel yn awtomatig?

Fel rheol, gallwch allforio'r e-byst o Outlook i Excel gyda'r nodwedd Mewnforio / Allforio. Ond, a ydych erioed wedi ceisio allforio’r e-byst yn awtomatig i ffeil Excel pan fydd negeseuon newydd yn cyrraedd? Yn yr erthygl hon, byddaf yn siarad am sut i allforio gwybodaeth y negeseuon newydd sy'n dod i mewn yn awtomatig yn Excel.

Allforio gwybodaeth e-bost yn awtomatig o'r rhagolygon i Excel gyda chod VBA

Allforio gwybodaeth e-bost o'r rhagolygon i Excel gyda nodwedd anhygoel

Allforio gwybodaeth e-bost yn awtomatig o'r rhagolygon i Excel gyda chod VBA

I allforio'r e-byst newydd sy'n cyrraedd i lyfr gwaith Excel yn awtomatig, cymhwyswch y cod VBA canlynol:

1. Yn gyntaf, dylech greu llyfr gwaith gyda'r wybodaeth isod ar y pennawd fel y dangosir y llun isod, felly bydd y wybodaeth hon o'r negeseuon yn cael ei hallforio i'r ffeil Excel hon.

2. Yna ewch i Outlook a dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Allforio gwybodaeth e-bost yn awtomatig o Outlook i ffeil 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

Nodyn: Yn y cod uchod, C: \ Defnyddwyr \ DT168 \ Penbwrdd \ dogfen hollt \ kto-data.xlsx yw'r llwybr ffeil Excel a'r enw Excel yr ydych am ddod o hyd i'r wybodaeth a allforir, newidiwch hi i'ch angen.

4. Dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect1 blwch deialog, a gwirio Llyfrgell Gwrthrychau Microsoft Excel opsiwn gan y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:

5. Yna cliciwch OK botwm i gau'r ymgom, ac yna arbed a chau'r ffenestr cod.

6. Nawr, dylech ailgychwyn yr Outlook i sicrhau bod y cod hwn yn dod i rym. O hyn ymlaen, os oes e-byst newydd yn cyrraedd, byddant yn cael eu hallforio i'r llyfr gwaith penodol yn awtomatig, gweler y screenshot:

Allforio gwybodaeth e-bost o'r rhagolygon i Excel gyda nodwedd anhygoel

Os ydych chi am allforio'r e-byst o Mewnflwch, Blwch Allan neu ffolderau eraill i ffeil Excel, Kutools ar gyfer Rhagolwg's Adroddiad Cyflym yn gallu'ch helpu chi i gynhyrchu ffeil XML yn hawdd ar gyfer riportio gwybodaeth pob eitem yn y ffolder e-bost neu'r ffolder tasg gyfredol yn ôl yr angen.

Ar ôl gosod Kutools ar gyfer Rhagolwg, gwnewch fel hyn:

1. Dewiswch ffolder rydych chi am allforio'r holl wybodaeth negeseuon, ac yna cliciwch Kutools Byd Gwaith > Adroddiad Cyflym, gweler y screenshot:

2. Yna, yn y popped allan Achub Adroddiad ffenestr, dewis lleoliad a nodi enw ar gyfer y ffeil hon a allforir, gweler y screenshot:

3. Ac yna, cliciwch Save botwm i achub y ffeil hon, ac yn y blwch popped out, cliciwch Ydy botwm i agor y ffeil, gweler y screenshot:

4. Nawr, gallwch weld bod holl wybodaeth yr e-byst yn y ffolder a ddewiswyd wedi'i hallforio i'r ffeil Excel, gweler y screenshot:

Erthyglau mwy cymharol:

---

Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau Pro: Arbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

Darllenwch fwy       Lawrlwythiad Am Ddim      prynu