Sub SendMail()
Dim objOL As Object
Dim itmNewMail As Object
'引用Microsoft Outlook 物件模型
Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.Subject = "chijanzen Mail Test" '主旨
.Body = Application.UserName & "發送郵件測試2222" '本文
.To = "171262953@qq.com" '收件者
.Attachments.Add "C:\PDOS.DEF", olByValue, 1, "4th Quarter 1996 Results Chart"
.Display '啟動視窗
End With
On Error GoTo continue
SendEmail:
AppActivate itmNewMail
DoEvents
SendKeys "%s", Wait:=True
DoEvents
AppActivate itmNewMail
GoTo SendEmail '发送不成功誓不罢休
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing
End Sub
再次测试中发现,窗口标题为中文时,AppActivate命令不能执行。将AppActivate命令改为Display方法,可解决此问题,即将AppActivate itmNewMail改为itmNewMail.display。
原因
如果某个程序试图访问您存储在 Outlook 通讯簿中的联系人信息,或试图以您的名义发送电子邮件,则会出现这些安全警告。默认情况下,只有 COM 加载项 (COM 加载项:通过添加自定义命令和指定的功能来扩展 Microsoft Office 程序的功能的补充程序。COM 加载项可在一个或多个 Office 程序中运行。COM 加载项使用文件扩展名 .dll 或 .exe。)是受信任的程序。您的电子邮件管理员可能已将特定的加载项添加到“受信任加载项”列表中,以只允许加载这些加载项。任何其他程序均不受信任,而且,由于可能存在着程序不怀好意且设计为使用 Outlook 来传播病毒的风险,因此会出现安全警告。在实施此安全措施之前,诸如 Melissa 和 ILOVEYOU 的病毒能够访问 Outlook,并通过向“联系人”中列出的人员发送邮件来传播。
自动启动的程序 程序可能自动启动。例如,程序试图通过在 Outlook 对象模型中使用 Item.Send 方法来自动发送电子邮件。
您启动的程序 也可能是您启动了程序。例如,您使用一个程序使 PDA 或移动设备与 Outlook 数据同步。
返回页首
解决方案
解决此安全警告问题
如果您不希望某个程序访问 Outlook,或者不确定正试图访问 Outlook 的程序是否可信任,则单击“拒绝”。
如果您单击了某个命令或启动了某个程序,并知道它们将要访问 Outlook 数据或使用 Outlook 发送电子邮件,而且认为该程序可信任,则执行下列操作之一:
单击“允许”。
如果系统提示您允许对收件人信息的访问,则选中“允许访问”复选框,单击您允许进行访问的时间量,然后单击“允许”。
注释 您应选择供其他程序访问 Outlook 数据的最短必需时间量。如果程序需要更多时间,安全警告将会再次出现。
防病毒软件必须与 Microsoft Windows XP Service Pack 2 (SP2) 兼容。请咨询您的防病毒软件供应商。
防病毒软件必须定期更新。大多数防病毒程序均能够在线自动更新。请咨询您的防病毒软件供应商。
将防病毒软件配置为与其他应用程序共享其更新状态。通常,防病毒程序默认情况下会与其他应用程序共享其更新状态。要检查更新状态设置,请查看防病毒程序的首选项或选项,或咨询您的防病毒软件供应商。
注释
Office Outlook 2007 依靠 Windows 安全中心来检查防病毒程序是否存在和更新其状态。
如果防病毒软件的订阅已到期或已经不起作用,则在程序试图访问 Outlook 时,可能会再次出现安全警告。
如果您的计算机由组织中的 Microsoft Exchange 管理员或 Microsoft Windows Active Directory 域服务管理员进行管理,并且管理员更改了默认的设置且阻止用户进行更改,则用于自定义“编程访问”安全设置的选项将被禁用。
如果您的计算机不是由 Microsoft Exchange 管理员或 Microsoft Windows Active Directory 域服务管理员进行管理,并且您是计算机的 Windows 管理员,则可以更改“编程访问”安全设置。但是,不建议这样做。作者: ui 时间: 2008-9-21 09:57
具体的原理就不说了,网上搜的到的。只说操作步骤。