エクセルVBAでメール本文中に画像を挿入する方法

質問

エクセルVBAを使ってアウトルックメールにてメール送信するマクロを作っています。

本文中に画像を挿入する方法をググってますがなかなか出てきません。添付ファイルではなく、本文と本文の間に画像を差し込むイメージです。

メール送信先、本文は同じエクセルのContentsシート、画像はPictシートに格納しています。

Option Explicit

Sub SendMail_HTML()

Dim contents As Worksheet
Dim maillist As Worksheet
Dim mailaddress As String, honbun1 As String, honbun2 As String, mailbody As String, strstyle As String
Dim i As Long
Set contents = ThisWorkbook.Worksheets("Contents")
Set maillist = ThisWorkbook.Worksheets("List")

' Picture
Dim pict_sheet As Worksheet
Set pict_sheet = ThisWorkbook.Worksheets("pict_sheet")

'プログラム3｜Outlookアプリケーションを起動
Dim outlookObj As Outlook.Application
Dim myMail As Outlook.MailItem
Set outlookObj = CreateObject("Outlook.Application")

For i = 2 To 3
' Email and name setting from Content Sheet
client_name = maillist.Range("B" & i).Value
mailaddress = maillist.Range("C" & i).Value

Set myMail = outlookObj.CreateItem(olMailItem)

'Mail content setting
myMail.BodyFormat = 2
myMail.To = mailaddress
myMail.Subject = contents.Range("B3").Value

honbun1 = Replace(contents.Range("B6").Value, vbLf, "<br>")

Dim insp As Outlook.Inspector
Set insp = myMail.GetInspector
If insp.EditorType = olEditorWord Then
Dim doc As Word.Document 'Microsoft Wordを参照
Set doc = insp.WordEditor
Dim wrange As Word.Range
Set wrange = doc.Range(0, 0) 'カーソルを先頭に

'wrange.Text = honbun1

wrange.MoveEnd Word.WdUnits.wdStory 'カーソルを最後に
wrange.Start = wrange.End

pict_sheet.Shapes("pict1").Copy 'Pict sheetに入っているpict1を指定
wrange.Paste

End If

honbun2 = Replace(contents.Range("B8").Value, vbLf, "<br>")

myMail.HTMLBody = honbun1 & hoonbun2

myMail.Display

'Send mail
'mymail.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない)
myMail.Save '下書き保存
myMail.Send
maillist.Range("D" & i).Value = "Sent:" & Now()

' Release object
Set myMail = Nothing

Next

'プログラム12｜オブジェクト解放
Set myMail = Nothing
Set outlookObj = Nothing

End Sub

回答No.2

kkkkkm · ベストアンサー

エクセルでBase64エンコードしてメールデータにつけるのは難しいような気もしますので
OutlookのVBAでエクセルを操作する方法はいかがでしょう。
【Outlook VBA】メール本文にExcelの画像を挿入し作成/送信する方法！
http://extan.jp/?p=6803

回答No.3

chie65535

メールは、拡張仕様として「マルチパートメール」がサポートされています。

マルチパートとは、本文を複数のパートに分け、それぞれのパートに「バイナリ」や「テキスト」を置く事が出来ます。

補足にある
Content-Type: application/octet-stream;
は、「このパートがバイナリデータである」と指示しています。

name="image001.emz"
は「このパートの名前」を指定しています。

Content-Description: image001.emz
は、このパートの説明です。

Content-Disposition: inline;
は、このパートをインラインにする（文字の中に配置する）という指定です。

filename="image001.emz";
は、このパートを保存する際のファイル名を指定しています

Content-Transfer-Encoding: base64
というのは「このパートは、バイナリを『base64』という変換方法でテキスト化しています」という指示です。

このようにマルチパートで記述すると「テキスト、画像、テキスト」のように、本文の途中に画像などを置く（厳密には、画像含めて全てが本文、ですが）事が可能です。

なお、途中に画像を入れる場合でも、添付する場合でも「すべてテキストに変換して送信しないとならない」ので、送信前に「自分でbase64などでテキストに変換してメール本文に書き込む」必要があります。

つまり「バイナリデータを（無変換で）メールに挿入出来ない」のです（１つ前の回答の「バイナリは入れられない」は、そう言う意味です）

「マルチパートメールの作り方」や「base64のエンコード方法」でググると、貴方のやりたい事の答えが出てきます。

回答No.1

chie65535

メールプロトコルで送受信出来る物は、仕様上「テキストだけ」です。

「添付すれば画像や他の物も」と思うかも知れませんが、実は「バイナリデータをテキストデータ（文字列）に変換して、テキストとして送っている」のです。

なので、HTML形式のメールであっても「本文中に画像などのバイナリデータを挿入する事は不可能」なのです。

しかし「本文中に画像が挿入されているメールを良く見る」と思います。

あれは「バイナリデータを挿入している」のではなく「HTMLのIMGタグを挿入して、どこかのホームページに置いてある画像を引用しているだけ」なのです。

画像を表示するIMGタグも、実態は「画像のURLだけが書かれたテキスト（文字列）」なので、本文中の何処にでも設置できます。

そういう訳で「バイナリデータを直に埋め込む事は不可能」なので、当然、ググっても出てきません。

添付した（テキスト化されてる）画像にアンカーを付けて、そのアンカーを参照するようにURLで指定したIMGタグを本文に埋める事は可能ですが、最近は、そういうメールはセキュリティソフトで非表示にされてしまうので、お勧めできません。

補足

メールプロトコルに詳しいわけではありませんが、ウェブ上でどこにも置いていない画像をメール本文中に挿入して送ることが出来ています（例：画面のスクリーンショット等）。

実際送ってみた後、メールのソースを確認すると、画像の部分にこのように出ています。画像をURLで指定しているということはありません。

Content-Type: application/octet-stream; name="image001.emz"
Content-Description: image001.emz
Content-Disposition: inline; filename="image001.emz"; size=7445; creation-date="Thu, 17 Feb 2022 08:30:26 GMT"; modification-date="Thu, 17 Feb 2022 08:30:26 GMT"
Content-ID: <image001.emz@01D8241B.76FA9440>
Content-Transfer-Encoding: base64

そのため、本文中に画像を埋め込むことは可能だと考えています。