2 Metodes visu e -pasta ziņojumu eksportēšanai no konkrēta sūtītāja uz Excel failu

Ja vēlaties ātri eksportēt e -pastus, kas ir no konkrēta sūtītāja, uz Excel failu, varat izmantot šādus 2 šajā rakstā aprakstītos līdzekļus.

Dažu iemeslu dēļ, piemēram, veicot kopsavilkumu, dažkārt var būt nepieciešams eksportēt konkrētus e -pastus, piemēram, e -pasta ziņojumus no konkrēta sūtītāja, uz Excel failu. Kad runa ir par eksportēšanu, vietējā funkcija “eksportēt” parādīsies most lietotāju prātos. Bet, godīgi sakot, Outlook VBA izmantošana būs daudz ērtāka nekā tradicionālā “Eksporta” funkcija. Tagad mēs detalizēti iepazīstināsim ar abiem līdzekļiem.

1. metode: izmantojiet funkciju “Eksportēt”

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam e -pasta sarakstā noklikšķiniet uz meklēšanas lodziņa, kas aktivizēs lenti “Meklēšanas rīki”.
3. Lentē noklikšķiniet uz pogas “No”.
4. Pēc tam aizstājiet rakstzīmi “sūtītāja vārds” ar konkrēto sūtītāja vārdu.
5. Pēc tam sarakstā tiks parādīti tikai konkrētā sūtītāja e -pasta ziņojumi. Tagad nospiediet “Ctrl + A”, lai atlasītu tos visus.
6. Nākamais ar peles labo pogu noklikšķiniet un atlasiet “Pārvietot”> “Cita mape”.
7. Pēc tam dialoglodziņā “Pārvietot vienumus” izveidojiet jaunu mapi un atlasiet šo mapi, uz kuru pārvietot konkrētos e -pastus.
8. Pēc tam varat doties uz “Fails”> “Atvērt”> “Importēt”.
9. Pēc tam nākamajā dialoglodziņā atlasiet “Eksportēt failā”> “Tālāk”> “Microsoft Excel 97 - 2003”> “Tālāk”.
10. Pēc tam izvēlieties konkrēto mapi, kurā tiek glabāti konkrētā sūtītāja e -pasta ziņojumi, un noklikšķiniet uz "Tālāk".
11. Pēc tam noklikšķiniet uz “pārlūkot”, lai izvēlētos Excel failu vai izveidotu jaunu Excel failu.
12. Vēlāk noklikšķiniet uz “Tālāk”> “Pabeigt”.
13. Visbeidzot, Outlook darbosies eksportēšanai. Kad eksportēšanas process ir pabeigts, varat atrast un atvērt šo Excel failu.

2. metode: izmantojiet Outlook VBA

1. Pirmkārt, nospiediet taustiņu “Alt + F11” taustiņus.
2. Pēc tam uznirstošajā logā atveriet jaunu moduli un nokopējiet tajā šādus kodus.

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. Pēc tam rīkjoslā noklikšķiniet uz ikonas “Palaist”.
4. Pēc tam jums būs jāievada konkrētā sūtītāja vārds.
5. Vēlāk noklikšķiniet uz Labi.
6. Uzreiz programma Outlook start, lai eksportētu e -pastus no konkrētā sūtītāja un saglabātu Excel failu iepriekš noteiktā mērķa mapē.
7. Pēc eksportēšanas pabeigšanas varat doties uz mērķa mapi, lai to atvērtu un pārbaudītu.

Elastīgi atbrīvojieties no Outlook problēmām

Tā kā programma Outlook ir uzņēmīga pret dažādām kļūdām, ieteicams to saglabāt spēcīgu Outlook labojums rīks tuvumā, piemēram, DataNumen Outlook Repair. Šajā gadījumā, lai atrisinātu nelielas kļūdas, varat vienkārši izmantot Scanpst.exe. Bet nopietnu nepatikšanu gadījumā varat izmantot spēcīgāku rīku.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar