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

试试这个

工具 - ＆gt;宏 - ＆gt;安全性 - ＆gt;宏安全性 - ＆gt;无安全性工具 - ＆gt;宏 - ＆gt;安全 - ＆gt;程序化访问

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

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)

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

3 个答案: