有没有办法阻止在Outlook自动解决？
我通过自动化excel发送电子邮件发送电子邮件，并设法绕过使用sendkeys有关病毒的烦人的警告消息（检查员在调用sendkeys之前激活）。
现在我有时会收到有关允许访问联系人的消息。 我有收件人的电子邮件地址，不需要访问联系人，但Outlook自动parsing踢，然后popup一个允许访问联系人出现。 这没有5秒延迟，但仍然阻止系统完全自动化。 我试图避免使用第三方工具，如赎回，我想知道如果有人已经find一种方法来closuresautoresolve。
我已阅读其他网站上的post，build议closures自动填充function并自动进行名称检查，但outlook在发送邮件时仍会尝试parsing地址。
任何指针会很乐意收到。
编辑24/08/13
我听说，如果您使用的是Outlook 2007及更高版本，并且安装了Microsoft认可的病毒扫描程序的正确安装的系统，您将看不到该消息，但我无法控制用户计算机上的程序安装。
我试过的代码包括
Function Mailit(byval sMessageTo as String, byval sSamplerCenter as String, byval sFileSpec as String) Dim olApp As outlook.Application Dim objMail As Outlook.MailItem Dim blnOLOpen As Boolean On Error Resume Next Set olApp = GetObject(, "Outlook.Application") blnOLOpen = True On Error Goto 0 If olApp Is Nothing Then Set olApp = CreateObject("Outlook.Application") blnOLOpen = False End If Set objMail = olApp.CreateItem(olMailItem) With objMail .To = sMessageTo .Subject = sSampleCenter .Attachments.Add sFileSpec .Send End With 这会导致有关病毒的警告消息，并导致用户可以select发送邮件之前等待5秒钟。 我使用的sendkeys方法与With objMail相同，但是执行以下操作：
Dim myInspector As Outlook.Inspector With objMail .To = MessageTo .Subject = SampleCenter .Attachments.Add FileSpec .Display End With Set myInspector = objMail.GetInspector myInspector.Activate SendKeys "%s", True
我也有一些代码来检查已发送文件夹中的项目数量是否增加，如果没有，则等待/调用检查器和sendkeys函数。 此方法不会导致警告，但通常会产生一个对话框，询问用户是否希望允许访问其联系人。
在Outlook中：转到选项 – >电子邮件，并禁用“自动parsing名称”checkbox。