2 módszer az összes e-mail exportálására egy adott feladóról Excel-fájlba

Ha gyorsan szeretné exportálni egy adott feladótól származó e-maileket egy Excel-fájlba, használhatja a cikkben bemutatott következő két módszert.

Bizonyos okokból, például összefoglalás készítéséhez, időnként szükség lehet adott e-mailek, például egy adott feladótól származó e-mailek Excel-fájlba exportálására. Az exportálás kapcsán a legtöbb felhasználónak először a beépített „exportálás” funkció jut eszébe. De őszintén szólva, az Outlook VBA használata sokkal praktikusabb, mint a hagyományos „Exportálás” funkció. Most részletesen bemutatjuk a két módszert.

1. módszer: Használja az „Exportálás” funkciót

1. A legelején indítsa el az Outlook alkalmazást.
2. Ezután kattintson a keresőmezőre az e-mail listában, amely engedélyezi a „Keresőeszközök” szalagot.
3. Kattintson a „Feladó” gombra a szalagon.
4. Ezután cserélje ki a „feladó neve” karaktert az adott feladó nevére.
5. Ezt követően csak az adott feladótól származó e-mailek jelennek meg a listában. Most nyomja meg a „Ctrl + A” gombot az összes kiválasztásához.
6. Ezután kattintson a jobb gombbal, és válassza az „Áthelyezés” > „Egyéb mappa” lehetőséget.
7. Ezt követően a felugró „Elemek áthelyezése” párbeszédpanelen hozzon létre egy új mappát, és válassza ki ezt a mappát az adott e-mailek áthelyezéséhez.
8. Ezután lépjen a „Fájl” > „Megnyitás” > „Importálás” menüpontra.
9. Ezután a következő párbeszédpanelen válassza az „Exportálás fájlba” > „Következő” > „Microsoft Excel 97 – 2003” > „Következő” lehetőséget.
10. Ezután válassza ki azt a mappát, amely az adott feladótól származó e-maileket tárolja, és nyomja meg a „Tovább” gombot.
11. Ezután kattintson a „Tallózás” gombra egy Excel-fájl kiválasztásához vagy egy új Excel-fájl létrehozásához.
12. Később kattintson a „Tovább” > „Befejezés” gombra.
13. Végül az Outlook exportálni fogja. Az exportálási folyamat befejezése után megkeresheti és megnyithatja ezt az Excel-fájlt.

2. módszer: Használja az Outlook VBA-t

1. Először nyomja meg az „Alt + F11” billentyűket.
2. Ezután a felugró ablakban nyisson meg egy új modult, és másolja bele a következő kódokat.

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. Ezt követően kattintson a „Futtatás” ikonra az eszköztáron.
4. Ezt követően meg kell adnia az adott feladó nevét.
5. Később kattintson az „OK” gombra.
6. Az Outlook azonnal elkezdi exportálni az adott feladótól származó e-maileket, és elmenti az Excel fájlt az előre meghatározott célmappába.
7. Az exportálás befejezése után a célmappa megnyitásához és ellenőrzéséhez léphet.

Megszabadulni az Outlook-problémáktól rugalmasan

Tekintettel arra, hogy az Outlook érzékeny a különféle hibákra, ajánlott erősen tartani Outlook javítás eszköz a közelében, mint pl DataNumen Outlook Repair. Ebben az esetben az apró hibák megoldásához egyszerűen használhatja a Scanpst.exe fájlt. De komoly problémák esetén a robusztusabb eszközhöz folyamodhat.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült SQL Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com