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

cuec

成功方法总结：
1.先到28楼下载RAR，解压得到Outlook Security Manager文件夹，然后复制到C:\Program Files\Common Files\
2.用31楼的方法regsvr32 c:\Progra~1\Common~1\Outloo~1\osmax.ocx和regsvr32 c:\Progra~1\Common~1\Outloo~1\secman.dll注册者两个文件
3.在EXCEL VBA新建项目COPY 20楼大大的代码成功实现跳过安全提示！

可是我同样的写法到outlook VBA里面运行到tmp.ConnectTo (object)就提示参数错误？？？

cuec

Sub 提示()
Dim OUTLOOKAPP
Set OUTLOOKAPP = CreateObject("outlook.application")
DisablePrompt (OUTLOOKAPP)
End Sub

Function DisablePrompt(ByRef object)
Dim tmp
Set object = CreateObject("outlook.application")
Set tmp = CreateObject("addinexpress.outlooksecuritymanager")
tmp.ConnectTo (object)
tmp.DisableOOMWarnings = True
tmp.DisableCDOWarnings = True
tmp.DisableSMAPIWarnings = True
End Function
使用这段代码在ExcelVBA里面通过，在outlook VBA里面死活提示参数错误。

cuec

找到原因了，解决方法如下：
Sub 提示()
Dim OUTLOOKAPP
Set OUTLOOKAPP = CreateObject("outlook.application")DisablePrompt ()
'DisablePrompt (OUTLOOKAPP)
End Sub

'Function DisablePrompt(ByRef object) 不需要带参数的函数
Function DisablePrompt()
Dim tmp
'Set object = CreateObject("outlook.application")删除掉这一行
Set tmp = CreateObject("addinexpress.outlooksecuritymanager")
'tmp.ConnectTo (object)删除掉这一行代码即可在outlook里面完美运行。     
tmp.DisableOOMWarnings = True
tmp.DisableCDOWarnings = True
tmp.DisableSMAPIWarnings = True
End Function

闻启学

学习了 看看

jackyzhou888

大侠们，这个要浪费好多时间尝试啊

Function DisablePrompt(ByVal object)
Set Tmp = CreateObject("addinexpress.outlooksecuritymanager")
Tmp.ConnectTo (object)
Tmp.DisableOOMWarnings = True
Tmp.DisableCDOWarnings = True
Tmp.DisableSMAPIWarnings = True
End Function
这个可以通过
因为使用按值传递，并且connectto加括号，不行可以PM，但还是感谢楼主的代码。

个人猜测多数都是因为此问题造成，所以修改了一下，果然如此。
注册问题，
1 优先使用管理员用户注册
2 如果是普通用户，需要在regedit中把localmachine-software-classes添加用户权限
没有管理员用户等于无用
附上附件，一个就够了OSMAX.OCX

闻启学

我来迟了  现在不能下载这个附件  各位高手有无这个附件提供

大树叶子

标记一下，明天再用

leon51

踏破铁鞋,终于找到了

硅谷少年

我是office2007SP3，难道不是在下图这里设置吗？？我目前没有这个提示的。

lcjy11185

outlook发邮件方法