【コピペでOK】Notesメールで一斉送信を自動化！Excelからメールを自動作成するVBAを紹介！

会社のメールソフトがNotesだから、効率化の情報が少ない…
Notesメールでも一斉送信がしたい！

Notesメールの効率化は情報が少なく、独学で難しいツールの一つです。私も以前はNotesユーザーだったので、その苦労は分かります。Outlookであればすぐに自動化のVBAが出てくるのに、Notesはほとんどわからない…結構そういう人も多いと思います。

そこで今回は、ExcelからNotesメールを一括送信するVBAを紹介します。NotesでもOutlook同様に自動化が可能なので、ぜひともこの記事を参考に自動化を進めてみてください。

なお、現在私の手元にはNotes環境がないため、今回のコードは過去作成したツールをベースにしています。

動作検証がリアルタイムでできていない点、ご了承ください。

【コピペでOK】Notesメール一括送信VBAコード
マクロの動作概要
設定詳細：ExcelシートとNotesの準備
まとめ

【コピペでOK】Notesメール一括送信VBAコード

以下のコードをコピペするだけで、Notesの添付付きメールを自動作成できます。

実行の際、あらかじめ宛先／CCなどの項目の作成が必要です。詳しくはこの後紹介します。

Option Explicit

Sub SendNotesMail_List()
    ' Lotus Notesの定数定義（Late Binding用）
    Const EMBED_ATTACHMENT As Integer = 1454

    Dim wkNSes As Object    ' lotus.NOTESSESSION
    Dim wkNDB As Object     ' lotus.NOTESDATABASE
    Dim wkNDoc As Object    ' lotus.NOTESDOCUMENT
    Dim wkNRtItem As Object ' lotus.NOTESRICHTEXTITEM
    Dim wkNAtt As Object    ' lotus.NOTESEMBEDDEDOBJECT

    Dim ws As Worksheet
    Dim lRow As Long, i As Long, j As Long
    Dim strTo As String, strCC As String, strSub As String, strBody As String
    Dim attPath As String

    ' 対象のシート（アクティブシート または シート名を指定）
    Set ws = ActiveSheet

    ' 最終行を取得（A列を基準）
    lRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Notesのセッションを起動（ループの外で1回だけ実行）
    Set wkNSes = CreateObject("Notes.NotesSession")
    ' メールデータベースを開く
    Set wkNDB = wkNSes.GETDATABASE("", "")
    wkNDB.OpenMail

    ' 2行目から最終行までループ
    For i = 2 To lRow

        ' ①リストの内容を変数に格納
        strTo = ws.Cells(i, 1).Value   ' A列：宛先
        strCC = ws.Cells(i, 2).Value   ' B列：CC
        strSub = ws.Cells(i, 3).Value  ' C列：件名

        ' ②本文の組み立て（指定のフォーマット）
        strBody = ws.Cells(i, 4).Value & vbCrLf _
                  & ws.Cells(i, 5).Value & vbCrLf _
                  & ws.Cells(i, 6).Value & vbCrLf _
                  & ws.Cells(i, 7).Value

        ' Notesドキュメントの作成
        Set wkNDoc = wkNDB.CREATEDOCUMENT()

        ' ヘッダー情報のセット
        wkNDoc.Subject = strSub
        wkNDoc.SendTo = Split(strTo, ",") ' カンマ区切りで複数宛先に対応

        If strCC <> "" Then
            wkNDoc.CopyTo = Split(strCC, ",")
        End If

        ' リッチテキスト（本文・添付用）の作成
        Set wkNRtItem = wkNDoc.CreateRichTextItem("BODY")

        With wkNRtItem
            .APPENDTEXT strBody
            .ADDNEWLINE 2 ' 本文の後に改行を入れる

            ' ③添付ファイルの処理（H列[8] ～ L列[12] の5列分を確認）
            For j = 8 To 12
                attPath = ws.Cells(i, j).Value

                ' 空欄でなければ添付処理を行う
                If attPath <> "" Then
                    ' ファイルが存在するか簡易チェック（任意）
                    If Dir(attPath) <> "" Then
                        Set wkNAtt = .EmbedObject(EMBED_ATTACHMENT, "", attPath)
                    End If
                End If
            Next j
        End With

        ' メールを送信する (False = フォームを保存せずに送信)
        wkNDoc.Send False

        ' オブジェクト解放（ループ内）
        Set wkNAtt = Nothing
        Set wkNRtItem = Nothing
        Set wkNDoc = Nothing

    Next i

    ' オブジェクト解放（全体）
    Set wkNDB = Nothing
    Set wkNSes = Nothing

    MsgBox "全件送信完了しました", vbInformation

End Sub

業務効率化におすすめ書籍『9選』はコチラから！