Ինչպես ավտոմատ արտահանել մուտքային նամակների տեղեկատվությունը Excel ֆայլ Outlook VBA-ով

Շատ օգտատերեր հույս ունեն, որ Outlook-ը կարող է ինքնաբերաբար արտահանել մուտքային նամակների հիմնական տեղեկատվությունը Excel ֆայլ: Այս հոդվածը կանդրադառնա այս պահանջին և կներկայացնի արագ մեթոդ Outlook VBA-ի միջոցով:

Երբեմն, որոշ պատճառներով, ինչպիսիք են փոստի վիճակագրությունը, դուք կարող եք հաճախակի կարիք ունենալ նամակները արտահանել Excel ֆայլ: Ընդհանրապես, առկա ստացված էլ. նամակների համար կարող եք պարզապես օգտագործել «Ներմուծում և արտահանում» գործառույթը՝ դրանք մեկ քայլով Excel արտահանելու համար: Այնուամենայնիվ, գուցե դուք նույնիսկ ցանկանում եք, որ Outlook-ը կարողանա մուտքային նամակներն ավտոմատ արտահանել Excel, հենց որ դրանք հասնեն ձեր փոստարկղ: Առանց որևէ կասկածի, Outlook-ում նման բնիկ հատկություն չկա: Հետևաբար, դուք պետք է օգտագործեք այլ մոտեցումներ, ինչպիսիք են երրորդ կողմի հավելումը կամ Outlook VBA-ն: Այստեղ մենք կսովորեցնենք ձեզ, թե ինչպես այն ավտոմատացնել Outlook VBA-ի միջոցով: Կարդացեք՝ քայլերն ու կոդերը ստանալու համար:

Մուտքային նամակների տեղեկատվությունը ավտոմատ արտահանել Excel ֆայլ

1. Առաջին հերթին, դուք պետք է ստեղծեք Excel ֆայլ:

• Բացեք նոր Excel ֆայլ:
• Այնուհետև պետք է մուտքագրեք «Ոչ»: Բջջում A1, «Ուղարկողի անունը»՝ B1 բջիջում, «Ուղարկողի էլ. փոստի հասցեն»՝ C1 բջիջում, «Էլփոստի թեման»՝ D1 բջիջում, և «Ստացված ժամանակը»՝ E1 բջիջում, ինչպես հետևյալ պատկերը:
• Վերջապես պահեք այն ձեր ուզած անունով և ցանկալի թղթապանակում:

2. Դրանից հետո դուք պետք է գործարկեք Outlook-ը:
3. Այնուհետև սեղմեք «Alt + F11» կոճակները, որոնք ձեզ կբերեն VBA խմբագրիչ:
4. Հաջորդը, բացվող պատուհանում, դուք պետք է կրկնակի սեղմեք «ThisOutlookSession» ձախ կողմում:
5. Այնուհետև, «ThisOutlookSession» նախագծի պատուհանում դուք պետք է պատճենեք և տեղադրեք հետևյալ VBA կոդերը դրա մեջ:

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

6. Ավելի ուշ դուք պետք է ստորագրեք այս կոդը:
7. Հետագայում, restart Outlook ՝ նոր VBA նախագիծն ակտիվացնելու համար:
8. Ի վերջո, այսուհետ բոլոր մուտքային նամակները ավտոմատ կերպով կարտահանվեն նախադրված Excel ֆայլ, հենց որ դրանք վայրէջք կատարեն ձեր Inbox թղթապանակում: Excel ֆայլը նման կլինի հետևյալ պատկերին.

Խուսափեք ցավոտ PST տվյալների կոռուպցիայից

Outlook-ը մեծ փառք է վաստակել իր տարբեր հատկանիշների շնորհիվ: Այնուամենայնիվ, դա չի նշանակում, որ դա անհեթեթ է: Այն դեռ կարող է ցանկացած պահի վտանգվել: Օրինակ, եթե դուք հաճախակի փակում եք ձեր Outlook-ը, շատ հավանական է, որ ձեր PST տվյալները վտանգի տակ կհայտնվեն: Այս դեպքում, եթե ցանկանում եք վերանորոգել PST տվյալները, դուք պետք է դիմեք փորձառու գործիքին, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com