当我使用vba发送电子邮件时,电子邮件已成功发送,但未显示嵌入式图像。
这是我的代码:
Dim newMail As CDO.Message
Dim mailConfiguration As CDO.Configuration
Dim fields As Variant
Dim msConfigURL As String
Set newMail = New CDO.Message
Set mailConfiguration = New CDO.Configuration
mailConfiguration.Load -1
Set fields = mailConfiguration.fields
msConfigURL = "http://schemas.microsoft.com/cdo/configuration"
With fields
.Item(msConfigURL & "/smtpusessl") = True
.Item(msConfigURL & "/smtpauthenticate") = 1
.Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
.Item(msConfigURL & "/smtpserverport") = 465
.Item(msConfigURL & "/sendusing") = 2
.Item(msConfigURL & "/sendusername") = "from@gmail.com"
.Item(msConfigURL & "/sendpassword") = "****"
.Update
End With
With newMail
.Subject = "Test"
.From = "from@gmail.com"
.To = "to@gmail.com"
.CC = ""
.BCC = ""
.AddAttachment "C:\Moon.jpg", oByValue, 0
.HTMLBody = "<img src='cid:Moon.jpg'" & "width='200' height='200'>"
.Configuration = mailConfiguration
.Send
End With
在此行:
.HTMLBody = "<img src='cid:Moon.jpg'" & "width='200' height='200'>"
也尝试这种方法无济于事:
.HTMLBody = "<img src='C:\Moon.jpg'" & "width='200' height='200'>"
图片在电子邮件中显示如下