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

当我们在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

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

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

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

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

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

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

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

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

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