Question

我有一个程序，可以通过Outlook使用“.HTMLBody = ...”成功发送电子邮件来自定义正文。但是，我尝试添加这些行，以便将工作表中名为“logo”的图像添加到邮件正文中：

With Sheets("Mail - GREF COMMITTEE AGENDA")
    .Shapes("logo").Export "C:\Users\Public\Pictures\logo.png"
End With

...

.HTMLBody = bodyEn & bodyFR & "< img src='C:\Users\Public\Pictures\logo.png'>"

错误是：438 Object不支持此方法或属性。我认为有一个语法错误。但是我看不到它。

提前谢谢。

更新：将图像嵌入邮件的任何方法都很有帮助。我可以手动导出图像。

Answer 1

使用Word的InlineShapes.AddPicture方法

该程序在Working with Item Bodies中描述。

插入图片：

strFile = "C:\Pictures\logo.gif"
Set objInsp = objMsg.GetInspector
Set objDoc = objInsp.WordEditor
Set objSel = objDoc.Windows(1).Selection
If objMsg.BodyFormat <> olFormatPlain Then
    objSel.InlineShapes.AddPicture strFile, False, True
End If

VBA：在电子邮件正文中嵌入图像

1 个答案: