2 metoder for å eksportere alle e-poster fra en bestemt avsender til en Excel-fil

Hvis du raskt vil eksportere e-postene som er fra en bestemt avsender til en Excel-fil, kan du bruke følgende 2 virkemidler som er introdusert i denne artikkelen.

Av ulike grunner, for eksempel for å lage et sammendrag, kan det hende du må eksportere spesifikke e-poster, for eksempel e-poster fra en bestemt avsender, til en Excel-fil. Når det gjelder eksport, vil de fleste brukere tenke på den innebygde funksjonen «eksport» i utgangspunktet. Men for å være ærlig, vil det være mye enklere å bruke Outlook VBA enn den tradisjonelle «eksport»-funksjonen. Nå skal vi introdusere de to metodene i detalj.

Metode 1: Bruk "Eksporter"-funksjonen

1. Start Outlook-applikasjonen helt i begynnelsen.
2. Klikk deretter i søkeboksen i e-postlisten, som vil aktivere båndet "Søkeverktøy".
3. Klikk på "Fra"-knappen på båndet.
4. Erstatt deretter tegnet "avsendernavn" med den spesifikke avsenderens navn.
5. Etter det vil bare e-postene fra den spesifikke avsenderen vises i listen. Trykk nå "Ctrl + A" for å velge alle.
6. Neste høyreklikk og velg "Flytt"> "Annen mappe".
7. Deretter, i popup-dialogboksen "Flytt elementer", oppretter du en ny mappe og velger denne mappen for å flytte de spesifikke e-postene til.
8. Etter det kan du gå til "Fil"> "Åpne"> "Importer".
9. I den følgende dialogboksen velger du "Eksporter til en fil" > "Neste" > "Microsoft Excel 97 – 2003" > "Neste".
10. Velg deretter den spesifikke mappen som lagrer e-postene fra den spesifikke avsenderen og trykk "Neste".
11. Klikk deretter "bla gjennom" for å velge en Excel-fil eller opprette en ny Excel-fil.
12. Senere klikker du på «Neste» > «Fullfør».
13. Til slutt vil Outlook jobbe med å eksportere. Etter at eksportprosessen er fullført, kan du finne og åpne denne Excel-filen.

Metode 2: Bruk Outlook VBA

1. For det første, trykk på "Alt + F11"-tastene.
2. Deretter åpner du en ny modul i popup-vinduet og kopierer følgende koder inn i den.

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. Deretter klikker du på "Kjør"-ikonet i verktøylinjen.
4. Etter det vil du bli bedt om å skrive inn navnet på den spesifikke avsenderen.
5. Senere klikker du på "OK".
6. Outlook vil umiddelbart begynne å eksportere e-postene fra den spesifikke avsenderen og lagre Excel-filen i den forhåndsbestemte målmappen.
7. Etter at eksporten er fullført, kan du gå til målmappen for å åpne og sjekke den.

Bli kvitt Outlook-problemer på en fleksibel måte

På grunn av det faktum at Outlook er utsatt for ulike feil, anbefales det å holde en potent Outlook-fiks verktøy i nærheten, som f.eks DataNumen Outlook Repair. I dette tilfellet, for å løse de små feilene, kan du ganske enkelt bruke Scanpst.exe. Men for de alvorlige problemene kan du ty til det mer robuste verktøyet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert skadet SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med