Белгілі бір жіберушіден барлық электрондық хаттарды Excel файлына экспорттаудың 2 әдісі

Егер сіз белгілі бір жіберушіден келген электрондық хаттарды Excel файлына жылдам экспорттағыңыз келсе, осы мақалада ұсынылған келесі 2 әдісті қолдануға болады.

Кейбір себептерге байланысты, мысалы, қысқаша мазмұн жасау сияқты, кейде белгілі бір электрондық пошталарды, мысалы, белгілі бір жіберушіден келген электрондық пошталарды Excel файлына экспорттау қажет болуы мүмкін. Экспорттауға келгенде, көптеген пайдаланушылардың ойына алдымен «экспорттау» деген табиғи мүмкіндік келеді. Бірақ шынын айтқанда, Outlook VBA пайдалану дәстүрлі «Экспорттау» мүмкіндігіне қарағанда әлдеқайда ыңғайлы болады. Енді біз екі әдісті егжей-тегжейлі таныстырамыз.

1 -әдіс: «Экспорттау» мүмкіндігін пайдаланыңыз

1. Ең басында Outlook қосымшасын іске қосыңыз.
2. Содан кейін электрондық пошта тізіміндегі «Іздеу құралдары» таспасын қосатын іздеу өрісін нұқыңыз.
3. Таспадағы «Кімнен» түймесін басыңыз.
4. Содан кейін «жіберуші аты» таңбасын нақты жіберушінің атымен ауыстырыңыз.
5. Осыдан кейін тізімде тек белгілі бір жіберушінің электрондық хаттары көрсетіледі. Енді олардың барлығын таңдау үшін «Ctrl + A» пернелерін басыңыз.
6. Содан кейін тінтуірдің оң жақ түймешігімен нұқыңыз және «Жылжыту»> «Басқа қалтаны» таңдаңыз.
7. Кейіннен, «Элементтерді жылжыту» тілқатысу терезесінде жаңа папка жасаңыз және белгілі бір электрондық поштаны тасымалдау үшін осы қалтаны таңдаңыз.
8. Осыдан кейін сіз «Файл»> «Ашық»> «Импорт» тармақтарына өтуге болады.
9. Содан кейін келесі диалогтық терезеде «Файлға экспорттау»> «Келесі»> «Microsoft Excel 97 - 2003»> «Келесі» тармағын таңдаңыз.
10. Әрі қарай, жіберушіден электрондық хаттарды сақтайтын қалтаны таңдап, «Келесі» түймесін басыңыз.
11. Содан кейін Excel файлын таңдау немесе жаңа Excel файлын жасау үшін «шолу» түймесін басыңыз.
12. Кейін «Келесі»> «Аяқтау» түймесін басыңыз.
13. Соңында Outlook экспорттау үшін жұмыс істейді. Экспорттау процесі аяқталғаннан кейін сіз осы Excel файлын таба және аша аласыз.

2-әдіс: Outlook VBA қолданыңыз

1. Бірінші кезекте «Alt + F11» батырмаларын басыңыз.
2. Содан кейін қалқымалы терезеде жаңа модуль ашып, оған келесі кодтарды көшіріңіз.

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. Содан кейін құралдар тақтасындағы «Іске қосу» белгішесін нұқыңыз.
4. Осыдан кейін сіз нақты жіберушінің атын енгізуіңіз керек.
5. Кейінірек «Жарайды» басыңыз.
6. Outlook бірден белгілі бір жіберушіден электрондық пошталарды экспорттай бастайды және Excel файлын алдын ала белгіленген мақсатты қалтаға сақтайды.
7. Экспорттау аяқталғаннан кейін оны ашу және тексеру үшін тағайындалған қалтаға өтуге болады.

Outlook мәселелерінен икемді түрде құтылыңыз

Outlook әр түрлі қателіктерге бейім болғандықтан, күшті сақтау ұсынылады Outlook түзетуі сияқты жақын маңдағы құрал DataNumen Outlook Repair. Бұл жағдайда кішігірім қателерді шешу үшін Scanpst.exe файлын қолдануға болады. Бірақ маңызды қиындықтар үшін сіз неғұрлым сенімді құралға жүгіне аласыз.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген SQL Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com