vba - 自定义 Outlook From 无法使用“.Close”关闭

Question

我使用 VBA 创建了一个自定义 Outlook 表单。我想发送一封邮件，然后只需单击一个按钮即可关闭表单。应该发送邮件，然后关闭表格。编写了以下代码，但这会在提示用户保存更改后关闭表单。用户必须关闭提示的 MsgBox，然后关闭表单。

Sub cmdbut2_Click
    Set myItem = Application.CreateItem(0)
    myItem.Recipients.Add "Test Test"
    myItem.Close 2
End Sub

我想在没有提示消息的情况下关闭表单。我怎样才能做到这一点？

Answer 1

您应该将olSave 值传递给 MailItem.Close 方法。

Sub cmdbut2_Click
    Set myItem = Application.CreateItem(0)
    myItem.Recipients.Add "Test Test"
    'myItem.Close 2 close with prompt for save
    myItem.Close olSave
End Sub