如何实现已发送邮件中附件的自动删除？
在发送带有附件的邮件时，附件会默认与邮件一同保存在已发送邮件文件夹中。为了减小 PST 文件的体积，您可能希望在邮件发送后自动从已发送邮件中移除附件。本文将为您详细介绍在 Outlook 中实现这一功能的方法。
在已发送邮件中自动删除已发送邮件的附件
以下 VBA 代码可帮助您在 Outlook 中自动删除已发送邮件的附件，请按如下步骤操作：
1. 按住 “ALT” +“F11” 键，即可打开 “Microsoft Visual Basic for Applications” 窗口。
2. 在“Microsoft Visual Basic for Applications”窗口中，双击“Project 1(VbaProject.OTM）”窗格下的“ThisOutlookSession”以进入编辑模式，然后将以下代码复制并粘贴到空白模块中。
VBA 代码：自动删除已发送邮件中已发送邮件的附件：
Public WithEvents SentMailItems As Outlook.Items
Private Sub Application_Startup()
Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub SentMailItems_ItemAdd(ByVal Item As Object)
Dim xSentMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim xAttachmentInfo As String
On Error Resume Next
If Item.Class = olMail Then
Set xSentMail = Item
End If
Set xAttachments = xSentMail.Attachments
For i = xAttachments.Count To 1 Step -1
Set xAttachment = xAttachments.Item(i)
xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
"</BODY></HTML>" & vbCrLf & xAttachmentInfo
xAttachment.Delete
Next
xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
xSentMail.Save
End Sub
3. 插入上述代码后，请重启 Outlook，即可使代码生效。
4. 从现在起，您发送带有附件的邮件后，附件将会自动从已发送邮件中删除，如下图所示：
注意：此代码仅适用于默认数据账户，敬请留意。
最佳办公效率工具
体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！
🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。
📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……
📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……
📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……
🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……
👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……
👩🏼🤝👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……
在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！
一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！
🚀 一键下载 — 即可获取全部 Office 加载项
强烈推荐：Kutools for Office（5 合 1）
一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！
- ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
- 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
- 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint