2 metode za izvoz svih poruka e-pošte od određenog pošiljatelja u Excel datoteku

Ako želite brzo izvesti e-poštu koja je od određenog pošiljatelja u Excel datoteku, možete koristiti sljedeća 2 načina predstavljena u ovom članku.

Iz nekih razloga, poput izrade sažetka, ponekad ćete možda morati izvesti određene e-poruke, poput e-poruka od određenog pošiljatelja, u Excel datoteku. Kada je riječ o izvozu, većini korisnika će prvo pasti na pamet izvorna značajka "izvoz". Ali iskreno, korištenje Outlook VBA-e bit će puno praktičnije od tradicionalne značajke "Izvoz". Sada ćemo detaljno predstaviti ta dva načina.

Metoda 1: Koristite značajku "Izvoz".

1. Na samom početku pokrenite svoju Outlook aplikaciju.
2. Zatim kliknite na okvir za pretraživanje na popisu e-pošte, što će omogućiti vrpcu "Alati za pretraživanje".
3. Kliknite gumb "Od" na vrpci.
4. Zatim zamijenite znak "ime pošiljatelja" imenom određenog pošiljatelja.
5. Nakon toga će se na popisu prikazivati ​​samo e-poruke određenog pošiljatelja. Sada pritisnite “Ctrl + A” da ih odaberete sve.
6. Sljedeći desni klik i odaberite “Premjesti” > “Druga mapa”.
7. Nakon toga, u skočnom dijaloškom okviru "Premjesti stavke", stvorite novu mapu i odaberite ovu mapu u koju ćete premjestiti određene poruke e-pošte.
8. Nakon toga možete otići na “Datoteka” > “Otvori” > “Uvezi”.
9. Zatim u sljedećem dijaloškom okviru odaberite „Izvezi u datoteku” > „Dalje” > „Microsoft Excel 97 – 2003” > „Dalje”.
10. Zatim odaberite određenu mapu koja pohranjuje e-poštu od određenog pošiljatelja i pritisnite "Dalje".
11. Zatim kliknite "pregledaj" za odabir Excel datoteke ili stvaranje nove Excel datoteke.
12. Kasnije kliknite “Dalje” > “Završi”.
13. Konačno će Outlook raditi na izvozu. Nakon završetka postupka izvoza možete pronaći i otvoriti ovu Excel datoteku.

Metoda 2: Koristite Outlook VBA

1. Prvo pritisnite tipke "Alt + F11".
2. Zatim u skočnom prozoru otvorite novi modul i u njega kopirajte sljedeće kodove.

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. Nakon toga kliknite ikonu "Pokreni" na alatnoj traci.
4. Nakon toga od vas će se tražiti da unesete ime određenog pošiljatelja.
5. Kasnije kliknite "OK".
6. Outlook će odmah početi izvoziti e-poruke od određenog pošiljatelja i spremiti Excel datoteku u unaprijed određenu odredišnu mapu.
7. Nakon završetka izvoza, možete otići u odredišnu mapu da je otvorite i provjerite.

Fleksibilno se riješite problema s Outlookom

Zbog činjenice da je Outlook podložan raznim pogreškama, preporuča se zadržati moćan Outlook popravak alat u blizini, kao što je DataNumen Outlook Repair. U ovom slučaju, za rješavanje malih pogrešaka, možete jednostavno koristiti Scanpst.exe. Ali za ozbiljne probleme možete pribjeći robusnijem alatu.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com