Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

Conas ríomhphoist a easpórtáil ó Outlook go Excel go huathoibríoch?

De ghnáth, is féidir leat na ríomhphoist ó Outlook go Excel a onnmhairiú leis an ngné Iompórtáil / Easpórtáil. Ach, an ndearna tú riamh iarracht na ríomhphoist a onnmhairiú go comhad Excel nuair a bhíonn teachtaireachtaí nua ag teacht? San Airteagal seo, labhair mé faoi conas an fhaisnéis a bhaineann le teachtaireachtaí nua atá ag teacht isteach go huathoibríoch i Excel a onnmhairiú.

Easpórtáil ríomhphoist onnmhairithe ó ionchas go Excel le cód VBA


Emials a onnmhairiú go tapa ó Bhosca Isteach / Míreanna Seoltaí / Dréachtaí ... chuig comhad Excel:

Le Kutools le haghaidh Outlook's Tuarascáil Thapa gné, is féidir leat comhad XML a ghiniúint go héasca le tuairisciú a dhéanamh ar fhaisnéis uile ítimí i bhfillteán ríomhphoist nó fillteán tasc reatha

doc r-phoist onnmhairithe uathoibríoch chun feabhas a chur ar 5

Kutools le haghaidh Outlook: le níos mó ná 40 + add-ins handy Excel, saor in aisce chun iarracht gan aon teorannú i laethanta 60. Íoslódáil agus triail as an triail saor in aisce anois!

Easpórtáil ríomhphoist onnmhairithe ó ionchas go Excel le cód VBA

Chun na ríomhphoist nua a thagann chuig leabhar oibre Excel a onnmhairiú go huathoibríoch, cuir isteach an cód VBA seo a leanas:

1. Ar dtús, ba cheart duit leabhar oibre a chruthú leis an eolas faoi cheannteidil thíos mar a thaispeántar an scáileán seo a leanas, mar sin déanfar an fhaisnéis seo de na teachtaireachtaí a onnmhairiú chuig an gcomhad Excel seo.

doc r-phoist onnmhairithe uathoibríoch chun feabhas a chur ar 1

2. Ansin téigh go dtí Outlook agus coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d'Iarratais fhuinneog.

3. Sa an Microsoft Visual Basic d'Iarratais fuinneog, cliceáil dúbailte ThisOutlookSession ó na Project1 (VbaProject.OTM) pane chun an modh a oscailt, agus an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl bán.

Cód VBA: Faisnéis ríomhphoist onnmhairithe Auto ó chomhad Outlook go 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

nótaí: Sa chód thuas, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx is é an bealach comhaid Excel agus an t-ainm Excel gur mhaith leat an t-eolas a onnmhairiú a aimsiú, é a athrú ar do riachtanas.

doc r-phoist onnmhairithe uathoibríoch chun feabhas a chur ar 2

4. Fós sa Microsoft Visual Basic d'Iarratais fuinneog, cliceáil uirlisí > tagairtí chun dul go dtí an Tagairtí-Project1 dialóg, agus seiceáil Leabharlann Excel Object Object rogha ón Tagairtí ar Fáil liosta bosca, féach ar an scáileán:

doc r-phoist onnmhairithe uathoibríoch chun feabhas a chur ar 3

5. Ansin cliceáil OK cnaipe chun an dialóg a dhúnadh, agus ansin an fhuinneog cód a shábháil agus a dhúnadh.

6. Anois, ba cheart duit an Outlook a atosú chun an cód seo a chur i bhfeidhm. Ón am seo, má tá ríomhphoist nua ag teacht, déanfar iad a onnmhairiú go dtí an leabhar oibre ar leith go huathoibríoch, féach ar an scáileán:

doc r-phoist onnmhairithe uathoibríoch chun feabhas a chur ar 4



Kutools le haghaidh Outlook

Níos mó ná 100 Feidhmeanna Casta le haghaidh Outlook 2010, 2013, 2016, 2019 agus 365

Scáileán ar nósanna imeachta le haghaidh dearcadh bídeach don bhratach 201812

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna

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 · 5 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 5 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.