Einige Benutzer möchten die Informationen der Anhänge in jeder eingehenden E-Mail automatisch aufzeichnen. Dieser Artikel wird eine kurze Zeit teilen, um es mit Leichtigkeit zu realisieren.
Wenn Sie es gewohnt sind, die Anhangsinformationen jeder eingehenden Outlook-E-Mail in eine Excel-Datei zu exportieren, sehnen Sie sich möglicherweise nach einigen Ansätzen, mit denen Outlook diese Arbeit automatisch ausführen kann. Dadurch können Sie das manuelle Verfolgen von Anhängen entfernen. Obwohl Outlook keine so direkte Funktion bietet, können Sie dies glücklicherweise mit ein wenig Skripterstellung erreichen. Jetzt werden wir Sie Schritt für Schritt unterrichten.
Exportieren Sie die Anhangsinformationen eingehender E-Mails automatisch nach Excel
- Starten Sie zunächst die Outlook-Anwendung.
- Gehen Sie dann über „Alt + F11“ zum VBA-Editor.
- Kopieren Sie anschließend den folgenden VBA-Code in ein Modul.
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
- Beenden Sie danach den VBA-Editor.
- Erstellen Sie anschließend eine Regel, um dieses Makro für jede eingehende E-Mail automatisch auszuführen.
- Gehen Sie zunächst zum Menü „Datei“.
- Klicken Sie dann auf die Schaltfläche "Regeln und Warnungen verwalten".
- Klicken Sie im Dialogfeld "Regeln und Warnungen" auf "Neue Regel".
- Wählen Sie im Dialogfeld "Regelassistent" die Option "Regel auf empfangene Nachrichten anwenden" und klicken Sie auf "Weiter".
- Stellen Sie als Nächstes die Regelbedingungen gemäß Ihren Anforderungen ein und klicken Sie auf "Weiter".
- Wählen Sie im Schritt "Aktionen auswählen" die Option "Skript ausführen" und anschließend das Skript "AutoExportAttachmentInfo".
- Folgen Sie abschließend den Assistenten auf dem Bildschirm, um die Regeleinrichtung abzuschließen.
- Von nun an exportiert Outlook jedes Mal, wenn eine neue E-Mail in Ihrem Postfach eingeht und Anhänge enthält, die Anhangsinformationen automatisch in die vordefinierte Excel-Datei.
Laden Sie niemals verdächtige Anhänge herunter
Haben Sie jemals E-Mails von unbekannten Absendern erhalten, die Anhänge enthalten? Normalerweise wird empfohlen, solchen Anhängen nicht ohne weiteres zu vertrauen, da sie möglicherweise mit Viren infiziert sind. Solange Sie sie herunterladen, können Ihre Outlook-Daten infiziert sein. An diesem Punkt müssen Sie Outlook reparieren Datei. Es ist zugegebenermaßen knorrig, es sei denn, Sie greifen auf ein kompetentes Reparaturwerkzeug zurück, wie z DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich erholen Sql Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX