Excelでセルの値に基づいて自動的にメールを送信するにはどうすればよいですか？

Excelでは、特定の条件（特定のセルの値など）に基づいてメールを自動送信するプロセスを自動化できます。例えば、セルD7の値が200を超えたときにOutlook経由で自動的にメールを送信したい場合があります。このチュートリアルでは、VBA（Visual Basic for Applications）を使用して、セルの値に基づいてOutlookでメールをトリガーする方法を説明します。

VBAコードを使用してセルの値に基づいて自動的にメールを送信する

VBAコードを使用してセルの値に基づいて自動的にメールを送信する

以下のように操作して、Excelでセルの値に基づいてメールを送信してください。

1. メールを送信する必要があるワークシート（ここではセルD7と仮定）で、シートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。スクリーンショットをご覧ください：

2. 表示されたMicrosoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコピーしてシートコードウィンドウに貼り付けてください。

VBAコード: Excelのセル値に基づいてOutlook経由でメールを送信する

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

注意:

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

これで、セルD7に入力された値が200より大きくなった場合、指定された受信者や本文を持つメールがOutlookで自動的に作成されます。「送信」ボタンをクリックすると、このメールを送信できます。スクリーンショットをご覧ください：

注意:

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

2. セルD7に入力されたデータがテキスト値の場合でも、メールウィンドウがポップアップ表示されます。

関連記事：

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