首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >如何避免电子邮件自动化的Outlook安全警告- VBA

如何避免电子邮件自动化的Outlook安全警告- VBA
EN

Stack Overflow用户
提问于 2012-08-13 07:17:06
回答 2查看 30.3K关注 0票数 3

我正在尝试通过Outlook 2010从VBA中的Excel 2010发送电子邮件。大多数其他关于SO的答案似乎没有任何使用VBA来完成此操作的方法,Outlook/Excel2010也是如此。

有没有免费的方法?Redemption方法不是一个可行的选择,除非它很容易安装在一个大公司内部的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 = "xxxx@xxxx.edu"
 .Subject = "Demande"
 .HtmlBody = CombinedValueHtml
 .Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

Exit Sub

提前感谢您的帮助。

EN

回答 2

Stack Overflow用户

发布于 2014-08-17 08:06:51

相反,.send使用以下内容:

.Display 'displays outlook email
Application.SendKeys "%s" 'presses send as a send key

注意:使用显示键时要小心,如果在程序运行时移动鼠标并单击,可能会改变所发生的事情。outlook也将在您的屏幕上显示并发送..如果你在做别的事情,这让你很困扰,是的..不是最好的主意

票数 1
EN

Stack Overflow用户

发布于 2017-07-04 19:47:26

如果您不立即发送消息,而只是显示它,让用户进行修改(如果有),并让他们自己按下发送按钮,这是可行的:

即使用

.Display

而不是

.Send
票数 -1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/11926605

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档