Bütün E-poçtları Xüsusi Göndərəndən Excel Faylına Eksport etmək üçün 2 Metod

Müəyyən bir göndəricidən olan e-poçtları Excel faylına sürətlə ixrac etmək istəyirsinizsə, bu məqalədə təqdim olunan aşağıdakı 2 vasitədən istifadə edə bilərsiniz.

Xülasə hazırlamaq kimi bəzi səbəblərə görə bəzən müəyyən göndərəndən gələn e-poçtlar kimi müəyyən e-poçtları Excel faylına ixrac etməyiniz lazım ola bilər. İxrac etməyə gəldikdə, əksər istifadəçilərin ağlına ilk növbədə "ixrac" adlı doğma xüsusiyyət gələcək. Düzünü desəm, Outlook VBA-dan istifadə ənənəvi "İxrac" xüsusiyyətindən daha əlverişli olacaq. İndi iki vasitəni ətraflı şəkildə təqdim edəcəyik.

Metod 1: “İxrac” funksiyasından istifadə edin

1. Ən başlanğıcda Outlook proqramınızı işə salın.
2. Sonra "Axtarış Alətləri" lentini aktivləşdirəcək e-poçt siyahısında axtarış qutusuna klikləyin.
3. Lentdəki "Kimdən" düyməsini basın.
4. Sonra “göndərən adı” simvolunu xüsusi göndərənin adı ilə əvəz edin.
5. Bundan sonra siyahıda yalnız xüsusi göndərənin e-poçtları görünəcək. İndi hamısını seçmək üçün "Ctrl + A" düyməsini basın.
6. Sonra sağ klikləyin və "Köçür" > "Digər Qovluq" seçin.
7. Sonra, açılan "Elementləri Köçürün" informasiya qutusunda yeni bir qovluq yaradın və xüsusi e-poçtları köçürmək üçün bu qovluğu seçin.
8. Bundan sonra "Fayl"> "Açıq"> "İdxal" bölməsinə keçə bilərsiniz.
9. Sonra aşağıdakı dialoq qutusunda 'Fayla ixrac et' > «Sonrakı» > «Microsoft Excel 97 – 2003» > «Sonrakı» seçin.
10. Sonra, xüsusi göndəricinin e-poçtlarını saxlayan xüsusi qovluğu seçin və "Sonrakı" düyməsini basın.
11. Sonra Excel faylı seçmək və ya yeni Excel faylı yaratmaq üçün "gözdən keçir" düyməsini basın.
12. Daha sonra "Sonrakı" > "Bitir" düyməsini basın.
13. Nəhayət, Outlook ixrac üçün işləyəcək. İxrac prosesi başa çatdıqdan sonra bu Excel faylını tapa və aça bilərsiniz.

Metod 2: Outlook VBA-dan istifadə edin

1. İlk növbədə, "Alt + F11" düymələrini basın.
2. Sonra açılan pəncərədə yeni modul açın və ona aşağıdakı kodları kopyalayın.

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

3. Sonra, alətlər panelində "Çalış" simgesini basın.
4. Bundan sonra sizdən xüsusi göndərənin adını daxil etməyiniz tələb olunacaq.
5. Daha sonra "OK" düyməsini basın.
6. Outlook dərhal müəyyən göndərəndən e-poçtları ixrac etməyə və Excel faylını əvvəlcədən təyin olunmuş təyinat qovluğuna saxlamağa başlayacaq.
7. Eksport tamamlandıqdan sonra onu açmaq və yoxlamaq üçün təyinat qovluğuna keçə bilərsiniz.

Çevik şəkildə Outlook problemlərindən qurtulun

Outlook-un müxtəlif xətalara həssas olması səbəbindən onu güclü saxlamaq tövsiyə olunur Outlook düzəlişi kimi yaxınlıqdakı alət DataNumen Outlook Repair. Bu halda, kiçik səhvləri həll etmək üçün sadəcə Scanpst.exe-dən istifadə edə bilərsiniz. Ancaq ciddi problemlər üçün daha güclü vasitəyə müraciət edə bilərsiniz.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com