Cookies matulungan kaming ihatid ang aming mga serbisyo. Sa pamamagitan ng paggamit sa aming mga serbisyo, sumasang-ayon ka sa aming paggamit ng cookies.
Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano upang awtomatikong i-export ang mga email mula sa Outlook sa Excel?

Karaniwan, maaari mong i-export ang mga email mula sa Outlook sa Excel gamit ang tampok na I-import / I-export. Ngunit, sinubukan mo na awtomatikong i-export ang mga email sa Excel file kapag dumarating ang mga bagong mensahe? Sa artikulong ito, magsasalita ako tungkol sa kung paano awtomatikong i-export ang impormasyon ng mga bagong papasok na mensahe sa Excel.

Awtomatikong i-export ang impormasyon ng email mula sa pananaw sa Excel sa VBA code


Mabilis na i-export ang mga emial mula sa Inbox / Mga Ipinadalang Item / Mga Draft ... sa Excel na file:

may Kutools para sa Outlook's Mabilis na Ulat tampok, maaari mong madaling bumuo ng isang XML file para sa pag-uulat ng lahat ng impormasyon ng item sa kasalukuyang email folder o folder ng gawain

I-email ang mga email sa pag-export ng auto sa excel 5

Kutools para sa Outlook: may higit sa 40 + madaling gamitin na Excel add-in, libre upang subukan nang walang limitasyon sa 60 na araw. I-download at subukan ang libreng pagsubok ngayon!

Awtomatikong i-export ang impormasyon ng email mula sa pananaw sa Excel sa VBA code

Upang i-export ang mga bagong darating na email sa awtomatikong isang workbook ng Excel, mangyaring ilapat ang sumusunod na VBA code:

1. Una, dapat kang lumikha ng isang workbook na may impormasyon sa header sa ibaba tulad ng sumusunod na screenshot na ipinapakita, kaya ang mga impormasyong ito ng mga mensahe ay mai-export sa file na Excel na ito.

I-email ang mga email sa pag-export ng auto sa excel 1

2. Pagkatapos ay pumunta sa Outlook at pindutin nang matagal ang ALT + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window.

3. Sa Microsoft Visual Basic para sa Mga Application window, double click ThisOutlookSession mula sa Project1 (VbaProject.OTM) pane upang buksan ang mode, at pagkatapos ay kopyahin at i-paste ang sumusunod na code sa blangko module.

VBA code: Impormasyon sa pag-e-mail ng auto export mula sa file ng Outlook sa 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

nota: Sa kodigo sa itaas, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx ay ang path ng file ng Excel at pangalan ng Excel na nais mong mahanap ang na-export na impormasyon, mangyaring baguhin ito sa iyong pangangailangan.

I-email ang mga email sa pag-export ng auto sa excel 2

4. Pa rin sa Microsoft Visual Basic para sa Mga Application window, i-click ang Kagamitan > Mga sanggunian pumunta sa Mga sanggunian-Project1 dialog box, at suriin Microsoft Excel Object Library pagpipilian mula sa Magagamit na Mga Sanggunian kahon ng listahan, tingnan ang screenshot:

I-email ang mga email sa pag-export ng auto sa excel 3

5. Pagkatapos ay mag-click OK pindutan upang isara ang dialog, at pagkatapos ay i-save at isara ang window ng code.

6. Ngayon, dapat mong i-restart ang Outlook upang maipatupad ang code na ito. Mula ngayon, kung may mga bagong email na darating, awtomatiko itong i-export sa partikular na workbook, tingnan ang screenshot:

I-email ang mga email sa pag-export ng auto sa excel 4



Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.