没有“保存更改”对话框的 Outlook VBA 草稿电子邮件答案

【问题标题】：Outlook VBA draft emails without "save changes" dialog没有“保存更改”对话框的 Outlook VBA 草稿电子邮件
【发布时间】：2021-02-11 15:50:03
【问题描述】：

我使用 VBA 创建新的 MailItem 元素并将它们移动到我的收件箱。由于它们没有被发送，因此从 Outlook 的角度来看，它们被视为草稿。这意味着，当我打开这样一个元素时，如果没有烦人的保存提示，我将无法关闭它。

有没有办法使用未发送的邮件元素来跟踪事情？我也可以将这些元素发送到我自己的邮件地址，但这有时需要更长的时间才能收到。所以我宁愿只在本地创建它们。

【问题讨论】：

标签： vba mailitem

【解决方案1】：

使用.Close，您可以指定 olDiscard、olPromptForSave 或 olSave。

https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.close(method)

Option Explicit

Sub closeWithoutPromptToSave()

    Dim currItem As MailItem
    
    Set currItem = ActiveInspector.currentItem
    currItem.Close olSave
    
End Sub

【讨论】：