升级到Outlook for Office365后在宏中接收运行时错误287

Question

我有一个Word宏，它可以自动从邮件合并发送电子邮件。它最近已停止工作，唯一的变化似乎是从Outlook / Word 2016升级到Office365。

With mMessage
  .SentOnBehalfOfName = "foo@email.com"
  .Subject = "bar"
  asentto = Split(strSendTo, ";")

 For iCount = LBound(asentto) To UBound(asentto)
    Set oRcpt = .Recipients.Add(asentto(iCount))
 Next

添加收件人失败，出现287错误。在调试期间，在mMessage上添加监视可以正常工作，但是尝试监视mMessage.Recipients将返回相同的错误。这使我认为Message对象很好，但访问收件人本身失败了，而不仅仅是Add方法失败了。

我尝试在Outlook中验证我的安全设置，据我所知它们似乎正确。

更改为收件人。也没有帮助。

我的参考文献包括Microsoft Outlook 16.0对象库。我想知道是否可能需要更新的版本，但是我找不到任何这样的东西。