2 meetodit kõigi meilide eksportimiseks konkreetselt saatjalt Exceli faili

Kui soovite konkreetselt saatjalt pärit e-kirjad kiiresti Exceli faili eksportida, võite kasutada kahte selles artiklis tutvustatud vahendit.

Mõnel põhjusel, näiteks kokkuvõtte tegemiseks, võib mõnikord olla vaja eksportida konkreetsed meilid, näiteks konkreetselt saatjalt saadetud meilid, Exceli faili. Eksportimise puhul tuleb enamikule kasutajatele esmalt meelde sisseehitatud funktsioon „eksport“. Kuid ausalt öeldes on Outlook VBA kasutamine palju mugavam kui traditsiooniline funktsioon „Eksport“. Nüüd tutvustame neid kahte võimalust üksikasjalikumalt.

1. meetod: kasutage funktsiooni „Ekspordi”.

1. Käivitage kohe alguses oma Outlooki rakendus.
2. Seejärel klõpsake e-posti loendis otsingukasti, mis lubab lindi "Otsingutööriistad".
3. Klõpsake lindil nuppu "Alates".
4. Seejärel asendage märk "saatja nimi" konkreetse saatja nimega.
5. Pärast seda kuvatakse loendis ainult konkreetse saatja meilid. Nüüd vajutage nende kõigi valimiseks "Ctrl + A".
6. Järgmisena paremklõpsake ja valige "Teisalda" > "Muu kaust".
7. Seejärel looge dialoogiboksis "Üksuste teisaldamine" uus kaust ja valige see kaust, kuhu konkreetsed meilid teisaldada.
8. Pärast seda saate minna "Fail"> "Ava"> "Import".
9. Seejärel valige järgmises dialoogiboksis „Ekspordi faili” > „Järgmine” > „Microsoft Excel 97 – 2003” > „Järgmine”.
10. Järgmisena valige konkreetne kaust, kuhu konkreetselt saatjalt pärit e-kirjad salvestatakse, ja klõpsake nuppu "Järgmine".
11. Seejärel klõpsake Exceli faili valimiseks või uue Exceli faili loomiseks nuppu "sirvi".
12. Hiljem klõpsake "Järgmine" > "Lõpeta".
13. Lõpuks töötab Outlook eksportimiseks. Pärast ekspordiprotsessi lõppu saate selle Exceli faili leida ja avada.

2. meetod: kasutage Outlook VBA-d

1. Kõigepealt vajutage klahvikombinatsiooni Alt + F11.
2. Seejärel avage hüpikaknas uus moodul ja kopeerige sellesse järgmised koodid.

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. Seejärel klõpsake tööriistaribal ikooni "Käivita".
4. Pärast seda peate sisestama konkreetse saatja nime.
5. Hiljem klõpsake "OK".
6. Kohe hakkab Outlook eksportima e-kirju konkreetselt saatjalt ja salvestab Exceli faili etteantud sihtkausta.
7. Pärast eksportimise lõpetamist võite minna sihtkausta, et see avada ja kontrollida.

Vabanege Outlooki probleemidest paindlikult

Kuna Outlook on vastuvõtlik erinevatele tõrgetele, on soovitatav hoida end tugevana Outlooki parandus läheduses asuv tööriist, nt DataNumen Outlook Repair. Sel juhul võite väikeste vigade lahendamiseks kasutada lihtsalt faili Scanpst.exe. Kuid tõsiste probleemide korral võite kasutada tugevamat tööriista.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom