函数调用后，将.gif文件embedded到电子邮件正文中

我正试图在邮件正文中embedded.gif文件。

但是我使用RangetoHTML函数将我的Excel工作表的范围粘贴到电子邮件正文中。

我想embedded邮件正文范围下的.gif文件，而不是添加MyGif.gif作为附件。

以下是代码片段：

 Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) dt = Format(CStr(Now), "yyyy_mm_dd") With Dest .SaveAs Destination & "MyFile" & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "[e-mail]" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Attachments.Add MyGif .HTMLBody = "<br><B>My HTML Body</B><br>" _ & RangetoHTML(Source) .Send End With On Error GoTo 0 .Close savechanges:=False End With 

Answer 1

要在邮件正文中embedded一个Gif文件，请尝试以下操作，

  With olMail .To = "[e-mail]" .Subject = "This is the Subject line" .Attachments.Add "C:\Temp\MyGif.gif" .HTMLBody = "<br><B>My HTML Body</B><br>" _ & RangetoHTML(Source) _ & .HTMLBody & "<br>Here is Your Embedded GIF File:<br>" _ & "<img src='MyGif.gif'><br>" ' .Send 'or use .Display .Display End With