2 metody exportu všech e-mailů od konkrétního odesílatele do souboru aplikace Excel

Pokud chcete rychle exportovat e-maily od konkrétního odesílatele do souboru aplikace Excel, můžete použít následující 2 prostředky představené v tomto článku.

Z různých důvodů, například při vytváření shrnutí, může být někdy nutné exportovat konkrétní e-maily, například e-maily od konkrétního odesílatele, do souboru Excelu. Pokud jde o export, většinu uživatelů nejprve napadne nativní funkce „export“. Ale upřímně řečeno, použití Outlooku VBA bude mnohem praktičtější než tradiční funkce „Export“. Nyní si tyto dva způsoby podrobně představíme.

Metoda 1: Použijte funkci „Exportovat“

1. Hned na začátku spusťte aplikaci Outlook.
2. Poté klikněte do vyhledávacího pole v seznamu e-mailů, čímž se aktivuje pásmo „Vyhledávací nástroje“.
3. Klikněte na tlačítko „Od“ na pásu karet.
4. Poté nahraďte znak „jméno odesílatele“ konkrétním jménem odesílatele.
5. Poté se v seznamu zobrazí pouze e-maily od konkrétního odesílatele. Nyní stiskněte „Ctrl + A“ a vyberte je všechny.
6. Další klikněte pravým tlačítkem a vyberte „Přesunout“> „Další složka“.
7. Následně v rozbalovacím dialogovém okně „Přesunout položky“ vytvořte novou složku a vyberte tuto složku, do které chcete přesunout konkrétní e-maily.
8. Poté můžete přejít na „Soubor“> „Otevřít“> „Importovat“.
9. V následujícím dialogovém okně poté vyberte možnost „Exportovat do souboru“> „Další“> „Microsoft Excel 97 - 2003“> „Další“.
10. Dále vyberte konkrétní složku, která ukládá e-maily od konkrétního odesílatele, a stiskněte „Další“.
11. Poté klikněte na „Procházet“ a vyberte soubor Excel nebo vytvořte nový soubor Excel.
12. Později klikněte na „Další“> „Dokončit“.
13. Nakonec Outlook bude pracovat na exportu. Po dokončení procesu exportu můžete tento soubor Excel najít a otevřít.

Metoda 2: Použijte Outlook VBA

1. Na prvním místě stiskněte klávesy „Alt + F11“.
2. Poté ve vyskakovacím okně otevřete nový modul a zkopírujte do něj následující kódy.

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. Poté klikněte na ikonu „Spustit“ na panelu nástrojů.
4. Poté budete požádáni o zadání jména konkrétního odesílatele.
5. Později klikněte na „OK“.
6. Aplikace Outlook okamžitě začne exportovat e-maily od konkrétního odesílatele a uloží soubor Excel do předem určené cílové složky.
7. Po dokončení exportu můžete přejít do cílové složky a otevřít ji a zkontrolovat.

Zbavte se problémů s Outlookem flexibilně

Vzhledem k tomu, že Outlook je náchylný k různým chybám, doporučuje se zachovat potent Oprava aplikace Outlook nástroj v okolí, jako např DataNumen Outlook Repair. V tomto případě můžete k vyřešení malých chyb jednoduše použít program Scanpst.exe. Ale pro vážné potíže se můžete uchýlit k robustnějšímu nástroji.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškození SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com