Bonbon ede nou delivre sèvis nou yo. Lè l sèvi avèk sèvis nou yo, ou dakò pou nou sèvi ak bonbon.
Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan yo ekspòte Imèl soti nan pespektiv Excel otomatikman?

Nòmalman, ou ka ekspòte Imèl yo nan pespektiv Excel ak karakteristik nan Import / Export. Men, èske ou janm eseye oto ekspòte Imèl yo nan dosye Excel lè mesaj nouvo yo rive? Nan atik sa a, mwen pral pale sou jan yo ekspòte enfòmasyon an nan mesaj yo fèk ap rantre otomatikman nan Excel.

Otomatik ekspòtasyon imel enfòmasyon nan pespektiv nan Excel ak VBA kòd


Byen vit ekspòtasyon emials soti nan Inbox / Sent Atik / Draft ... nan dosye Excel:

avèk Kutools pou pespektiv's Quick Rapò karakteristik, ou ka fasilman jenere yon dosye XML pou rapòte enfòmasyon tout bagay 'nan katab imel aktyèl oswa katab travay

doc Imèl ekspòtasyon Imèl briye 5

Kutools pou pespektiv: ak plis pase 40 + sou la men Excel ajoute-ins, gratis eseye ki pa gen okenn limit nan jou 60. Download epi eseye jijman gratis la kounye a!

Otomatik ekspòtasyon imel enfòmasyon nan pespektiv nan Excel ak VBA kòd

Pou ekspòte nouvo Imèl yo rive nan yon liv Excel otomatikman, tanpri aplike kòd VBA sa yo:

1. Premyèman, ou ta dwe kreye yon workbook ak enfòmasyon ki anba a kòm anba a Dosye yo montre, kidonk enfòmasyon sa yo nan mesaj yo pral ekspòte nan dosye sa a Excel.

doc Imèl ekspòtasyon Imèl briye 1

2. Lè sa a, ale nan pespektiv epi kenbe desann la ALT + F11 kle yo louvri a Microsoft Visual Basic pou aplikasyon pou fenèt.

3. Nan Microsoft Visual Basic pou aplikasyon pou fenèt, double klike sou ThisOutlookSession ki soti nan Project1 (VbaProject.OTM) fenèt yo louvri mòd la, ak Lè sa a, kopye epi kole kòd sa a nan modil la vid.

VBA kòd: Auto ekspòtasyon imel ekspòtasyon soti nan pespektiv nan dosye 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òt: Nan kòd ki anwo a, C: \ Itilizatè yo \ DT168 \ Desktop \ fann dokiman \ kto-data.xlsx se chemen an dosye Excel ak non Excel ke ou vle jwenn enfòmasyon ki ekspòte, tanpri chanje li nan bezwen ou.

doc Imèl ekspòtasyon Imèl briye 2

4. Toujou nan la Microsoft Visual Basic pou aplikasyon pou fenèt, klike Zouti > Referans pou yo ale nan la Referans-Project1 bwat dyalòg, epi tcheke Microsoft Excel Bibliyotèk objè opsyon soti nan la Referans ki disponib lis bwat, al gade Ekran:

doc Imèl ekspòtasyon Imèl briye 3

5. Lè sa a, klike sou OK bouton yo fèmen dyalòg la, ak Lè sa a, sove epi fèmen fenèt la kòd.

6. Koulye a, ou ta dwe rekòmanse pespektiv a fè kòd sa a pran efè. Depi koulye a, si gen nouvo Imèl rive, yo pral ekspòte nan liv la espesifik otomatikman, al gade D ':

doc Imèl ekspòtasyon Imèl briye 4



Kutools pou pespektiv

Plis pase 100 Fonksyon avanse pou pespektiv 2010, 2013, 2016, 2019 ak 365

ekran piki kutools pou pespektiv ti pou banyè 201812

Plis Features | Telechaje gratis | Se sèlman $ 39.00 pou dè santèn de fonksyon

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.