在 Outlook 宏中尝试 catch 块答案

【问题标题】：Try catch block in Outlook Macro在 Outlook 宏中尝试 catch 块
【发布时间】：2020-06-25 07:57:02
【问题描述】：

我有一段代码可以将数据发送到 HTTP 端点

Set xhr = CreateObject("MSXML2.XMLHTTP")
xhr.Open "POST", URL, False
xhr.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

Data = "volumeDate=" & URLEncode(VolumeDate) & "&" & "volume=" & URLEncode(Volume)
xhr.Send Data

如果它没有连接到 URL，或者它返回的不是 200，我想要一个 try catch 块来处理

我该怎么做？

【问题讨论】：

Try/Catch 在 VBA 中不可用。 Here's a very similar question.
VBA 有错误处理，和/或您可以检查响应的status。 VBA 不是 VB.Net 或其他语言，因此您需要在 VBA 上进行一些谷歌搜索。

标签： vba outlook

【解决方案1】：

VBA 中的错误处理基于On Error 语句。请查看Error Handling In VBA 了解更多信息。

我建议创建一个 COM 加载项而不是 VBA 宏。您将能够轻松检查错误代码并优雅地处理异常。请参阅Walkthrough: Creating Your First VSTO Add-In for Outlook 快速入门。

【讨论】：