Sommige gebruikers willen de informatie van de bijlagen automatisch opnemen in elke inkomende e-mail. Dit artikel zal een korte tijd delen om het gemakkelijk te realiseren.
Als u gewend bent om de bijlagegegevens van elke inkomende Outlook-e-mail naar een Excel-bestand te exporteren, verlangt u misschien naar een aantal benaderingen waardoor Outlook dit werk automatisch kan uitvoeren. Daardoor kunt u bijlagen handmatig verwijderen. Gelukkig, hoewel Outlook niet zo'n directe functie biedt, kun je dit nog steeds bereiken met een beetje scripting. Nu zullen we u stap voor stap leren.
Exporteer automatisch de bijlagegegevens van inkomende e-mails naar Excel
- Start eerst de Outlook-applicatie.
- Ga dan naar de VBA-editor via "Alt + F11".
- Kopieer vervolgens de volgende VBA-code naar een module.
Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nLastRow As Integer
Dim objAttachment As Outlook.Attachment
If objMail.Attachments.Count > 0 Then
'Change the path to the specific Excel file
strExcelFile = "E:\Attachment Info.xlsx"
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
'Export Attachment info to Excel
For Each objAttachment In objMail.Attachments
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = objMail.Subject
.Cells(nLastRow, 2) = objMail.SenderEmailAddress
.Cells(nLastRow, 3) = objAttachment.FileName
.Cells(nLastRow, 4) = objMail.ReceivedTime
End With
Next
objExcelWorksheet.Columns("A:C").AutoFit
objExcelWorkbook.Close True
objExcelApp.Quit
End If
End Sub
- Sluit daarna de VBA-editor af.
- Maak vervolgens een regel om deze macro automatisch uit te voeren bij elke inkomende e-mail.
- Ga eerst naar het menu "Bestand".
- Klik vervolgens op de knop "Regels en waarschuwingen beheren".
- Klik in het dialoogvenster "Regels en waarschuwingen" op "Nieuwe regel".
- Selecteer in het dialoogvenster "Regelwizard" "Regel toepassen op berichten die ik ontvang" en klik op "Volgende".
- Stel vervolgens regelvoorwaarden in volgens uw behoeften en klik op "Volgende".
- Selecteer in de stap "Acties selecteren" de optie "Een script uitvoeren" en kies het script "AutoExportAttachmentInfo".
- Volg ten slotte de wizards op het scherm om het instellen van de regels te voltooien.
- Vanaf nu zal Outlook, elke keer dat er een nieuwe e-mail in uw mailbox binnenkomt, automatisch de bijlage-informatie exporteren naar het vooraf gedefinieerde Excel-bestand.
Download nooit verdachte bijlagen
Heeft u ooit e-mails ontvangen die afkomstig zijn van onbekende afzenders en bijlagen bevatten? Gewoonlijk wordt aangeraden om niet gemakkelijk in dergelijke bijlagen te vertrouwen, omdat ze mogelijk virussen bevatten. Zolang u ze downloadt, kunnen uw Outlook-gegevens worden geïnfecteerd. Op dat moment moet u dat doen Outlook repareren het dossier. Het is weliswaar knoestig, tenzij je je toevlucht neemt tot een bekwaam reparatietool, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstellen Sql Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com