2 načina za izvoz vseh e-poštnih sporočil določenega pošiljatelja v Excelovo datoteko

Če želite hitro izvoziti e-poštna sporočila določenega pošiljatelja v Excelovo datoteko, lahko uporabite naslednja dva načina, predstavljena v tem članku.

Zaradi nekaterih razlogov, na primer zaradi povzetka, boste včasih morda morali izvoziti določena e-poštna sporočila, na primer e-poštna sporočila določenega pošiljatelja, v Excelovo datoteko. Ko gre za izvoz, bo večini uporabnikov najprej padla na pamet izvorna funkcija »izvoz«. A če sem iskren, bo uporaba Outlook VBA veliko bolj priročna kot tradicionalna funkcija »Izvozi«. Zdaj bomo podrobneje predstavili oba načina.

1. način: Uporabite funkcijo »Izvozi«

1. Na začetku zaženite aplikacijo Outlook.
2. Nato kliknite v iskalno polje na e-poštnem seznamu, ki bo omogočilo trak »Orodja za iskanje«.
3. Na traku kliknite gumb »Od«.
4. Nato znak »ime pošiljatelja« zamenjajte z imenom določenega pošiljatelja.
5. Po tem bodo na seznamu prikazana samo e-poštna sporočila določenega pošiljatelja. Zdaj pritisnite "Ctrl + A", da izberete vse.
6. Naslednji desni klik in izberite »Premakni«> »Druga mapa«.
7. Nato v pojavnem pogovornem oknu »Premakni elemente« ustvarite novo mapo in izberite to mapo, kamor želite premakniti določena e-poštna sporočila.
8. Po tem lahko odprete »Datoteka«> »Odpri«> »Uvozi«.
9. Nato v naslednjem pogovornem oknu izberite "Izvozi v datoteko"> "Naprej"> "Microsoft Excel 97 - 2003"> "Naprej".
10. Nato izberite določeno mapo, v kateri so shranjena e-poštna sporočila določenega pošiljatelja, in pritisnite »Naprej«.
11. Nato kliknite »brskaj«, da izberete datoteko Excel ali ustvarite novo datoteko Excel.
12. Kasneje kliknite »Naprej«> »Dokončaj«.
13. Končno bo Outlook delal za izvoz. Ko je postopek izvoza končan, lahko poiščete in odprete to datoteko Excel.

2. način: Uporabite Outlook VBA

1. Najprej pritisnite tipke “Alt + F11”.
2. Nato v pojavnem oknu odprite nov modul in vanj kopirajte naslednje kode.

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. Nato v orodni vrstici kliknite ikono »Zaženi«.
4. Po tem boste morali vnesti ime določenega pošiljatelja.
5. Kasneje kliknite »V redu«.
6. Outlook bo takoj začel izvažati e-poštna sporočila določenega pošiljatelja in shranil datoteko Excel v vnaprej določeno ciljno mapo.
7. Po končanem izvozu lahko odprete in preverite ciljno mapo.

Znebite se težav z Outlookom prilagodljivo

Ker je Outlook dovzeten za različne napake, je priporočljivo, da ostane močan Outlook popravek orodje v bližini, kot npr DataNumen Outlook Repair. V tem primeru lahko za rešitev majhnih napak preprosto uporabite Scanpst.exe. Toda za resne težave se lahko zatečete k bolj robustnemu orodju.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com