[原创]在做Outlook VBA开发时如何禁止OUTLOOK的安全提示

Cappuccin0 · 发表于 2006-11-13 17:11

当我们在VBA作OUTlook开发，在涉及到需要对OUTLOOK里面的数据进行操作（譬如导出邮件、附件等）的时候，就会有如下的安全提示：

虽然运行的时候点一下不算什么，但是如果运行次数多了总是要来这么一下子确实是挺烦的。网上搜了一下大部分都只是提到原理，没有实际的代码例子和需要的文件，所以自己就做了一个上来，如果有人遇到类似问题也能少走点弯路。

具体的原理就不说了，网上搜的到的。只说操作步骤。

首先，去下个Outlook Security Manager，好像VS里面自带的有。不过我自己都只用vbs和autoit而已，所以就把其中需要的部分rip出来了，可以从下面的地址下载到。下载完成后，将里面的文件释放到c:\Program Files\Common Files\Outlook Security Manager\，并注册这两个文件。
http://files.myopera.com/Cappuccin0/blog/Outlook%20Security%20Manager.rar

然后在编程的时候直接照着下面的方法直接调用一次DisablePrompt函数就可以了。这段代码只是向Outlook表明我们的OUTLOOKAPP对象是信任的而已。不影响其他的操作的。

Dim OUTLOOKAPP

Set OUTLOOKAPP = CreateObject("outlook.application")

DisablePrompt(OUTLOOKAPP)

Function DisablePrompt(byref object)
Dim tmp
Set tmp = CreateObject("addinexpress.outlooksecuritymanager")
tmp.ConnectTo(object)
tmp.DisableOOMWarnings = True
tmp.DisableCDOWarnings = True
tmp.DisableSMAPIWarnings = True
End Function

另外还有一个VB例子的动画，差不多的

http://www.add-in-express.com/images/tours/osm-ax-1.swf

ikolo · 发表于 2006-11-15 15:04

这个问题困扰了很久了，不过在connectto的时候总是报错参数不正确~何解！！！

ikolo · 发表于 2006-11-15 15:14

没问题了：）只是一个语法小错误~不过好像另一个DLL没有用到，是会被这个OCX引用吗？

Cappuccin0 · 发表于 2006-11-15 15:36

这个我自己也没测试到底是不是需要{-_-;}～～

完整的包就是包含这两个文件，所以就一并弄出来了(￣︶￣)↗

cx123456 · 发表于 2006-12-30 17:45

非常感谢楼主，在引用时只需要osmax.ocx就可以了，这的确是最完美的解决办法。

aaaaabbbbb · 发表于 2007-1-1 06:41

可以利用JMAIL控件发送邮件，就不会出现提示。

dfg1478 · 发表于 2007-2-1 10:58

谢谢楼主呀，我很少回贴的，实在是忍不住啦，哈哈，谢谢！

dfg1478 · 发表于 2007-2-1 12:46

这个问题困扰了很久了，不过在connectto的时候总是报错参数不正确~何解！！！解决不了呀

hnymx2005 · 发表于 2007-2-14 08:29

调用函数时，在执行到Set tmp = CreateObject("addinexpress.outlooksecuritymanager")后，又加跳咖回到主程序，仍然出现安全提示对话框，怎么办？

还有如何注册这两个文件？

hnymx2005 · 发表于 2007-2-14 13:11

我也碰到了：运行到connectto的时候总是报错参数不正确，怎么办？

[此贴子已经被作者于2007-2-14 14:16:19编辑过]

		自动登录	找回密码
密码			免费注册