禁止对话框警告程序正在尝试访问我的邮件

我正在关注此页面中的代码:如何在Outlook中为规则向导创建脚本

这就是我所拥有的:

Public Sub GetMails(Item As Outlook.MailItem)

    MsgBox "Mail message arrived: " & Item.SenderEmailAddress
    MsgBox "Mail message arrived: " & Item.Subject
    MsgBox "Mail message arrived: " & Item.Body

End Sub

我设置了一个规则来运行这个宏.每次运行此脚本时,都会出现一个关于程序如何尝试访问我的邮件的对话框.

如何使用VBA摆脱这种情况,或者Outlook中是否有任何配置选项,以便不显示？

我搜索了这个,发现一些网站为C#和VB.net提供代码,但没有为VBA提供代码.

添加此项是为了防止恶意脚本将Outlook转变为群发邮件或其他不良内容.

您可以在工作站上关闭此功能,但如果要将应用程序分发给其他用户,则只能通过创建自己的Outlook Addin或使用Redemption等第三方工具来解决此问题.