使用VBScript发送包含嵌入图像的Outlook电子邮件

时间:2016-06-13 20:09:54

标签: email vbscript outlook office365

我已经尝试了许多建议在Outlook电子邮件中包含嵌入图像的VBScripts,但到目前为止还没有一个对我有效。

我使用以下VBScript打开Outlook并发送电子邮件。这样可以,但不是我想要的。

该脚本包含一些用于格式化电子邮件内容的HTML,还包括发送附件的可能性。

我想要做的是将图像作为嵌入图像发送到电子邮件正文中。我怎样才能做到这一点?

这是脚本:

Set MyApp = CreateObject("Outlook.Application")
Set MyItem = MyApp.CreateItem(0)

With MyItem
.To = "email1@email.com;email2@email.com"
.CC = "email3@email.com"
.Subject = "Your Subject here!"
.HTMLBody = "<HTML><BODY><FONT face=Calibri color=#000000 size=3>Insert your text here!<br><br><img src='http://image001.png' alt=''>&nbsp;<img src='http://image002.png' alt=''></FONT></BODY></HTML>"
.ReadReceiptRequested = False
.Attachments.Add("http://attachment1.png")
.Attachments.Add("http://attachment2.jpg") 
End With
MyItem.Send 

注意:不是VBA,而是VBScript。 注2:这与Sending Outlook Email with embedded image using VBS中的代码不同,本文中提供的代码解决方案也不起作用。

0 个答案:

没有答案