Delphi在outlook msg中显示嵌入图像

Question

我正在 Delphi 2010 中阅读 Outlook 消息文件，并在 twebbrowser 中显示消息的 html 正文。但它不显示嵌入的图像。热衷于在 Outlook 消息中显示嵌入图像？我正在使用导入的对象库。

Answer 1

HTML 邮件中的嵌入图像带有 src="cid:xx" 属性，其中 xx 是图像部分的内容 ID（Content-Type: application/octet -stream; Content-Disposition: inline) 在多部分 MIME 消息中。您可以解码该部分并将其保存到临时文件，并修复 img 元素的 src 属性以指向临时图像文件。描述了通过异步可插入协议向浏览器“提供”图像的替代方法此处。

Answer 2

您可以使用 IHTMLDocument2 接口来为您完成这项工作：
（请参阅：http://k210.org/delphi/internet/23/ - 创建 IHTMLDocument2运行时）

(note: msg = the mail message)

var
   slImages : TStringList;
   ADoc     : IHTMLDocument2;
begin
   slImages := TStringList.create;
   try
      ADoc  := CreateAndLoadIHTMLdoc2AtRuntime(sBody);
      sBody := ConvertHTMLToHTMLWithEmbeddedImages(Adoc, slImages);

      if (slImages.count=0) then
         msg.HTMLBody:= sBody
      else // add attachments + set cid's in this routine   
         SetupEmbeddedImages(msg, sBody, slImages);

   finally
      freeandNil(slImages);
   end;
end;