如果您习惯于在发送邮件后删除附件，您可以使用本文介绍的方法，即使用 Outlook VBA 帮助您自动获取。
由于外发邮件的附件通常存储在您自己的电脑中，您可能习惯于在发送邮件后删除附件。 这将使您的 PST 文件保持较小的尺寸，这不仅可以确保 Outlook 的良好性能，还可以降低 PST 损坏的几率。 因此，如果想让Outlook自动删除外发邮件的附件，可以使用下面的方法，也就是应用VBA代码。
发送后自动删除电子邮件的附件
- 首先，启动您的 Outlook 应用程序。
- 然后按“Alt + F11”快捷键。
- 接下来您将进入 Outlook VBA 编辑器。
- 随后，您应该打开“ThisOutlookSession”项目窗口。
- 然后将以下 VBA 代码复制并粘贴到其中。
Public WithEvents objSentMails As Outlook.Items
Private Sub Application_Startup()
Set objSentMails = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
Dim objSentMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim i As Long
Dim strAttachmentInfo As String
'Only work on emails
If Item.Class = olMail Then
Set objSentMail = Item
End If
Set objAttachments = objSentMail.attachments
While objAttachments.Count > 0
'Get the information of removed attachments
strAttachmentInfo = "<HTML><BODY>Attachment Removed: " & objAttachments.Item(1).DisplayName & "</HTML></BODY>---------------------------------------------------------" & strAttachmentInfo
objAttachments.Item(1).Delete
Wend
'Insert the information of removed attachments to the body
objSentMail.HTMLBody = strAttachmentInfo & objSentMail.HTMLBody
objSentMail.Save
End Sub
- 之后，您应该签署此代码。
- 首先，使用 Digital Certificates for VBA Projects 创建一个证书。
- 然后将此证书分配给新的宏。 单击“工具”>“签名”，然后按照屏幕上的说明进行操作。
- 稍后您可以返回 Outlook 主窗口并点击“开发人员”选项卡下的“宏安全”。
- 接下来在弹出对话框中，更改宏设置以允许数字签名的宏。
- 最后重启 Outlook 以激活新的 VBA 项目。
- 以后每次发邮件，附件都会自动删除，如下截图：
及时解决 Outlook 问题
毫无疑问，Outlook 容易出错。 因此，如果您想保护您的 Outlook 数据免于丢失或损坏，您必须付出很多努力，包括定期进行数据备份和保持稳健的状态。 展望修复 附近的工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 腐败的中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com