我正在尝试使用 VBA 从 Excel 2010 发送 Outlook 电子邮件。
Stack Overflow 上的大多数答案似乎都没有使用 VBA 来避免 Outlook 安全警告的方法,对于 Outlook/Excel 2010 也没有。
有免费的方法吗?这赎回 http://www.dimastr.com/redemption/home.htm这种方法不是一个可行的选择,除非它很容易安装在大公司的 10 台机器上。
我如何发送电子邮件:
Dim emailAddr As String
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "[email protected] /cdn-cgi/l/email-protection"
.Subject = "Demande"
.HtmlBody = CombinedValueHtml
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
Exit Sub
这是部分答案。我将其作为社区 Wiki 答案,希望其他人能够解释我无法完成的最后部分。
这个网页,http://msdn.microsoft.com/en-us/library/office/aa155754(v=office.10).aspx http://msdn.microsoft.com/en-us/library/office/aa155754(v=office.10).aspx,解释了该过程的前三个部分。它写于 1999 年,因此无法完全遵循,因为它指的是旧版本的 Windows 和 Office。
第一步是添加VBA 项目的数字签名到您的 Office 安装,尽管我在共享工具而不是 Office 工具下找到了它。不要犯仅仅添加的错误VBA 项目的数字签名到 Outlook,因为据我发现,这意味着您要卸载 Word、Excel 等。
第二步是运行自认证程序以您自己的名义创建数字证书。
第三步是打开 Outlook 的 VBA 编辑器,选择“工具”,然后选择“数字证书”,然后选择使用您的证书对项目进行签名。
通过这些步骤,您可以抑制 Outlook 包含宏的警告,但这不会抑制宏正在访问电子邮件的警告。要抑制该警告,您需要第四步,即将您的证书放入受信任的根证书颁发机构存储。这个网页http://technet.microsoft.com/en-us/library/cc962065.aspx http://technet.microsoft.com/en-us/library/cc962065.aspx解释了证书颁发机构信任模型,但我无法成功使用微软管理控制台来实现第四步。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)