セルの内容に基づいて Excel から電子メールを自動送信する (2 つの方法)

Excel にはさまざまな種類の情報が保存されています ワークシート。たとえば、 メール を持つことができます 重要人物や他社の住所。 Microsoft Excel での作業中、 メールを送信する必要がある場合もあります。 通常、 メール を送信するのは簡単です Outlook から または Gmail 、しかし メール を送信したい場合 セルの内容に基づいて、Microsoft Excel を使用できます 効果的に。今日、この記事では 2 を学びます 適切なイラストを使用して、セルの内容に基づいて効果的に Excel から電子メールを自動的に送信するための迅速かつ適切な方法

セルの内容に基づいて Excel から自動的にメールを送信する 2 つの適切な方法

Excel があるとします。 複数の営業担当者に関する情報を含む大きなワークシート アルマーニ グループの . 営業担当者の名前 識別番号 商品の種類 、獲得した収益 営業担当者による 列 B、C、D に記載されています 、および E それぞれ。 Excel からメールを送信します 差し込み印刷を使用してセルのコンテンツに基づく MS Word のコマンド および VBA マクロも。 データセットの概要は次のとおりです

1. VBA コードを実行して、セルの内容に基づいて Excel から電子メールを自動的に送信する

次に、メールを自動的に送信する方法を紹介します エクセルから シンプルな VBA を使用してセルのコンテンツに基づく コード。特定の瞬間に有益です。データセットから、 Excel から自動的にメールを送信します セルのコンテンツに基づく. セルのセル値が D6 の場合に電子メールを自動的に送信するコードを記述します。 400 より大きい .以下の手順に従って、 Excel からメールを自動送信してみましょう。 セルの内容に基づいています!

ステップ 1:

• まず、モジュールを開きます。これを行うには、まず Developer から タブ、移動、

開発者 → Visual Basic

• Visual Basic をクリックした後 リボン、 Microsoft Visual Basic for Applications という名前のウィンドウ すぐ目の前に現れます。そのウィンドウから、VBA コードを適用するためのモジュールを挿入します。 .そのためには、
にアクセスしてください。

挿入 → モジュール

ステップ 2:

• したがって、Excel からメールを送信 モジュールが目の前に現れます。 Excel からメールを送信 モジュール、以下の VBA を書き留めます コード、

Dim R As Range
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set R = Intersect(Range("D6"), Target)
If R Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 400 Then
Call send_mail_outlook
End If
End Sub
Sub send_mail_outlook()
Dim x As Object
Dim y As Object
Dim z As String
Set x = CreateObject("Outlook.Application")
Set y = x.CreateItem(0)
z = "Hello!" & vbNewLine & vbNewLine & _
"Hope you are well" & vbNewLine & _
"Visit our Exceldemy site"
On Error Resume Next
With y
.To = "Address"
.cc = ""
.BCC = ""
.Subject = "send mail based on cell value"
.Body = z
.Display
End With
On Error GoTo 0
Set y = Nothing
Set x = Nothing
End Sub

• したがって、 VBA を実行します そのためには、
にアクセスしてください。

実行 → サブ/ユーザーフォームを実行

• VBA コードの実行後 、今からセル D6> 400 のセル値 Outlook のメール 特定の受信者で自動的に生成されます。 [送信] をクリックするだけです。 ボタンをクリックして、下のスクリーンショットにあるメールを送信してください。

続きを読む: Excel で条件が満たされたときにメールを自動的に送信する方法

類似の読み物

• VBA を使用して Excel ワークシートからリマインダー メールを自動的に送信する
• [解決済み]:Excel に表示されないワークブックを共有する (簡単な手順で)
• 共有 Excel ファイルに誰が入っているかを確認する方法 (クイック手順付き)
• Excel を使用して Outlook から一括メールを送信する (3 つの方法)
• マクロを適用して Excel から添付ファイル付きのメールを送信する方法

2. Word の差し込み印刷コマンドを使用して、セルの内容に基づいて Excel から自動的に電子メールを送信する

最初の方法では、MS Word を使用します 差し込み印刷機能 ワードで 複数のメールを送信する Excel スプレッドシートから .以下の手順に従ってメールを送信しましょう!

ステップ 1:

• まず、Word ファイルを開いて、希望するメッセージを書き留めます。

• したがって、あなたの メーリング から タブ、移動、

メーリング ➤ 受信者を選択 ➤既存のリストを使用

• その結果、データ ソースの選択 ダイアログボックスが表示されます。その後、 Excel を選択します メール アドレスが格納されます。最後に 開く を押します オプション

• その後、テーブルの選択 ダイアログボックスが目の前に表示されます。そこで、目的のシートを選択して OK を押します .

ステップ 2:

• 次に、各メールで置換する必要がある単語を選択します。この例では、Carl を選択します .そのため、 メーリング の下に タブ、移動、

Mailings → Write &Insert Field → Insert Merge Field → Sales_Rep

• したがって、以下に示すようなメッセージが返されます。

• さらに、受信者の視点からメールのプレビューを表示するには、[結果のプレビュー] をクリックします。 .

• その後、あなたの メーリング から タブ、移動、

メーリング → 完了 → 完了 &マージ → メール メッセージの送信

• したがって、Merge to E-mail ダイアログボックスが目の前に表示されます。ヘッダー Sales_Rep を選択します 宛先 フィールドに 件名 を入力します (ご挨拶 ） 要求に応じ。最後に OK を押します すべての受信者にメールが送信されます。

続きを読む: Excel ファイルを自動的に電子メールで送信する方法 (3 つの適切な方法)

覚えておくべきこと

👉 Microsoft Visual Basic for Applications をポップアップ表示できます Alt + F11 を押してウィンドウを開きます 同時に .

👉 開発者の場合 タブがリボンに表示されていない場合は、表示することができます。そのためには、

にアクセスしてください。

ファイル → オプション → リボンのカスタマイズ

結論

上記の適切な方法のすべてが Excel から自動的にメールを送信することを願っています セルのコンテンツに基づく VBA で コードは Excel にそれらを適用するように促します より生産性の高いスプレッドシート。ご質問やご不明な点がございましたら、お気軽にコメントしてください。

関連記事

• Excel で条件が満たされた場合にメールを送信する方法 (3 つの簡単な方法)
• マクロを使用して本文付きの Excel からメールを送信する方法 (簡単な手順)
• Excel マクロ:セル内のアドレスにメールを送信する (2 つの簡単な方法)
• 日付に基づいて Excel から電子メールを自動的に送信する方法
• 本文付きの Excel からメールを送信するマクロ (3 つの便利なケース)
• Excel リストからメールを送信する方法 (効果的な 2 つの方法)