下面是去掉outlook警告框的一个函数代码,引用了Outlook Security Manager,dll的时候,总提示类型不正确,搞不明白。忘指教!
''''去掉提示框
Public Function ClearSecurityProc(ByRef OutLookApp As Variant) As Boolean
On Error GoTo errhandle
' Set OutLookApp = objOA
tmp.ConnectTo OutLookApp
tmp.DisableOOMWarnings = True
tmp.DisableCDOWarnings = True
tmp.DisableSMAPIWarnings = True
ClearSecurityProc = True
Exit Function
errhandle:
ClearSecurityProc = False
MsgBox err.Description
End Function
''''去掉提示框
Public Function ClearSecurityProc(ByRef OutLookApp As Variant) As Boolean
On Error GoTo errhandle
' Set OutLookApp = objOA
tmp.ConnectTo OutLookApp
tmp.DisableOOMWarnings = True
tmp.DisableCDOWarnings = True
tmp.DisableSMAPIWarnings = True
ClearSecurityProc = True
Exit Function
errhandle:
ClearSecurityProc = False
MsgBox err.Description
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货