Բոլոր նամակները հատուկ ուղարկողից Excel ֆայլ արտահանելու 2 մեթոդ

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք արագ արտահանել կոնկրետ ուղարկողից ստացված նամակները Excel ֆայլ, կարող եք օգտագործել այս հոդվածում ներկայացված հետևյալ 2 միջոցները:

Որոշ պատճառներով, օրինակ՝ ամփոփում կազմելու համար, երբեմն կարող է անհրաժեշտ լինել որոշակի էլեկտրոնային նամակներ, օրինակ՝ որոշակի ուղարկողի էլեկտրոնային նամակներ, արտահանել Excel ֆայլ: Արտահանման ժամանակ, «արտահանում» գործառույթը առաջին հերթին կհիշվի օգտատերերի մեծ մասի մտքում: Բայց ազնիվ լինելու համար, Outlook VBA-ի օգտագործումը շատ ավելի հարմար կլինի, քան ավանդական «Արտահանում» գործառույթը: Հիմա մենք մանրամասն կներկայացնենք երկու միջոցները:

Մեթոդ 1. Օգտագործեք «Արտահանում» գործառույթը

Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
Այնուհետև կտտացրեք էլփոստի ցանկի որոնման դաշտը, որը հնարավորություն կտա «Որոնման գործիքներ» ժապավենը:
Կտտացրեք ժապավենի «From» կոճակը:
Այնուհետև փոխարինեք «ուղարկողի անուն» նիշը կոնկրետ ուղարկողի անունով:
Դրանից հետո ցուցակում կցուցադրվեն միայն կոնկրետ ուղարկողի նամակները։ Այժմ սեղմեք «Ctrl + A»՝ բոլորն ընտրելու համար:
Հաջորդը սեղմեք աջով և ընտրեք «Տեղափոխել» > «Այլ թղթապանակ»:
Այնուհետև «Տեղափոխել տարրերը» երկխոսության պատուհանում ստեղծեք նոր թղթապանակ և ընտրեք այս թղթապանակը՝ հատուկ նամակները տեղափոխելու համար:
Դրանից հետո կարող եք գնալ «Ֆայլ» > «Բացել» > «Ներմուծել»:
Այնուհետև հետևյալ երկխոսության վանդակում ընտրեք «Արտահանել ֆայլ» > «Հաջորդ» > «Microsoft Excel 97 – 2003» > «Հաջորդ»:
Հաջորդը ընտրեք կոնկրետ թղթապանակը, որը պահում է նամակները կոնկրետ ուղարկողի կողմից և սեղմեք «Հաջորդ»:
Այնուհետև սեղմեք «թերթիր»՝ Excel ֆայլ ընտրելու կամ նոր Excel ֆայլ ստեղծելու համար:
Ավելի ուշ սեղմեք «Հաջորդ» > «Ավարտել»:
Վերջապես Outlook-ը կաշխատի արտահանման համար: Արտահանման գործընթացն ավարտվելուց հետո կարող եք գտնել և բացել այս Excel ֆայլը:

Մեթոդ 2. Օգտագործեք Outlook VBA- ն

Առաջին հերթին, սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
Այնուհետև բացվող պատուհանում բացեք նոր մոդուլ և դրա մեջ պատճենեք հետևյալ ծածկագրերը:

Sub ExportEmailsfromSpecificSender()
    Dim objEmails, objSpecificEmails As Outlook.Items
    Dim objItem As Object
    Dim strSpecificSender As String
    Dim strFilter As String
    Dim objExcelApplication As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow As Integer
    Dim strFilePath As String
 
    On Error Resume Next
    'Get the emails from a specific sender
    Set objEmails = Application.Session.GetDefaultFolder(olFolderInbox).Items
    strSpecificSender = InputBox("Input the name of the specific sender:", "Specify Sender")
    strFilter = "[From] = '" & strSpecificSender & "'"
    Set objSpecificEmails = objEmails.Restrict(strFilter)
 
    Set objExcelApplication = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApplication.Workbooks.Add
 
    'Export the specific emails to worksheet
    Set objExcelWorksheet = objExcelWorkbook.Worksheets(1)
    With objExcelWorksheet
         .Cells(1, 1) = "Subject"
         .Cells(1, 2) = "Received"
         .Cells(1, 3) = "Body"
         .Cells(1, 4) = "Categories"
         .Cells(1, 5) = "Size"
    End With
 
    nRow = 2
    For Each objItem In objSpecificEmails
        With objExcelWorksheet
             .Name = "From " & strSpecificSender
             .Cells(nRow, 1) = objItem.Subject
             .Cells(nRow, 2) = objItem.ReceivedTime
             .Cells(nRow, 3) = objItem.Body
             .Cells(nRow, 4) = objItem.Categories
             .Cells(nRow, 5) = objItem.Size
        End With
        nRow = nRow + 1
    Next
 
    objExcelWorksheet.Columns("A:E").AutoFit

    'Save the Excel workbook
    strFilePath = "C:\Report\Emails from " & strSpecificSender & ".xlsx"
    objExcelWorkbook.Close True, strFilePath
 
    'Notify you of the export complete
    MsgBox ("Export Complete!")
End Sub

Այնուհետև կտտացրեք «Գործարկել» պատկերակը գործիքագոտում:
Դրանից հետո ձեզանից կպահանջվի մուտքագրել կոնկրետ ուղարկողի անունը:
Ավելի ուշ կտտացրեք «Լավ»:
Միանգամից Outlook-ը կսկսի արտահանել էլեկտրոնային նամակները կոնկրետ ուղարկողից և պահպանել Excel ֆայլը նախապես որոշված նպատակակետային թղթապանակում:
Արտահանման ավարտից հետո կարող եք գնալ նպատակակետ թղթապանակ՝ այն բացելու և ստուգելու համար:

Ճկուն կերպով ազատվեք Outlook-ի խնդիրներից

Հաշվի առնելով այն հանգամանքը, որ Outlook-ը ենթակա է տարբեր սխալների, խորհուրդ է տրվում պահպանել հզոր Outlook- ի շտկում գործիք հարևանությամբ, ինչպիսիք են DataNumen Outlook Repair. Այս դեպքում փոքր սխալները լուծելու համար կարող եք պարզապես օգտագործել Scanpst.exe-ը: Բայց լուրջ անախորժությունների համար կարող եք դիմել ավելի ամուր գործիքի:

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

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