无法使用".Close"关闭自定义展望

Question

我已经使用VBA创建了一个自定义outlook表单。我想发送一封邮件，然后通过点击一个按钮关闭表单。邮件应该发出，然后表格应该关闭。我们编写了下面的代码，但这将在提示用户保存更改后关闭表单。用户必须先关闭提示框，然后再关闭表单。

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

我想关闭没有提示消息的表单。我该怎么做呢?

Answer 1

您应该将olSave值传递给MailItem。关闭方法。

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