从gmail发送电子邮件，嵌入图片未显示

Question

当我使用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'>"

图片在电子邮件中显示如下