VBScriptでHTMLメールを自在に操る ― CDO.Messageを用いた「脱・手動送信」の極意
こんにちは。自動化の現場でVBScriptを四半世紀近く愛用してきたエンジニアです。
皆さんは、日々の業務で「Outlookを開いて、定型文をコピーして、ファイルを添付して送信…」なんて作業をしていませんか？ その作業、VBScriptを使って「CDO (Collaboration Data Objects)」というWindows標準の強力なライブラリに任せましょう。
今回は、外部メールソフトを一切介さず、SMTPサーバーへ直接メールを叩き込む「HTMLメール送信自動化モジュール」の真髄を伝授します。
—
なぜCDOを使うのか？その合理性
初心者の多くは、Outlookのオブジェクトを操作（`CreateObject(“Outlook.Application”)`）しようとします。しかし、それは間違いです。Outlookを起動させるとセキュリティ警告が出たり、PCの動作が重くなったりと、自動化の天敵だからです。
一方で、CDOはWindowsに標準搭載された「メール送信専用のエンジン」です。バックグラウンドで静かに、かつ高速にSMTPプロトコルでサーバーと会話します。これこそが、業務自動化のプロが選ぶ道です。
—
HTMLメール送信自動化コード（実用版）
以下のコードをメモ帳に貼り付け、拡張子を `.vbs` で保存してください。
‘ — CDO.MessageによるHTMLメール送信モジュール —
Dim objMsg, objConf
Set objMsg = CreateObject(“CDO.Message”)
Set objConf = CreateObject(“CDO.Configuration”)
‘ 1. SMTP設定（ここはご利用のサーバー情報に合わせてください）
With objConf.Fields
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “smtp.your-server.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 587
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = 1
.Item(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = “your-email@example.com”
.Item(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = “your-password”
.Update
End With
‘ 2. メールの構成設定
Set objMsg.Configuration = objConf
objMsg.From = “your-email@example.com”
objMsg.To = “target@example.com”
objMsg.Subject = “【自動送信】業務報告レポート”
‘ 3. HTMLメールの本文（HTMLタグがそのまま使えます）
objMsg.HTMLBody = “
“
お疲れ様です
” & _
“
本日の業務レポートを添付いたします。
” & _
“”
‘ 4. ファイルの添付（パスを指定するだけ！）
objMsg.AddAttachment “C:\Reports\DailyReport.pdf”
‘ 5. 送信実行
objMsg.Send
‘ 6. 後処理（メモリ解放の作法）
Set objMsg = Nothing
Set objConf = Nothing
WScript.Echo “送信完了しました。”
—
現場で役立つ「3つのポイント」
1. HTMLBodyとTextBodyの違い
`HTMLBody`を使えば、CSSで文字色を変えたり、表（テーブル）を作成したりと、リッチな通知が可能です。もしプレーンテキストで送りたい場合は、`TextBody`プロパティを使ってください。両方設定すると、受信側のメールクライアントが最適な方を選んで表示してくれます。
2. なぜ「With」句を使うのか
VBScriptでは、`objConf.Fields.Item(…)` と何度も書くのは非効率でミスを誘発します。`With`句でオブジェクトを固定することで、コードがスッキリするだけでなく、処理速度の向上にも繋がります。これは「オブジェクトへの参照コスト」を最小限にするためのプロの定石です。
3. よくあるエラー：SMTP認証とSSL
近年、GmailなどのパブリックなSMTPサーバーを使う場合、SSL/TLS接続が必須です。もしエラーが出る場合は、以下の設定を`objConf.Fields`に追加してみてください。
.Item(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = True
※古いSMTPサーバーや社内サーバーではこれが不要な場合もあります。エラーが出たらまずここを疑いましょう。
—
最後に：自動化の先にある世界
このコードをマスターすれば、毎日決まった時間に「日報を自動生成して上司にメールする」といったルーチンワークから完全に解放されます。あとはWindowsの「タスクスケジューラ」にこの `.vbs` を登録するだけです。
最初は難しく感じるかもしれませんが、このCDOという「Windowsの隠れた武器」を使いこなせるようになれば、あなたの業務効率は劇的に変わります。
もし途中でつまずいたら、それは成長の証です。一つずつエラーメッセージを読み解いていきましょう。応援していますよ！
