VBA：メールの本文に画像を埋め込む

Question

私は、本体をカスタマイズするために、 ".HTMLBody = ..."を使ってOutlookから電子メールを送信できるプログラムを持っています。しかし、私は私がメール本文にワークシートに「ロゴ」という名前の画像を追加するために、これらの行を追加しようとしました：

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オブジェクトは、このメソッドやプロパティをサポートしていません。私は構文エラーがあると思う。しかし、私はそれを見ることはできません。

ありがとうございます。

更新：メールに画像を埋め込む方法はありません。私は手動でイメージをエクスポートすることができます。

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