Vba Outlook无法加载模板图像

以下代码：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim sName As String
  Dim otlQuote As Outlook.MailItem

  If InStr(Item.Subject, "SOQ") <> 0 Then
    sName = Item.Body
    Set otlQuote = Application.CreateItemFromTemplate(Environ("AppData") & "\Microsoft\Templates\Outlook Templates\Quotations.oft")
    Item.HTMLBody = otlQuote.HTMLBody
    Item.HTMLBody = Replace(Item.HTMLBody, "Good day ", "Good day " & sName)
  End If
End Sub

私有子应用程序\u ItemSend（ByVal项作为对象，取消作为布尔值）
像绳子一样模糊
将otlQuote设置为Outlook.MailItem
如果仪表（项目主题，“SOQ”）为0，则
sName=Item.Body
设置otlQuote=Application.CreateItemFromTemplate（环境（“AppData”）和“\Microsoft\Templates\Outlook Templates\Quotes.oft”）
Item.HTMLBody=otlQuote.HTMLBody
Item.HTMLBody=替换（Item.HTMLBody，“Good day”、“Good day”和sName）
如果结束
端接头

生成如下所示的图像：

---

我知道为什么会发生这种情况，这是因为图像是链接的，没有嵌入到文件中，但有没有办法解决这个问题？

您只是复制邮件正文，而不是复制附件（可能包含图像）

您只复制邮件正文，而不复制附件（可能包含图像）