2 Metoder til at eksportere alle e-mails fra en bestemt afsender til en Excel-fil

Hvis du hurtigt vil eksportere e-mails, der er fra en bestemt afsender, til en Excel-fil, kan du bruge følgende 2 midler introduceret i denne artikel.

Af forskellige årsager, f.eks. for at lave et resumé, kan det til tider være nødvendigt at eksportere specifikke e-mails, f.eks. e-mails fra en bestemt afsender, til en Excel-fil. Når det kommer til eksport, vil den indbyggede funktion "eksport" falde de fleste brugere ind i første omgang. Men for at være ærlig, vil det være meget mere praktisk at bruge Outlook VBA end den traditionelle "eksport"-funktion. Nu vil vi introducere de to metoder i detaljer.

Metode 1: Brug funktionen "Eksporter"

1. Start din Outlook-applikation lige fra starten.
2. Klik derefter i søgefeltet i e-mail-listen, som aktiverer båndet "Søgeværktøjer".
3. Klik på knappen "Fra" i båndet.
4. Udskift derefter “afsendernavn” -tegnet med den specifikke afsenders navn.
5. Derefter vises kun e-mails fra den specifikke afsender på listen. Tryk nu på "Ctrl + A" for at vælge dem alle.
6. Næste højreklik og vælg "Flyt"> "Anden mappe".
7. Derefter opretter du en ny mappe i popup-dialogboksen "Flyt emner", og vælg denne mappe for at flytte de specifikke e-mails til.
8. Derefter kan du gå til "File"> "Open"> "Import".
9. Vælg derefter 'Eksporter til en fil'> 'Næste'> 'Microsoft Excel 97 - 2003'> 'Næste' i den følgende dialogboks.
10. Vælg derefter den specifikke mappe, der gemmer e-mails fra den specifikke afsender, og tryk på "Næste".
11. Klik derefter på "gennemse" for at vælge en Excel-fil eller oprette en ny Excel-fil.
12. Senere skal du klikke på "Næste"> "Afslut".
13. Endelig vil Outlook arbejde med at eksportere. Når eksportprocessen er afsluttet, kan du finde og åbne denne Excel-fil.

Metode 2: Brug Outlook VBA

1. For det første skal du trykke på “Alt + F11” -tasten.
2. Derefter skal du åbne et nyt modul i popup-vinduet og kopiere følgende koder ind i det.

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. Klik derefter på ikonet "Kør" i værktøjslinjen.
4. Derefter skal du indtaste navnet på den specifikke afsender.
5. Senere skal du klikke på “OK”.
6. Outlook begynder straks at eksportere e-mails fra den specifikke afsender og gemme Excel-filen i den forudbestemte destinationsmappe.
7. Når eksporten er afsluttet, kan du gå til destinationsmappen for at åbne og kontrollere den.

Slip af med Outlook-problemer fleksibelt

På grund af det faktum, at Outlook er modtagelig for forskellige fejl, anbefales det at holde en potent Outlook-rettelse værktøj i nærheden, f.eks DataNumen Outlook Repair. I dette tilfælde kan du bare bruge Scanpst.exe til at løse de små fejl. Men for de alvorlige problemer kan du ty til det mere robuste værktøj.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com