我正在尝试通过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
提前感谢您的帮助。
发布于 2014-08-17 08:06:51
相反,.send
使用以下内容:
.Display 'displays outlook email
Application.SendKeys "%s" 'presses send as a send key
注意:使用显示键时要小心,如果在程序运行时移动鼠标并单击,可能会改变所发生的事情。outlook也将在您的屏幕上显示并发送..如果你在做别的事情,这让你很困扰,是的..不是最好的主意
发布于 2017-07-04 19:47:26
如果您不立即发送消息,而只是显示它,让用户进行修改(如果有),并让他们自己按下发送按钮,这是可行的:
即使用
.Display
而不是
.Send
https://stackoverflow.com/questions/11926605
复制相似问题