ExcelのVBAを使ってメールを送信する方法：Outlook向けの11ステップ

Excel VBA を使用すると、受信者、件名、メッセージ、およびワークブックの添付ファイルを含む Outlook メールを作成できます。この 11 の手順ガイドでは、 Windows 版の従来の Outlookを使用し、送信前に確認できるようにメッセージを下書きとして開きます。Microsoft は、新しい Outlook では VBA マクロと Outlook オブジェクト モデルがサポートされていないとしているため、この COM ベースの例は新しい Outlook またはブラウザー版 Outlook では動作しません。

作業を開始する前に、作業内容を保存し、クラシック版Outlookがインストールされ、メールアカウントが設定されていることを確認してください。このコードは遅延バインディングを使用しているため、バージョン固有のOutlookライブラリ参照を追加する必要はありません。

Excel VBAを使ってメールを送信する11の手順

1. 従来のOutlookが利用可能であることを確認してください。

Outlook のデスクトップ版を開き、メールボックスからメッセージを送信できることを確認してください。このマクロは、Windows 版の従来の Outlook が必要です。Outlook.com タブ、Web 版 Outlook、および新しい Outlook では、ここで使用されている COM オートメーション オブジェクトは公開されません。Microsoft の従来の Outlook と新しい Outlook の機能比較を参照してください。

2. ワークブックをマクロ有効ファイルとして保存します。

Excelで、[ファイル] > [名前を付けて保存]を選択し、[Excelマクロ有効ブック(*.xlsm)]を選択します。通常の.xlsxファイルではVBAコードは保存できません。ブックはアクセスしやすく、パスを覚えておける場所に保存してください。

3. Visual Basic Editor を開きます。

Excelデスクトップアプリでワークブックを開いた状態で、Alt+F11キーを押します。プロジェクトエクスプローラーで、ワークブックと同じ名前のプロジェクトを探します。エディターが非表示になっている場合は、Ctrl+Rキーを押してプロジェクトエクスプローラーを表示します。

4. 標準モジュールを挿入する

Visual Basic Editorで、ワークブックプロジェクトを選択し、[挿入] > [モジュール]を選択して、新しいコードペインを使用します。標準モジュールは、必要に応じて実行するマクロを配置するのに適した場所です。

5. 下書き作成マクロを追加する

この手順をモジュールに貼り付けてください。この手順は、ワークブックが保存されていることを確認し、添付ファイルのパスを検証し、Outlookメッセージを作成して、送信せずに表示します。

Option Explicit

Sub CreateOutlookDraft()
    Dim olApp As Object
    Dim olMail As Object
    Dim attachmentPath As String

    If Len(ThisWorkbook.Path) = 0 Then
        MsgBox "Save the workbook before creating the email.", vbExclamation
        Exit Sub
    End If

    attachmentPath = ThisWorkbook.FullName
    If Len(Dir$(attachmentPath)) = 0 Then
        MsgBox "Workbook attachment not found: " & attachmentPath, vbExclamation
        Exit Sub
    End If

    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
    If olApp Is Nothing Then
        Set olApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0

    If olApp Is Nothing Then
        MsgBox "Classic Outlook could not be opened.", vbExclamation
        Exit Sub
    End If

    Set olMail = olApp.CreateItem(0)
    With olMail
        .To = "recipient@example.com"
        .CC = ""
        .Subject = "Monthly report"
        .Body = "Hi," & vbCrLf & vbCrLf & _
                "Please review the attached monthly report." & _
                vbCrLf & vbCrLf & "Thanks,"
        .Attachments.Add attachmentPath
        .Display
    End With

    Set olMail = Nothing
    Set olApp = Nothing
End Sub

数値引数によって0標準のメールアイテムが作成されます。Microsoft のドキュメントには、Application.CreateItem、Attachments.Add、およびMailItem.Display が記載されています。

6. サンプルメールの詳細を置き換えます

recipient@example.com宛先を変更してください。.CC必要に応じてアドレスを追加し、.Subjectとテキストを編集してください.Body。テキストの値は引用符で囲み、を使用して&行を結合してくださいvbCrLf。この例ではプレーンテキストメッセージを使用しているため、HTML形式は必要ありません。

7. 添付ファイルを選択します

記載されているとおりに記述すると、ThisWorkbook.FullName保存済みのマクロ有効ワークブック自体が添付されます。別のレポートを添付する場合は、その割り当てを完全なファイルパスに置き換えてください（例：）"C:\Reports\MonthlyReport.xlsx"。マクロを実行する前に、ファイルが存在し、アクセスできることを確認してください。このAttachments.Addメソッドは、メッセージをファイルに添付します。

8. マクロを保存する

エディターでCtrl+Sを押すか、Excelに戻ってブックを保存してください。.xlsm形式を維持してください。.xlsx形式で保存するとVBAプロジェクトが削除されます。信頼できる場所にファイルを保存し、出所不明のブックでマクロを有効にしないでください。

9. 手順を実行する

クリックしてF5CreateOutlookDraftキーを押すか、エディターの「実行」コマンドを使用してください。Excelがマクロをブロックする場合は、組織のポリシーに従ってください。Microsoftによると、Officeはインターネットから取得したファイル内のマクロを既定でブロックするため、保護機能を全体的に無効にするのではなく、マクロのセキュリティに関するガイダンスを参照してください。

10. 下書きを確認して、自分で送信する

Outlook は、宛先、件名、本文、およびワークブックの添付ファイルが入力されたメッセージを開きます。すべての受信者を確認し、必要に応じて添付ファイルを開きます。下書きを確認してから、 Outlook の送信.Displayボタンをクリックします。このコードは、タイプミスや古いファイルが自動的にメール送信されないように、意図的に ではなくを使用しています.Send。

11. よくある問題を解決する

• 「ActiveX コンポーネントがオブジェクトを作成できません」または Outlook が利用できません。Windows版のクラシック Outlook がインストールされ、正しく設定されていることを確認してください。新しい Outlook およびブラウザー版 Outlook では、必要な Outlook オブジェクト モデルが提供されていません。
• マクロは実行されません。ワークブックが.xlsm形式であることを確認し、Excelのセキュリティに関する通知を確認してください。警告を回避するためにすべてのマクロを有効にしないでください。信頼できるファイルと発行元のみを信頼してください。
• 添付ファイルが見つかりません。まずワークブックを保存するか、別個のレポートのフルパスを修正してください。ファイルが使用できないドライブ上に存在しないことを確認してください。

このワークフローは、従来のOutlookで確認して送信するメッセージを対象としています。繰り返し送信される、または無人で送信されるビジネスメールの場合は、組織が承認した自動化サービスを使用し、受信者、添付ファイル、およびアクセス許可を個別に検証してください。