【上級編】HTMLメールに魔法をかける：CID参照で「インライン画像」を完璧に埋め込む技術
こんにちは。自動化の世界へようこそ。
普段、皆さんが何気なく送っているメール。もしそこに、「ただの添付ファイル」ではなく「本文の一部として溶け込む画像」を配置できたら、業務のクオリティは一段階跳ね上がります。
今回は、Outlook VBAを使い倒すエンジニアにとって避けては通れない「CID（Content-ID）を用いたインライン画像埋め込み」の極意を伝授します。
—
なぜ「ただの添付」ではダメなのか？
初学者の多くは、`Attachments.Add` メソッドでファイルを添付して満足します。しかし、これでは相手に「ダウンロードして開く」という手間を強いることになります。
プロフェッショナルが目指すべきは、「HTMLの構造の中で画像を呼び出し、本文の一部としてレンダリングさせる」こと。これを実現するのが `cid:`（Content-ID）という仕組みです。
—
仕組みを理解しよう：CIDの裏側
CIDとは、メールの裏側（MIME構造）で「この画像データには、このIDが付いている」と定義し、HTML側で「そのIDの画像を表示せよ」と指示する紐付けのことです。
1. 添付ファイルに属性を付与: `PR_ATTACH_CONTENT_ID` プロパティを使って、画像に固有のIDを書き込む。
2. HTMLで参照: `` と記述する。
これだけで、画像は本文に美しく埋め込まれます。
—
実践コード：インライン画像付きメール生成
以下のコードは、デスクトップ上のロゴ画像をメール本文に埋め込むためのテンプレートです。ここをクリアすれば、定型メールの作成業務が劇的に洗練されます。
Sub SendInlineImageMail()
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem
Dim attach As Outlook.Attachment
Dim imagePath As String
Dim cidName As String
‘ 1. 初期化と設定
Set olApp = New Outlook.Application
Set mail = olApp.CreateItem(olMailItem)
imagePath = Environ(“USERPROFILE”) & “\Desktop\logo.png” ‘ 画像パス
cidName = “myCompanyLogo” ‘ 任意のCID名
‘ 2. メール構成の準備
With mail
.Subject = “インライン画像埋め込みテスト”
.To = “target@example.com”
‘ 3. 画像を添付（インライン用）
Set attach = .Attachments.Add(imagePath)
‘ 4. ここが最重要！CID属性を付与する
‘ MAPIプロパティを使って添付ファイルにIDを刻み込む
attach.PropertyAccessor.SetProperty _
“http://schemas.microsoft.com/mapi/proptag/0x3712001E”, cidName
‘ 5. HTMLBodyでcid:を用いて参照する
.HTMLBody = “
“
いつもお世話になっております。
” & _
“” & _
“
上記はインラインで表示された画像です。
” & _
“”
.Display ‘ 確認用。本番時は .Send に変更
End With
End Sub
—
陥りやすい「落とし穴」と対策
この技術を実装する際、多くのエンジニアが以下の壁に当たります。
1. 画像が表示されず、ただの添付ファイルになる
原因: `PropertyAccessor` を使ったCIDの付与が正しく行われていない、あるいはHTML側の `cid:` の綴りが間違っている。
対策: `PropertyAccessor` のプロパティタグ `0x3712001E` はおまじないだと思ってください。ここを正確に記述しないと、Outlookはそれを「ただの添付ファイル」として扱います。
2. HTMLのデザインが崩れる
原因: Outlookのレンダリングエンジンは、Webブラウザほど優秀ではありません。
対策: `
