访问VBA：为什么'；我的图片没有嵌入到HTML电子邮件中吗？

我正在使用Microsoft Access发送电子邮件，并尝试在电子邮件中插入图像，以便有签名

我知道收件人要想看到该图像，他们必须能够访问该图像，因此，由于该图像位于我的本地硬盘上，我正试图将其嵌入电子邮件正文中

我关注了以下链接：

要获得以下代码：

Dim MyOutlook As Object
Dim MyMessage As Object
Set MyOutlook = CreateObject("Outlook.Application")
Set MyMessage = MyOutlook.CreateItem(0)

Dim colAttach As Outlook.Attachments
Dim oAttach As Outlook.Attachment

Set colAttach = MyMessage.Attachments
Set oAttach = colAttach.Add("C:\user1\Documents\signature.jpg")

With MyMessage

    Dim Greeting As String
    If Time >= #12:00:00 PM# Then
        Greeting = "Afternoon,"
    Else
        Greeting = "Morning,"
    End If

    .To = strTo
    .Subject = strSubject
    .HTMLBody = "<font face=Arial><p>" & "Good " + Greeting + "</p>"
    .HTMLBody = .HTMLBody + "<p>" & "Please find attached your latest document." & "</p>"
    .HTMLBody = .HTMLBody + "<p>" & "If you have any questions...." & "</p>"
    .HTMLBody = .HTMLBody + "<p>" & "Kind Regards" & "</p>"
    .HTMLBody = .HTMLBody + "<p>" & "..." & "</p></font>"
    .HTMLBody = .HTMLBody + "<IMG alt='' hspace=0 src='cid:signature.jpg' align=baseline border=0>"

    strAttachments = "2"
     If strAttachments <> "" Then
         For i = 0 To intNrAttch - 1
            .Attachments.Add strFiles(i), 1, intPos
         Next i
     End If
    .Send
End With

Dim MyOutlook As Object
将MyMessage设置为对象
设置MyOutlook=CreateObject（“Outlook.Application”）
设置MyMessage=MyOutlook.CreateItem（0）
将文件附加为Outlook。附件
与Outlook.Attachment相同的文件
Set colAttach=MyMessage.Attachments
设置oAttach=colAttach.Add（“C:\user1\Documents\signature.jpg”）
用我的信息
朦胧的问候如弦
如果时间>下午12:00:00，则
问候语=“下午，”
其他的
问候语=“早上好，”
如果结束
.To=strTo
.Subject=strSubject
.HTMLBody=“”和“Good”+问候语+”
“
.HTMLBody=.HTMLBody+“”和“请查看随附的最新文档。”&“
”
.HTMLBody=.HTMLBody+“”和“如果您有任何问题…”和“
”
.HTMLBody=.HTMLBody+“”和“亲切问候”和“
”
.HTMLBody=.HTMLBody+“”和“…”和“
”
.HTMLBody=.HTMLBody+“”
strAttachments=“2”
如果是“”那么
对于i=0至intNrAttch-1
.附件.添加标准文件（i），1，intPos
接下来我
如果结束
.发送
以

但出于某种原因，它会将图像附加到电子邮件中，但不会显示它：

有人能帮忙吗

---

可能值得注意的是，我可以用几乎相同的代码从Excel发送一封带有图像的电子邮件，这是正常工作的，因此我认为存在访问权限问题，导致代码无法正常工作。

我遇到了类似的问题。我的“修复”是在

.Send

之前包含一个

.Display

，我遇到了类似的问题。我的“修复”是在

.Send

之前添加一个

.Display

，我测试了您的代码，它与Access 2013和Outlook 2010完美配合。好的，我从strAttachments=“2”和for循环中注释了最后一部分。用另一张图片试试看。也许它“坏了”，我测试了你的代码，它在Access 2013和Outlook 2010中运行得很好。好的，我从strAttachments=“2”和for循环中注释了最后一部分。用另一张图片试试看。也许它“坏了”