2 tapaa viedä kaikki sähköpostit tietyltä lähettäjältä Excel-tiedostoon

Jos haluat viedä nopeasti tietyltä lähettäjältä tulevat sähköpostit Excel-tiedostoon, voit käyttää seuraavia kahta tässä artikkelissa esitettyä tapaa.

Jostain syystä, kuten yhteenvedon tekemiseksi, saatat joskus joutua viemään tiettyjä sähköposteja, kuten tietyn lähettäjän sähköposteja, Excel-tiedostoon. Viennin osalta useimmille käyttäjille tulee ensin mieleen natiivi ominaisuus "vienti". Mutta rehellisesti sanottuna Outlook VBA:n käyttö on paljon kätevämpää kuin perinteinen "vienti"-toiminto. Nyt esittelemme nämä kaksi tapaa yksityiskohtaisesti.

Tapa 1: Käytä Vie-ominaisuutta

1. Käynnistä Outlook-sovellus heti alusta.
2. Napsauta sitten sähköpostiluettelon hakukenttää, jolloin "Hakutyökalut" -nauha otetaan käyttöön.
3. Napsauta nauhan Lähettäjä-painiketta.
4. Korvaa sitten ”lähettäjän nimi” -merkki tietyn lähettäjän nimellä.
5. Sen jälkeen luettelossa näkyvät vain tietyn lähettäjän sähköpostit. Valitse nyt kaikki painamalla "Ctrl + A".
6. Seuraava hiiren kakkospainikkeella ja valitse "Siirrä"> "Muu kansio".
7. Luo sitten uusi Siirrä kohteet -valintaikkunassa uusi kansio ja valitse tämä kansio, johon haluat siirtää tietyt sähköpostit.
8. Sen jälkeen voit siirtyä kohtaan "Tiedosto"> "Avaa"> "Tuo".
9. Valitse sitten seuraavasta valintaikkunasta Vie tiedostoon> Seuraava> Microsoft Excel 97-2003> Seuraava.
10. Valitse seuraavaksi kansio, johon tietyn lähettäjän sähköpostit tallennetaan, ja paina Seuraava.
11. Napsauta sitten "selaa" valitaksesi Excel-tiedoston tai luo uusi Excel-tiedosto.
12. Napsauta myöhemmin ”Seuraava”> ”Valmis”.
13. Lopuksi Outlook toimii vientiä varten. Kun vientiprosessi on valmis, voit löytää ja avata tämän Excel-tiedoston.

Tapa 2: Käytä Outlook VBA: ta

1. Paina ensinnäkin ”Alt + F11” -näppäimiä.
2. Avaa sitten ponnahdusikkunassa uusi moduuli ja kopioi siihen seuraavat koodit.

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. Napsauta sitten työkalupalkin Suorita-kuvaketta.
4. Sen jälkeen sinun on annettava tietyn lähettäjän nimi.
5. Napsauta myöhemmin “OK”.
6. Outlook alkaa heti viedä sähköpostit tietyltä lähettäjältä ja tallentaa Excel-tiedoston ennalta määritettyyn kohdekansioon.
7. Kun vienti on valmis, voit siirtyä kohdekansioon avaamaan ja tarkistamaan sen.

Poista Outlook-ongelmat joustavasti

Koska Outlook on altis erilaisille virheille, on suositeltavaa pitää voimakas Outlook-korjaus työkalu läheisyydessä, kuten DataNumen Outlook Repair. Tässä tapauksessa voit ratkaista pienet virheet yksinkertaisesti käyttämällä Scanpst.exe-tiedostoa. Mutta vakavien ongelmien varalta voit käyttää vankempaa työkalua.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vaurioitunut SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com