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

Question

我正在关注此页面中的代码：How to create a script for the Rules Wizard in 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提供代码。

Answer 1

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

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

Answer 2

试试这个

工具 - >宏 - >安全 - >宏安全 - >无安全工具 - >宏 - >安全 - >程序访问

然后选择从不警告我可疑活动。

Answer 3

我在某个地方找到了它并且它有效：

Sub SaveAttachment(myItem As Outlook.MailItem)

'删除电子邮件的附件并将其保存在'本地文件夹中。如果保存中有任何错误，则“附件”保留在原位。

Dim myAttachments As Object
Dim myOrt As String
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
Dim fs As Object

'我们需要从应用程序'对象获取邮件项对象以避免警告消息

strID = myItem.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set oMail = olNS.GetItemFromID(strID)