ちょっと調べて作ってみました。
Wordのエディタを利用するみたいですね。
詳しいことはわからないので、これ以上のことはコードを参考に調べてみてください。
VBA
1Sub test()
2
3 Dim objOutlook As Outlook.Application
4 Dim objMail As Outlook.MailItem
5
6 Set objOutlook = New Outlook.Application
7 Set objMail = objOutlook.CreateItem(olMailItem)
8
9 objMail.subject = "画像送信テスト"
10 objMail.BodyFormat = olFormatHTML
11 With objMail.GetInspector.WordEditor.Windows(1).Selection
12 .TypeText "画像です。" & vbCrLf
13 .InlineShapes.AddPicture "c:\hoge\hoge.jpg", False, True
14 .TypeText "以上です。" & vbCrLf
15 End With
16 objMail.Display
17 Set objOutlook = Nothing
18
19End Sub
20