Als u snel de e-mails van een specifieke afzender naar een Excel-bestand wilt exporteren, kunt u de volgende 2 middelen gebruiken die in dit artikel worden geïntroduceerd.
Soms is het nodig om specifieke e-mails, bijvoorbeeld van een bepaalde afzender, naar een Excel-bestand te exporteren, bijvoorbeeld om een samenvatting te maken. Bij het exporteren denken de meeste gebruikers waarschijnlijk als eerste aan de ingebouwde exportfunctie. Maar eerlijk gezegd is het gebruik van Outlook VBA vaak veel handiger dan de traditionele exportfunctie. We zullen beide methoden hieronder in detail bespreken.
Methode 1: Gebruik de functie "Exporteren"
- Start vanaf het begin uw Outlook-applicatie.
- Klik vervolgens in het zoekvak in de e-maillijst, waardoor het lint "Zoekhulpmiddelen" wordt geactiveerd.
- Klik op de knop "Van" in het lint.
- Vervang vervolgens het teken "naam afzender" door de specifieke naam van de afzender.
- Daarna worden alleen de e-mails van de specifieke afzender in de lijst weergegeven. Druk nu op "Ctrl + A" om ze allemaal te selecteren.
- Klik vervolgens met de rechtermuisknop en selecteer "Verplaatsen"> "Andere map".
- Maak vervolgens in het pop-upvenster "Items verplaatsen" een nieuwe map aan en selecteer deze map om de specifieke e-mails naartoe te verplaatsen.
- Daarna ga je naar “Bestand”> “Openen”> “Importeren”.
- Selecteer vervolgens in het volgende dialoogvenster 'Exporteren naar een bestand'> 'Volgende'> 'Microsoft Excel 97 - 2003'> 'Volgende'.
- Kies vervolgens de specifieke map waarin de e-mails van de specifieke afzender zijn opgeslagen en klik op "Volgende".
- Klik vervolgens op "bladeren" om een Excel-bestand te kiezen of maak een nieuw Excel-bestand.
- Klik later op "Volgende"> "Voltooien".
- Eindelijk werkt Outlook om te exporteren. Nadat het exportproces is voltooid, kunt u dit Excel-bestand zoeken en openen.
Methode 2: gebruik Outlook VBA
- Druk in de eerste plaats op de toetsen "Alt + F11".
- Open vervolgens in het pop-upvenster een nieuwe module en kopieer de volgende codes erin.
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
- Klik vervolgens op het pictogram “Uitvoeren” in de werkbalk.
- Daarna moet u de naam van de specifieke afzender invoeren.
- Klik later op "OK".
- Outlook begint direct met het exporteren van de e-mails van de betreffende afzender en slaat het Excel-bestand op in de vooraf ingestelde bestemmingsmap.
- Nadat het exporteren is voltooid, kunt u naar de doelmap gaan om deze te openen en te controleren.
Verwijder Outlook-problemen op een flexibele manier
Vanwege het feit dat Outlook vatbaar is voor verschillende fouten, wordt het aanbevolen om een krachtig Outlook-oplossing tool in de buurt, zoals DataNumen Outlook Repair. Om de kleine foutjes op te lossen, kunt u in dit geval gewoon Scanpst.exe gebruiken. Maar voor de ernstige problemen kunt u een beroep doen op de robuustere tool.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigd SQL Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com