Outlook无法加载模板图像

Question

以下代码：

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

生成如下图像：

我知道为什么会发生这种情况，这是因为图片是链接的而不是嵌入到文件中，但是有什么方法可以解决这个问题吗？

Answer 1

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