excel - 有没有办法阻止 outlook 中的自动解析？

Question

我正在通过 excel 中的 outlook 自动化发送电子邮件，并设法绕过使用 sendkeys 的讨厌的病毒警告消息(在调用 sendkeys 之前激活检查器)。

现在我有时会收到有关允许访问联系人的消息。我有收件人的电子邮件地址，不需要访问联系人，但 outlook 自动解析启动，然后出现一个关于允许访问联系人的弹出窗口。这没有 5 秒的延迟，但它仍然阻止系统完全自动化。我试图避免使用像赎回这样的第三方工具，我想知道是否有人找到了关闭自动解析的方法。

我读过其他网站上建议关闭自动完成和自动名称检查的帖子，但发送邮件时 Outlook 仍会尝试解析地址。

我们很乐意收到任何指示。

编辑 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

这会导致有关病毒的警告消息，并导致用户在选择发送邮件之前等待 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 函数。此方法不会导致出现警告，但通常会出现一个对话框，询问用户是否希望允许访问其联系人。

Answer 1

在 Outlook 中:转到“选项”->“电子邮件”并禁用“自动解析名称”复选框。