有些用户希望在每封收到的电子邮件中自动记录附件信息。 本文将分享一个快速的时间来轻松实现它。
如果您习惯于将每封收到的 Outlook 电子邮件的附件信息导出到 Excel 文件，那么您可能会渴望有一些方法可以让 Outlook 自动承担这项工作。 因此，您可以手动删除跟踪附件。 幸运的是，尽管 Outlook 不提供这种直接的功能，您仍然可以通过一些脚本来实现它。 现在，我们将一步步教你。
自动将传入电子邮件的附件信息导出到 Excel
- 首先，启动 Outlook 应用程序。
- 然后，通过“Alt + F11”转到 VBA 编辑器。
- 接下来，将以下 VBA 代码复制到模块中。
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
- 之后，退出 VBA 编辑器。
- 随后，创建一个规则以在每封收到的电子邮件上自动运行此宏。
- 首先，转到“文件”菜单。
- 然后，单击“管理规则和警报”按钮。
- 在“规则和警报”对话框中，单击“新建规则”。
- 在“规则向导”对话框中，选择“对我收到的邮件应用规则”，然后单击“下一步”。
- 接下来，根据您的需要设置规则条件，然后点击“下一步”。
- 在“选择操作”步骤中，选择“运行脚本”并选择“AutoExportAttachmentInfo”脚本。
- 最后，按照屏幕上的向导完成规则设置。
- 从现在开始，每当有新邮件到达您的邮箱时，如果有附件，Outlook 会自动将附件信息导出到预定义的 Excel 文件中。
切勿下载可疑附件
您是否收到过来自未知发件人且包含附件的电子邮件？ 通常，建议不要轻易相信此类附件，因为它们可能带有病毒。 只要下载它们，您的 Outlook 数据就会被感染。 那时，你需要 修复Outlook 文件。 除非您求助于熟练的修复工具，否则这确实很棘手，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复 Sql Server 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com