Excel VBAを利用した緊急連絡網のテストメール送信方法

Excelに緊急連絡網を保持している場合、その情報を利用して一括でテストメールを送信する手段として、VBAが役立ちます。この記事では、VBAを使用して緊急連絡網のテストメールを送信する方法について、具体的なコードとその詳細な解説、さらに応用例を紹介します。

基本的な手順

1. Excelのシートに連絡網の情報（名前、メールアドレスなど）を保持する
2. OutlookやGmailなどのメールアカウントとVBAを連携させる
3. VBAを使用して一括でテストメールを送信する

具体的なコード

Sub SendTestMail()

    Dim LastRow As Long
    Dim i As Long
    Dim OutlookApp As Object
    Dim OutlookMail As Object

    'Outlookを開始
    Set OutlookApp = CreateObject("Outlook.Application")

    '最後の行を探す
    LastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow '1行目はヘッダーとする
        Set OutlookMail = OutlookApp.CreateItem(0)

        With OutlookMail
            .To = ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value '2列目にメールアドレス
            .Subject = "緊急連絡網テストメール"
            .Body = "これはテストメールです。"
            .Send
        End With

    Next i

    'メモリ解放
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing

End Sub

コードの詳細解説

– `OutlookApp`はOutlookアプリケーションを参照するためのオブジェクト変数です。
– `LastRow`は連絡網の最後の行を検出するための変数です。これにより、いくつの連絡先があるのかを自動的に判別できます。
– `For i = 2 To LastRow`のループは、各行のメールアドレスを参照してメールを送信します。
– `.To`で送信先のメールアドレスを指定しています。この例では、2列目にメールアドレスが記載されていると仮定しています。
– `.Subject`と`.Body`でメールの件名と本文を指定しています。
– 最後に`.Send`でメールを送信しています。

補足事項

この方法はOutlookがインストールされている環境でのみ動作します。また、セキュリティの設定によっては、VBAからのメール送信がブロックされる場合がありますので注意が必要です。

応用例

1. メールの内容をExcelから取得する

.Body = ThisWorkbook.Sheets("Sheet1").Cells(i, 3).Value

解説

3列目にメールの本文を記載している場合、このコードによりそれを動的に取得してメールの内容として設定できます。

2. CCやBCCを設定する

.CC = "cc@example.com"
.BCC = "bcc@example.com"

解説

`.CC`や`.BCC`を使用することで、CCやBCCにメールアドレスを追加できます。

3. 添付ファイルを追加する

.Attachments.Add "C:\path\to\your\file.txt"

解説

`.Attachments.Add`を使用することで、特定のファイルをメールに添付することができます。

まとめ

Excel VBAを使用して緊急連絡網のテストメールを簡単に一括送信することができます。この機能を活用することで、緊急時の対応もスムーズに行うことができるでしょう。