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

inadequate

Set OUTLOOKAPP = CreateObject("outlook.application")
无效的外部过程，咋办呢

inadequate

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

怎么注册，不懂，我还以为直接引用就成了。能教教我吗？

[ 本帖最后由 inadequate 于 2010-12-24 15:22 编辑 ]

xmyjk

学习了，谢谢分享。

luzhengyi

这个问题也捆饶了我很就了

jenselvcn

1. 下载控件并注册。 Regsvr32 C:\WINNT\system32\osmax.ocx
2. 编码如下。
Private Sub CommandButton1_Click()
Call SMAIL("jianwu.zhang@siemens.com", "only check", "check", "d:\temp\aa.txt")
End Sub
Public Function SMAIL(TV, Subj, BOD, Att)
On Error Resume Next
Dim rowCount, endRowNo
Dim objOutlook As New Outlook.Application
Dim objMail As mailitem

'´´½¨objOutlookΪOutlookÓ¦ÓóÌÐò¶ÔÏó
Set objOutlook = New Outlook.Application
DisablePrompt objOutlook
'´´½¨objMailΪһ¸öÓʼþ¶ÔÏó
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
    .To = TV 'ÉèÖÃÊÕ¼þÈ˵ØÖ·
    .Subject = Subj     '"ÓʼþÖ÷Ìâ"
    .Body = BOD
    .Attachments.Add Att   'ÉèÖø½¼þ
    .Send
  End With

  'Ïú»ÙobjMail¶ÔÏó
  Set objMail = Nothing
  'Ïú»ÙobjOutlook¶ÔÏó
  Set objOutlook = Nothing
End Function


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
然后就可以了。

westmood

我也需要，谢谢

distancia

一直不知道如何解决这个东西···

distancia

还是有点麻烦··

runaduck

记下了，谢谢楼主，问题困扰了很久

coolraywang

提供的“Outlook Security Manager”不能下载，可惜。