2 მეთოდი ექსპორტის ყველა ელ.წერილი კონკრეტული გამგზავნიდან Excel ფაილში

Outlook Solutions სექტემბერი 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

ამის შემდეგ, დააწკაპუნეთ "Run" ხატულაზე ხელსაწყოთა ზოლში.
ამის შემდეგ, თქვენ მოგიწევთ შეიყვანოთ კონკრეტული გამგზავნის სახელი.
მოგვიანებით დააჭირეთ "OK".
ერთდროულად, Outlook დაიწყებს ელფოსტის ექსპორტის კონკრეტული გამგზავნიდან და შეინახავს Excel ფაილს წინასწარ განსაზღვრულ დანიშნულების საქაღალდეში.
ექსპორტის დასრულების შემდეგ, შეგიძლიათ გადახვიდეთ დანიშნულების საქაღალდეში გასახსნელად და შესამოწმებლად.

მოქნილად მოიშორეთ Outlook-ის საკითხები

იმის გამო, რომ Outlook მგრძნობიარეა სხვადასხვა შეცდომის მიმართ, რეკომენდირებულია შეინარჩუნოთ ძლიერი Outlook შესწორება ინსტრუმენტი სიახლოვეს, როგორიცაა DataNumen Outlook Repair. ამ შემთხვევაში, მცირე შეცდომების მოსაგვარებლად, შეგიძლიათ უბრალოდ გამოიყენოთ Scanpst.exe. მაგრამ სერიოზული პრობლემებისთვის შეგიძლიათ მიმართოთ უფრო მძლავრ ინსტრუმენტს.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად