Excelでボタンがクリックされた場合、メールを送信するにはどうすればよいですか？

OutlookでExcelワークシート内のボタンをクリックしてメールを送信する必要があるとします。それを実現するにはどうすればよいでしょうか？この記事では、その詳細な方法としてVBAを使用した手法を紹介します。

VBAコードを使用してボタンがクリックされたときにメールを送信する

VBAコードを使用してボタンがクリックされたときにメールを送信する

Command ButtonがExcelワークブック内でクリックされた場合、Outlook経由でメールを送信するには、次の手順に従ってください。

1. 開発 > 挿入 > コマンドボタン (ActiveXコントロール) をクリックして、ワークシートにコマンドボタンを挿入します。スクリーンショットをご覧ください:

2. 挿入されたコマンドボタンを右クリックし、表示されるメニューから「コードの表示」をクリックしてください（下のスクリーンショット参照）。

3. 表示されたMicrosoft Visual Basic for Applicationsウィンドウで、コードウィンドウ内の元のコードを以下のVBAスクリプトに置き換えてください。

VBAコード：Excelでボタンがクリックされた場合にメールを送信する

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

4. Alt + Qキーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

5. 開発 > デザインモードをクリックして、デザインモードをオフにしてください。スクリーンショットをご覧ください:

これで、コマンドボタンをクリックするたびに、指定された受信者、件名、本文を持つメールが自動的に作成されます。送信ボタンをクリックしてメールを送信してください。

注意: このVBAコードは、Outlookをメールプログラムとして使用している場合にのみ動作します。

関連記事:

• Excelでセル値に基づいて自動的にメールを送信するにはどうすればよいですか？
• Excelでワークブックが保存された際にOutlook経由でメールを送信するにはどうすればよいですか？
• Excelで特定のセルが変更された場合にメールを送信するにはどうすればよいですか？
• Excelで期日が到来した場合にメールを送信するにはどうすればよいですか？
• Excelでワークブックが更新された場合にメールリマインダや通知を送信するにはどうすればよいですか？