尝试Outlook宏中的catch块

Question

我有一段代码将数据发送到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

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

我该怎么做？

Answer 1

VBA中的错误处理基于receiptbox.Text = ""语句。有关详细信息，请查看Error Handling In VBA。

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