通过Excel-Vba在Outlook邮件正文和签名中添加图像

时间:2017-06-23 10:15:46

标签: excel vba email outlook

应该从我的结尾发送的内容的图像。

Image of the content that is supposed to be sent from my end.我用HTML格式编码,在邮件正文中添加图像,在签名函数中添加另一个图像。但问题是它完全显示在我的最后,因为我是电子邮件的发送者,但反映为红十字标记,因为他无法在指定路径找到图像。任何人都可以帮助我,为什么会发生这种情况以及如何纠正它。我附上了我在另一端收到的图片的代码和截图。

收到错误电子邮件

Error email received

.HTMLBody = "<font face=""calibri"" style=""font-size:11pt;""> Dear Team," & 
            "<br> <br>" & _
            "<font face=""calibri"" style=""font-size:11pt;""> Please find 
              the attached sheet for Raw Cell Outage of " & Format$(Date, 
              "dd-mmm-yyyy") & _
        "<br><br>" & _
        "<font face=""calibri"" style=""font-size:14pt;""><b> This is based 
           on Raw Outage without validation at field end.<b>  " & _
        "<br><br>" & _
        ***"<img src='C:\Cell Outage Report MACRO\Output Data\AST_img.png'>" &_***
        "<br><br>" & _
        "<font face=""calibri"" style=""font-size:12pt;""><b><u>Thanks & 
         Regards,<b><u>" & _
        "<br>" & _
        "<font face=""calibri"" style=""font-size:15pt;""><b>Team OMC<b>" &_
        "<br>" & _
        "<font face=""calibri"" style=""font-size:15pt;""><b>B&JH<b>" & _
        "<br>" & _
        "<font face=""calibri"" style=""font-size:12pt;""><b>Contact No:- 
           0000000000<b>" & _
        "<br>" & _
        ***"<img src='C:\Cell Outage Report MACRO\Sign_logo.png'>" & _***
 [Image of the mail received at the other end][1] .HTMLBody & "</font>"   ' Adds default signature

1 个答案:

答案 0 :(得分:0)

您需要使用Attachments.Add Method将图像附加到邮件中。 这可以以隐藏的方式完成,因此它不被视为附件,但它仍然可以以HTML类型方式引用以在正文中显示图片。使用property accessor设置此属性。 Here是一篇包含良好示例代码的SO文章。

另一种选择是通过显示/保存邮件对象来创建邮件模板(文本,插入图像等),因为Outlook将为您完成所有工作(隐藏,HTML引用等)。只需复制该邮件,然后根据您的需要进行调整。