2 būdai eksportuoti visus el. laiškus iš konkretaus siuntėjo į „Excel“ failą

Jei norite greitai eksportuoti konkretaus siuntėjo el. laiškus į „Excel“ failą, galite naudoti šias 2 šiame straipsnyje pateiktas priemones.

Dėl tam tikrų priežasčių, pvz., rengiant suvestinę, kartais gali tekti eksportuoti konkrečius el. laiškus, pvz., konkretaus siuntėjo el. laiškus, į „Excel“ failą. Kai kalbama apie eksportavimą, savoji funkcija „eksportuoti“ atsiras most visų pirma vartotojų mintys. Tačiau atvirai kalbant, „Outlook VBA“ naudojimas bus daug patogesnis nei tradicinė „eksportavimo“ funkcija. Dabar mes išsamiai pristatysime dvi priemones.

1 būdas: naudokite funkciją „Eksportuoti“.

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada spustelėkite paieškos laukelį el. pašto sąraše, kuris įjungs juostelę „Paieškos įrankiai“.
3. Juostelėje spustelėkite mygtuką „Nuo“.
4. Tada pakeiskite simbolį „siuntėjo vardas“ konkretaus siuntėjo vardu.
5. Po to sąraše bus rodomi tik konkretaus siuntėjo el. laiškai. Dabar paspauskite „Ctrl + A“, kad pasirinktumėte juos visus.
6. Tada dešiniuoju pelės mygtuku spustelėkite ir pasirinkite „Perkelti“ > „Kitas aplankas“.
7. Tada iššokančiajame dialogo lange „Perkelti elementus“ sukurkite naują aplanką ir pasirinkite šį aplanką, į kurį norite perkelti konkrečius el.
8. Po to galite eiti į „Failas“ > „Atidaryti“ > „Importuoti“.
9. Tada kitame dialogo lange pasirinkite „Eksportuoti į failą“ > „Kitas“ > „Microsoft Excel 97 – 2003“ > „Kitas“.
10. Tada pasirinkite konkretų aplanką, kuriame saugomi konkretaus siuntėjo el. laiškai, ir paspauskite „Kitas“.
11. Tada spustelėkite „naršyti“, kad pasirinktumėte „Excel“ failą arba sukurtumėte naują „Excel“ failą.
12. Vėliau spustelėkite „Kitas“ > „Baigti“.
13. Galiausiai „Outlook“ veiks eksportuojant. Baigę eksportavimo procesą, galite rasti ir atidaryti šį „Excel“ failą.

2 būdas: naudokite Outlook VBA

1. Pirmiausia paspauskite klavišų kombinaciją „Alt + F11“.
2. Tada iššokančiajame lange atidarykite naują modulį ir nukopijuokite į jį šiuos 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. Tada įrankių juostoje spustelėkite piktogramą „Vykdyti“.
4. Po to turėsite įvesti konkretaus siuntėjo vardą.
5. Vėliau spustelėkite „Gerai“.
6. Iš karto „Outlook“ start eksportuoti el. laiškus iš konkretaus siuntėjo ir įrašyti Excel failą į iš anksto nustatytą paskirties aplanką.
7. Baigę eksportuoti, galite eiti į paskirties aplanką, kad jį atidarytumėte ir patikrintumėte.

Lanksčiai atsikratykite „Outlook“ problemų

Atsižvelgiant į tai, kad „Outlook“ yra jautri įvairioms klaidoms, rekomenduojama išlaikyti stiprią Outlook taisymas šalia esantis įrankis, pvz DataNumen Outlook Repair. Tokiu atveju, norėdami išspręsti mažas klaidas, galite tiesiog naudoti Scanpst.exe. Tačiau rimtų problemų atveju galite kreiptis į tvirtesnį įrankį.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com