VBA操作Lotus Notes：自动处理已发送邮件关闭时的保存弹窗

以下两种方案可以自动跳过"Do you want to save this new document?"的提示：

方案1：标记邮件为已保存后关闭 #

在发送邮件后，设置MailItem.Saved = True，让Outlook认为邮件已保存，关闭时就不会触发保存提示：

Dim olMail As Outlook.MailItem
Set olMail = Outlook.Application.CreateItem(olMailItem)

' 配置邮件信息
olMail.Subject = "你的邮件主题"
olMail.Body = "邮件正文内容"
olMail.Attachments.Add "你的附件路径"

' 发送并处理关闭逻辑
olMail.Send
olMail.Saved = True ' 标记为已保存，跳过保存提示
olMail.Close olDiscard ' 关闭并放弃更改
Set olMail = Nothing ' 释放对象

方案2：直接以丢弃模式关闭邮件 #

调用Close方法时传入olDiscard参数，明确告知Outlook放弃保存更改，也能跳过提示：

' 发送邮件后直接执行
olMail.Close olDiscard
Set olMail = Nothing

注意事项 #

• 优先推荐方案1，因为部分场景下仅用olDiscard可能仍会触发提示，结合Saved = True更可靠
• 确保在释放olMail对象前完成关闭操作，避免内存泄漏

内容的提问来源于stack exchange，提问作者Drawleeh