エクセルVBAでメールに画像添付

質問

エクセル2010です。
以下のようなVBAでOutlookメールを作成しているのですが、本文の中に画像を添付する方法がわかりません。
下記で言えば strMOJI(0)　と　strMOJI(1) の間に画像を張り付けたいのです。
画像ファイルを添付するのではなく画像として見えるようにしたいのです。
どのように書けばよろしいでしょうか？

Sub TEST001()
　　Dim oApp As Object
　　Dim objMAIL As Object
　　Dim strMOJI(1) As String
　　On Error Resume Next
　　Set oApp = GetObject(, "Outlook.Application")
　　On Error GoTo 0
　　If oApp Is Nothing Then
　　　　Set oApp = CreateObject("Outlook.Application")
　　End If
　　Set objMAIL = oApp.CreateItem(0)
　　strMOJI(0) = "こんにちは！" & vbCrLf & _
　　"テストです。。" & vbCrLf & _
　　"よろしくおねがいします。" & vbCrLf
　　strMOJI(1) = vbCrLf & _
　　"以上です。" & vbCrLf & _
　　"ABC株式会社" & vbCrLf & _
　　"emaxemax"
　　objMAIL.To = ""
　　objMAIL.CC = "xxxx@xxx.co.jp"
　　objMAIL.Subject = "テスト"
　　objMAIL.Body = strMOJI(0) & strMOJI(1)
　　objMAIL.Display
End Sub

回答No.2

watabe007

こんにちは、こちらが参考になりませんか
https://social.msdn.microsoft.com/Forums/ja-JP/b3d716d9-e181-4882-bf11-94886d75270e/exceloutlookpngvba?forum=vbajp

お礼

ありがとうございます。参照先の方法で確かに選択した画像は張り付くのですが、本文中のstrMOJI(0)　と　strMOJI(1) の間に画像を張り付けたいのです。その方法がわかりません。

回答No.1

tsubu-yuki

objMAIL.Attachments.Add "ファイル名フルパス"

で出来ませんかね？

お礼

ありがとうございます。
objMAIL.Attachments.Add "ファイル名フルパス"　では、ファイルとして添付となります。質問にも書いた通り、 strMOJI(0)　と　strMOJI(1) の間に画像を張り付けたいのです。
宜しくお願いします。