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

Որոշ օգտվողներ կցանկանան ինքնաբերաբար գրանցել կցորդների տեղեկությունները յուրաքանչյուր մուտքային էլ. Փոստում: Այս հոդվածը կկիսվի արագ ժամանակ ՝ այն հեշտությամբ իրագործելու համար:

Եթե ​​դուք սովոր եք արտահանել յուրաքանչյուր մուտքային Outlook էլփոստի կցորդի տեղեկատվությունը Excel ֆայլ, ապա միգուցե կարոտեք որոշ մոտեցումների, որոնք կարող են թույլ տալ, որ Outlook ավտոմեքենան ստանձնի այս աշխատանքը: Դրանով դուք կկարողանաք ձեռքով ազատվել կցորդներին հետևելուց: Բարեբախտաբար, չնայած Outlook- ը չի տալիս նման ուղղակի հատկություն, միևնույն է, դրան կարող եք հասնել սցենարների մի մասի միջոցով: Այժմ մենք ձեզ քայլ առ քայլ կսովորեցնենք:

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

1. Սկզբում գործարկեք Outlook ծրագիրը:
2. Դրանից հետո գնացեք VBA խմբագիր «Alt + F11» - ի միջոցով:
3. Հաջորդը, պատճենեք հետևյալ VBA կոդը մոդուլի մեջ:

Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

4. Դրանից հետո դուրս եկեք VBA խմբագրից:
5. Հետևաբար, ստեղծեք կանոն այս մակրոը ավտոմատ կերպով գործարկելու համար յուրաքանչյուր մուտքային էլ. Փոստով:

• Նախ, անցեք «Պատկեր» ընտրացանկ:
• Դրանից հետո կտտացրեք «Կառավարել կանոնները և ահազանգերը» կոճակը:
• «Կանոններ և ահազանգեր» երկխոսության դաշտում կտտացրեք «Նոր կանոն»:
• «Կանոնների մոգ» երկխոսության դաշտում ընտրեք «Կիրառել կանոնը ստացված հաղորդագրությունների վրա» և սեղմել «Հաջորդ»:
• Հաջորդը ՝ սահմանեք կանոնի պայմանները ՝ ըստ ձեր պահանջների և հպեք «Հաջորդ» կետին:
• «Ընտրել գործողությունները» քայլում ընտրեք «Գործարկել սցենար» և ընտրել «AutoExportAttachmentInfo» սցենարը:
• Վերջապես, հետևեք էկրանային կախարդներին ՝ կանոնների կարգավորումն ավարտելու համար:

6. Այսուհետ, ամեն անգամ, երբ ձեր էլ. Փոստը գալիս է ձեր փոստարկղում, եթե այն կցորդներ ունի, Outlook- ը կցուցադրի տեղեկատվությունն ավտոմատ կերպով արտահանելու է նախորոշված ​​Excel ֆայլ:

Երբեք ներբեռնեք կասկածելի հավելվածները

Երբևէ ստացե՞լ եք նամակներ, որոնք անհայտ ուղարկողներից են և պարունակում են կցորդներ: Սովորաբար առաջարկվում է պատրաստակամորեն չվստահել նման կցորդներին, քանի որ դրանք կարող են լինել վիրուսների հետ: Քանի դեռ դրանք ներբեռնում եք, ձեր Outlook տվյալները կարող են վարակվել: Այդ պահին ձեզ հարկավոր կլինի շտկել Outlook- ը ֆայլ Դա, անկասկած, խճճված է, քանի դեռ չեք դիմել հմուտ վերանորոգման գործիքի, ինչպես, օրինակ, DataNumen Outlook Repair.

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

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