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

著者Siluvia変更日2024-11-28

Excel では、特定のセルの値など所定の条件に基づいてメール送信を自動化できます。たとえば、セル D7 の値が200 を超えた場合に、Outlook 経由で自動的にメールを送信したいことがあるでしょう。このチュートリアルでは、VBA（Visual Basic for Applications）を使って、セルの値に基づきOutlook からメールを自動送信する方法をご紹介します。

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

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

Excel でセルの値に基づいてメールを送信するには、以下の手順に従ってください。

1。メール送信の基準となるセル値（ここではセル D7）を含むワークシートで、シートタブを右クリックし、コンテキストメニューからコードの表示を選択してください（スクリーンショットを参照）。

ワークシートの「コードの表示」オプションを示すExcelのコンテキストメニューのスクリーンショット

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

注記：

1）VBA コード内のD7およびvalue > 200が、メール送信の基準となるセルおよびセル値です。

2）コード内のxMailBody 行で、必要に応じてメール本文を変更してください。

3）.To = 「メールアドレス」行で、メールアドレスを受信者のメールアドレスに置き換えてください。

4）また、必要に応じて.CC = “”およびBcc = “”セクションで Cc および Bcc の宛先を指定してください。

5）最後に、.Subject = 「send by cell value test」行のメールの件名を変更してください。

3。「Alt＋Q」キーを同時に押すと、「Microsoft Visual Basic for Applications」ウィンドウが閉じます。

セル D7 に入力された値が200 を超えると、指定された宛先と本文を含むメールがOutlook で自動的に作成されます。このメールを送信するには、送信ボタンをクリックしてください。スクリーンショットをご参照ください。

Excelのセル値から自動的に作成されたOutlookのメール下書きを示すスクリーンショット

注記：

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

2。セル D7 に入力されたデータがテキスト値であっても、メールウィンドウが表示されます。

メール送信機能（)Kutools for Excel）を使えば、Excel で作成したメールリストに基づき、Outlook 経由で簡単にメールを送信できます。

Kutools for Excelのメール送信ユーティリティインターフェースのスクリーンショット

Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！