Ինչպե՞ս ավտոմատ կերպով էլ-նամակներ արտահանել Outlook- ից Excel:

Սովորաբար, դուք կարող եք էլփոստերը արտահանել Outlook- ից Excel ՝ Ներմուծում / Արտահանում հնարավորությամբ: Բայց երբևէ փորձե՞լ եք նամակները ավտոմատ կերպով արտահանել Excel ֆայլ, երբ նոր հաղորդագրություններ են գալիս: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես Excel- ում ավտոմատ կերպով արտահանել նոր մուտքային հաղորդագրությունների տեղեկատվությունը:

VBA կոդի միջոցով Outlook- ից էլփոստի տեղեկությունները ավտոմատ կերպով արտահանեք

Emailարմանալի հատկությամբ արտահանեք էլփոստի տեղեկատվությունը Outlook- ից դեպի Excel

VBA կոդի միջոցով Outlook- ից էլփոստի տեղեկությունները ավտոմատ կերպով արտահանեք

Excel- ի աշխատանքային գրքույկ ավտոմատ կերպով արտահանելու համար նոր ժամանող նամակները, խնդրում ենք կիրառել հետևյալ VBA կոդը.

1, Նախ, դուք պետք է ստեղծեք աշխատանքային գրքույկ ներքևի վերնագրի տեղեկություններով, ինչպես ցույց է տրված հետևյալ նկարը, այնպես որ հաղորդագրությունների այս տեղեկությունները կարտահանվեն այս Excel ֆայլ:

2, Դրանից հետո գնացեք Outlook և պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:

VBA կոդ. Outlook- ից 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

ՆշումՎերոհիշյալ ծածկագրում C: \ Users \ DT168 \ Desktop \ split փաստաթուղթ \ kto-data.xlsx Excel ֆայլի ուղին է և Excel անունը, որը ցանկանում եք գտնել արտահանվող տեղեկատվությունը, խնդրում ենք փոխեք այն ըստ ձեր կարիքի:

4, Դեռևս Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Գործիքներ > Սայլակ գնալու համար Հղումներ-նախագիծ 1 երկխոսության տուփ և ստուգեք Microsoft Excel օբյեկտների գրադարան տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.

5. Այնուհետեւ կտտացրեք OK կոճակը ՝ երկխոսությունը փակելու համար, այնուհետև պահելու և փակելու ծածկագրի պատուհանը:

6, Այժմ, այս կոդն ուժի մեջ մտնելու համար, պետք է վերագործարկեք Outlook- ը: Այսուհետ, եթե նոր նամակներ են գալիս, դրանք ավտոմատ կերպով կարտահանվեն կոնկրետ աշխատանքային գրքույկ, տե՛ս նկարը.

Emailարմանալի հատկությամբ արտահանեք էլփոստի տեղեկատվությունը Outlook- ից դեպի Excel

Եթե ​​ցանկանում եք նամակները արտահանել Inbox, Outbox կամ այլ թղթապանակներից Excel ֆայլ, Outlook- ի համար նախատեսված գործիքներ's Արագ հաշվետվություն կարող է օգնել ձեզ հեշտությամբ առաջացնել XML ֆայլ ՝ ընթացիկ էլփոստի թղթապանակում կամ առաջադրանքների թղթապանակում բոլոր իրերի տեղեկատվությունը զեկուցելու համար, ինչպես ձեզ հարկավոր է:

Տեղադրելուց հետո Outlook- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1, Ընտրեք մի թղթապանակ, որը ցանկանում եք արտահանել բոլոր հաղորդագրությունների տեղեկությունները, և այնուհետև կտտացրեք Kutools Plus > Արագ հաշվետվություն, տես նկարի նկարը.

2, Հետո դուրս եկավ դուրս Պահել հաշվետվություն պատուհանը, ընտրեք գտնվելու վայրը և նշեք այս արտահանված ֆայլի անունը, տես նկարի նկարը.

3, Եվ հետո, կտտացրեք Փրկել կոճակը այս ֆայլը պահելու համար, և դուրս եկած պատուհանում կտտացրեք այո ֆայլը բացելու կոճակը, տես նկարի նկարը.

4, Այժմ դուք կարող եք տեսնել, որ ընտրված թղթապանակում եղած էլփոստի բոլոր տեղեկություններն արտահանվել են Excel ֆայլ, տես նկարի նկարը.

Ավելի հարաբերական հոդվածներ.

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել