Question

我想在Outlook 2010中创建一个VBA脚本，当用户按下发送按钮时会出现一个对话框，并询问他们答案是“是或否”的问题。如果他们回答是，则电子邮件正常发送，但如果答案为否则电子邮件不会发送，并且会将其发送回电子邮件进行更改。

我目前正在使用一个脚本（借用:)），见下面但它只给了我一个OK按钮，即使我点击红十字仍然发送电子邮件 - 任何帮助都会非常非常感谢

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
EmailSend = MsgBox("Is Your Recipient Correct?")
End Sub

提前致谢

Answer 1

在“ThisOutlookSession”模块中，您可以使用以下内容：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If MsgBox("Yes or no?", vbYesNo) = vbNo Then Cancel = True
End Sub

它会提示“是/否”消息框（因为vbYesNo参数），然后根据对话框的响应为“取消”提供一个True布尔值。此外，至少在Windows 7上，使用yes / no提示时禁用红色“x”。但如果没有，那么我会做这样的事情：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Cancel = True
    If MsgBox("Yes or no?", vbYesNo) = vbNo Then Cancel = True Else Cancel = False
End Sub

因此，它总是取消，除非他们具体说“是”。

在发送时创建VBA Outlook 2010脚本以提示答案

1 个答案: