Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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.

e-byst allforio auto doc i ragori 1

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 ThisOutlookSession 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.

e-byst allforio auto doc i ragori 2

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:

e-byst allforio auto doc i ragori 3

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:

e-byst allforio auto doc i ragori 4


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.

Nodyn:I gymhwyso hyn Adroddiad Cyflym, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Rhagolwg, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

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 Plus > 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 Ydw 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:

  • Allforio Tabl Corff E-bost I Excel Mewn Rhagolwg
  • Pan fyddwch chi'n derbyn E-bost sy'n cynnwys rhai tablau yn y corff, weithiau, efallai y bydd angen i chi allforio pob tabl o'r corff negeseuon i daflen waith Excel. Fel rheol, gallwch chi gopïo a gludo'r tablau i'r daflen waith, ond, yma, byddaf yn siarad am ddull defnyddiol i ddatrys y swydd hon pan fydd angen allforio nifer o dablau.
  • Rhestr Tasgau Detholiad neu Allforio I Excel Yn Outlook
  • Wrth ddefnyddio Outlook, gallwch echdynnu'r rhestr dasgau i Excel at ddefnydd arall. Gyda'r nodwedd Allforio bwerus yn Outlook, gallwch chi allforio'ch rhestr dasgau i Excel yn hawdd. Gwnewch fel y nodir isod sesiynau tiwtorial.
  • Gwybodaeth Cysylltiadau Allforio Gyda Lluniau Mewn Rhagolwg
  • Pan fyddwch yn allforio cysylltiadau o Outlook i ffeil, dim ond gwybodaeth destun y cysylltiadau y gellir ei hallforio. Ond, weithiau, mae angen i'r lluniau gael eu hallforio yn ogystal â gwybodaeth destun y cysylltiadau, sut allech chi ddelio â'r dasg hon yn Outlook?

Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
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.
    Terence · 9 months ago
    If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
  • To post as a guest, your comment is unpublished.
    gsailaanand@gmail.com · 2 years ago
    I have followed above steps but have blanks in excel.
    what should I do?
    • To post as a guest, your comment is unpublished.
      Pankaj Narang · 1 years ago
      Same excel not getting updated? Any suggestions?
  • To post as a guest, your comment is unpublished.
    Marduk20 · 2 years ago
    How to capture the Categories, Importance or the User-defined column on the same folder view?
  • To post as a guest, your comment is unpublished.
    sagarkhomane1@gmail.com · 2 years ago
    Can you please let me know how to deal with sub-folders in above code.
  • To post as a guest, your comment is unpublished.
    Sagar · 2 years ago
    how to deal with subfolders.
  • To post as a guest, your comment is unpublished.
    Jorge · 3 years ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years 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.