【入門編】【初心者向け】メール本文にExcelの表をHTML形式で綺麗に貼り付ける自動化テクニック – Outlook VBA解析バイブル

スポンサーリンク

【脱・手作業】Excelの表をOutlookメールに美しく貼り付けるVBA極意

こんにちは。現場の最前線で自動化を極めるエンジニアです。

日々の業務で「Excelの表をOutlookにコピペして、書式が崩れて泣く泣く修正する」という不毛な作業をしていませんか？
マクロの記録ボタンを押すだけの初心者から一歩先へ進み、「プログラムでHTMLを操る」というスキルを身につければ、そんな悩みは一瞬で消え去ります。

今日は、ExcelのRange（セル範囲）をHTML文字列に変換し、Outlookへ流し込むという「自動化の基本かつ奥義」を伝授します。ここをクリアすれば、あなたのOutlook VBAは劇的に進化しますよ。

—

なぜ「HTML」を使うのか？

メールの本文は、ただのテキスト形式（プレーンテキスト）だとExcelの表を表現できません。そこで登場するのがHTML形式です。

VBAでHTMLを生成するというのは、要するに「Excelの表をWebサイトの部品（`

`タグ）に変換して、Outlookに渡す」という作業です。これができれば、フォントの色や太さ、罫線まで自由自在です。

—

実践！Excelの表をメールに挿入するVBAコード

まずは、標準モジュールに以下のコードをコピペしてください。このコードは、クリップボードを経由させず、直接HTML文字列をOutlookに流し込む「スマートな手法」を採用しています。

Sub SendExcelTableToOutlook()
Dim olApp As Object
Dim olMail As Object
Dim rng As Range
Dim htmlBody As String

‘ 1. 対象の範囲を取得（現在選択中のセル範囲を対象にする）
Set rng = Selection

‘ 2. 範囲をHTML形式に変換する関数を呼び出す
htmlBody = RangetoHTML(rng)

‘ 3. Outlookオブジェクトを生成
Set olApp = CreateObject(“Outlook.Application”)
Set olMail = olApp.CreateItem(0) ‘ 0はメールアイテム

With olMail
.To = “example@example.com”
.Subject = “【自動送信】最新の集計データ”

‘ 4. HTML形式として本文を指定
.HTMLBody = “お疲れ様です。
集計結果を共有します。

” & htmlBody

.Display ‘ まずは確認用に表示（自動送信にする場合は .Send に変更）
End With

‘ 後処理
Set olMail = Nothing
Set olApp = Nothing
End Sub

‘ — RangeをHTML文字列に変換する魔法の関数 —
Function RangetoHTML(rng As Range) As String
Dim fso As Object, ts As Object
Dim tempFile As String

‘ 一時的にHTMLファイルとして保存し、その中身を文字列として読み込む
tempFile = Environ$(“temp”) & “\temp.htm”

With rng.Parent.Parent.PublishObjects.Add( _
SourceType:=4, Filename:=tempFile, _
Sheet:=rng.Parent.Name, Source:=rng.Address, _
HtmlType:=0)
.Publish (True)
End With

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ts = fso.GetFile(tempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close

‘ 一時ファイルの後始末
Kill tempFile
Set ts = Nothing
Set fso = Nothing
End Function

—

コードのポイント：ここを知ればエンジニア

1. `PublishObjects` という選択

初心者向け記事では「クリップボード経由」のコピー＆ペーストが紹介されがちですが、あれは動作が不安定で、他のソフトの影響を受けやすいです。
私が提示した `PublishObjects` を使う方法は、Excel自体にHTML変換機能を実行させるため、書式が崩れず、非常に堅牢です。

2. `HTMLBody` プロパティ

Outlookメールには `.Body` と `.HTMLBody` があります。`.Body` はただの文字しか入らないので、今回のように表を送るなら必ず `.HTMLBody` を使ってください。ここで指定するHTMLタグ（`
`＝改行など）が、そのままメールの装飾になります。

3. 一時ファイル（temp）の活用

プログラムの中に長いHTMLタグを直接書こうとするとコードが読みにくくなります。一度ファイルとして書き出して読み込む手法は、複雑なデザインの表を扱う際に、将来的にHTMLテンプレートを外部化しやすくするための「プロの布石」です。

—

初心者が陥りやすいエラーと回避策

  • 「オートメーションエラーが発生しました」
  • 原因：Outlookが既に立ち上がっている場合や、権限の不整合が考えられます。`Set olApp = CreateObject(“Outlook.Application”)` は、既に開いているOutlookを掴むのが最も安全です。
  • 「貼り付けた表の枠線が消える」
  • 原因：`PublishObjects` はExcelの「Webページとして保存」の仕組みを使っているため、Excel側で罫線が引かれていないと出力されません。貼り付ける前に、Excelの「セルの書式設定」で罫線をしっかり設定しておきましょう。

—

最後に：ここから先へ進むために

このコードを動かせたなら、あなたはもう「マクロの記録」だけのユーザーではありません。次は「宛先をセルから動的に取得する」ことや、「メール本文に特定の挨拶文を差し込む」ことに挑戦してみてください。

ExcelとOutlookを自在に操れるようになると、周囲からの「あの人に頼めば仕事が速くなる」という評価は確実なものになります。

何か詰まったら、いつでも戻ってきてくださいね。あなたの自動化の旅を、これからも応援しています！

スポンサーリンク
タイトルとURLをコピーしました