Excel から Outlook に自動メールを送信する方法 (4 つの方法)

ユーザーが顧客や上司にメールを送信するとき、追跡するのは非常に困難です。そんな時に便利なのがエクセルです。したがって、「Excel から自動メールを送信する 見通し」へ 時間を節約するアプローチであることが証明されています。 Excel VBA マクロ とハイパーリンク 機能により、自動メールを送信したり、Excel エントリを使用して下書きを作成したりできます。

従業員の再編給与があるとしましょう データを Excel に保存し、Outlook を使用して自動メールを送信したい .

この記事では、VBA マクロの複数のバリエーションを紹介します とハイパーリンク Excel からの自動メール送信機能 Outlook へ .

Excel ワークブックをダウンロード

⧭ Microsoft Visual Basic を開いてモジュールにコードを挿入する

メソッドのデモに進む前に、モジュールを開いて挿入する方法を知っておく必要があります。 Microsoft Visual Basic で

🔄 Microsoft Visual Basic を開く: 主に 3 あります Microsoft Visual Basic を開く方法 ウィンドウ。

<強い>1.キーボード ショートカットの使用: ALT+F11 を押します Microsoft Visual Basic を開く ウィンドウ。

<強い>2. 開発者タブの使用: Excel ワークシートで、[開発者タブ] に移動します> Visual Basic を選択 . Microsoft Visual Basic ウィンドウが表示されます。

<強い>3.ワークシート タブの使用: 任意のワークシートに移動し、右クリックします> [コードを表示] を選択します (コンテキストから) メニュー ).

🔄 Microsoft Visual Basic へのモジュールの挿入: 2 あります モジュールの挿入方法 Microsoft Visual Basic で ウィンドウ、

<強い>1. シートのオプションの使用: Microsoft Visual Basic を開いた後 ウィンドウで、ワークシートを選択します> 右クリック> [挿入] を選択します (コンテキスト メニューから) )> [モジュール] を選択します .

<強い>2. ツールバーの使用: [挿入] を選択して行うこともできます (ツールバーから )> 次に モジュール を選択します .

Excel から Outlook に自動メールを送信する 4 つの簡単な方法

方法 1:VBA マクロを使用して、選択した受信者に Outlook を使用して電子メールを自動的に送信する

マクロ実行 Button を作成したい クリックするだけで、選択した受信者に簡単にメールを送信できます。

ステップ 1: 挿入に移動 タブ> シェイプ> 提供されている形状のいずれかを選択します (つまり、長方形:角が丸い ).

ステップ 2: プラス アイコンをドラッグします Shape を挿入したい場所 下の画像に示すように。

ステップ 3: 好みの図形の塗りつぶしを選択してください と概要 色 それを右クリックします。 [テキストの編集] をクリックします テキストを挿入します。

ステップ 4: 手順を使用してください Microsoft Visual Basic を開く モジュールを挿入します .次のマクロを モジュール に貼り付けます .

Sub ExcelToOutlookSR()
Dim mApp As Object
Dim mMail As Object
Dim SendToMail As String
Dim MailSubject As String
Dim mMailBody As String
For Each r In Selection
 SendToMail = Range("C" & r.Row)
 MailSubject = Range("F" & r.Row)
 mMailBody = Range("G" & r.Row)
Set mApp = CreateObject("Outlook.Application")
Set mMail = mApp.CreateItem(0)
With mMail
 .To = SendToMail
 .Subject = MailSubject
 .Body = mMailBody
 .Display ' You can use .Send
 End With
Next r
End Sub

➤ コード内

1 – 変数を Object として宣言して、マクロ プロシージャを開始します。 と文字列 .

2 – VBA FOR を実行します 選択した行ごとにループして、メールの送信先を割り当てます 、件名 、本文 行エントリを使用します。

3 – 変数を割り当てます。

4 – VBA With を実行する Outlook に入力するステートメント 送るなどのアイテム 、メールの件名 など。ここでは、マクロは 表示 のみを実行します Outlook を呼び出すコマンド メールの下書き付き。ただし、送信した場合 コマンドはその場で、または 表示 の後に使用されます。 見通し 作成したメールを選択した受信者に送信します。

5 – VBA FOR を終了します ループ。

ステップ 5: ワークシートに戻ります。 形状を右クリックします [マクロの割り当て] を選択します コンテキスト メニューから オプション。

ステップ 6: マクロを選択します (つまり、ExcelToOutlookSR ) マクロ名の下 マクロを選択します このワークブックとしてのオプション . OK をクリックします .

ステップ 7: ワークシートで 1 人または複数の従業員を選択し、Shape Button をクリックします。 .

ステップ 8: Excel プロンプト Outlook 昼食をとり、選択した従業員にメールを作成または送信します。 2 人の従業員を選択すると、Outlook 送信準備が整った 2 つの異なる電子メール ドラフトを生成します。

マクロは表示のみを提供するため コマンド、Outlook メールの下書きを送信せずに表示するだけです。 送信を使用 Excel からメールを自動的に送信するコマンド 展望へ セル エントリを使用します。

続きを読む: メールを自動送信する Excel マクロ (3 つの適切な例)

方法 2:特定のセル値に応じて Excel から Outlook に電子メールを自動的に送信する

Excel から目標を達成した後に自動メールを送信したい場合 展望へ ?マクロ コードは、この仕事を簡単に行うことができます。

四半期ごとの売上データがあるとします。 以下に示すように、目標を達成した後 (例:Sales> 2000) ) は自動的に Outlook を表示します 割り当てられた電子メール ID に Excel から電子メールを送信します。

ステップ 1: 次のマクロ コードを任意の モジュール に入力します .

Option Explicit
Dim Rng As Range
Sub Worksheet_Change(ByVal mRng As Range)
On Error Resume Next
If mRng.Cells.Count > 1 Then Exit Sub
Set Rng = Intersect(Range("F17"), mRng)
If Rng Is Nothing Then Exit Sub
If IsNumeric(mRng.Value) And Target.Value > 2000 Then
Call ExcelToOutlook
End If
End Sub
Sub ExcelToOutlook()
Dim mApp As Object
Dim mMail As Object
Dim mMailBody As String
Set mApp = CreateObject("Outlook.Application")
Set mMail = mApp.CreateItem(0)
mMailBody = "Greetings Sir" & vbNewLine & vbNewLine & _
"Our outlet has quarterly Sales more than the target." & vbNewLine & _
"It's a confirmation mail." & vbNewLine & vbNewLine & _
"Regards" & vbNewLine & _
"Outlet Team"
On Error Resume Next
With mMail
 .To = "admin@wsxdn.com"
 .CC = ""
 .BCC = ""
 .Subject = "Notification on Achieving Sales Target"
 .Body = mMailBody
 .Display 'or you can use .Send
End With
On Error GoTo 0
Set mMail = Nothing
Set mApp = Nothing
End Sub

➤ 上の画像のセクションでは、

1 – セルを割り当てます (つまり、F17 ) VBA IF を実行する範囲内 声明。ステートメントの結果が True の場合 、マクロは実行のために別のマクロを呼び出します。

2 – 変数の型を宣言し、それらを割り当てて Outlook に入力します のエントリ。

3 – VBA With を実行 電子メール エントリに変数を割り当てるステートメント。 送信を使用 表示の代わりにコマンド メールを確認せずに直接送信したい場合。受信者の電子メールがマクロ内に挿入されます。受信者の電子メール ID の自動挿入が必要な場合は、別の方法を使用してください。

4 – 特定の変数を割り当てからクリアします。

ステップ 2: F5 を使用します キーを押してマクロを実行します。すぐに、Excel は Outlook を取得します 以下に示すように、下書きメールが自動的に作成されます。 [送信] をクリックできます または 送信 を使用して自動送信

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

類似の読み物

• 共有 Excel ファイルに誰が入っているかを確認する方法 (クイック手順付き)
• Excel でワークブックの共有を有効にする
• 複数のユーザーが Excel ファイルを共有する方法
• マクロを適用して Excel から添付ファイル付きのメールを送信する方法

方法 3:VBA マクロを使用して Outlook で Excel からアクティブなワークシートを含む電子メールを送信する

または、Active Sheet 全体を送信する必要がある場合もあります。 割り当てられたメールアドレスに。その場合、VBA カスタム関数を使用できます マクロ内で呼び出されます。

ステップ 1: 以下のマクロを モジュール に挿入します .

Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean
On Error Resume Next
Dim mApp As Object
Dim rItem As Object
Set mApp = CreateObject("Outlook.Application")
Set rItem = mApp.CreateItem(0)
With rItem
 .To = mTo
 .CC = ""
 .Subject = mSub
 .Body = mBd
 .Attachments.Add ActiveWorkbook.FullName
 .Display 'or you can use .Send
End With
Set rItem = Nothing
Set mApp = Nothing
End Function
Sub OutlookMail()
Dim mTo As String
Dim mSub As String
Dim mBd As String
mTo = "admin@wsxdn.com"
mSub = "Quarterly Sales Data"
mBd = "Greetings Sir" & vbNewLine & vbNewLine & _
"Kindly find Outlet's Quarterly Sales data attached with this mail." & vbNewLine & _
"It's a notification mail." & vbNewLine & vbNewLine & _
"Regards" & vbNewLine & _
"Outlet Team"
If ExcelOutlook(mTo, mSub, , mBd) = True Then
 MsgBox "Successfully created the Mail draft or Sent"
End If
End Sub

➤ 上の画像から、コードのセクション、

1 – 変数を宣言して設定します。

2 – VBA With を使用してコマンドを割り当てます 声明。 ディスプレイを使用する または送信 それぞれメールを確認または直接送信するためのコマンド。

3 – 以前に設定した変数をクリアします。

4 – VBA With を割り当てます コマンドとテキスト。

5 – VBA カスタム関数を実行します .

ステップ 2: マクロを実行するには、F5 を押します 、すぐに Excel が Outlook を表示します 下の画像のようなレビュー用の下書きメールを使用します。その後、送信しても問題ありません。

続きを読む: Excel を使用して Outlook から一括メールを送信する方法 (3 つの方法)

方法 4:HYPERLINK 関数を使用して Excel から Outlook に自動メールを送信する

ハイパーリンク 関数は、Excel セルにクリック可能なリンクを生成して、Outlook を表示します。 Excel から自動メールを送信する手段として。

ステップ 1: 次の式をセル H5に入力します .

=HYPERLINK("MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="&G5,"Click Here")

ハイパーリンク 関数は “MailTo:”&C5&”?Subject=”&F5&”&cc=”&$D$2&”&body=”&G を取ります 5 aslink_location 、「ここをクリック」 Friendly_nameとして .

ステップ 2: ENTER を押します リンクを貼り付けます。次に、リンクをクリックしてください。

ステップ 3: Excel から Outlook に移動します .すべての Outlook が表示されます エントリには、Excel から割り当てられたデータが入力されます。 [送信] をクリックします .

ステップ 4: フィル ハンドルをドラッグします 数式を他のセルに適用します。

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

結論

VBA マクロ バリアント と ハイパーリンク 関数は、Excel から Outlook に自動メールを送信する際に役立ちます。上記の方法の中からお好みの方法を見つけていただければ幸いです。さらに質問がある場合、または追加するものがある場合は、コメントしてください。

関連記事

• VBA を使用して Excel ワークシートからリマインダー メールを自動的に送信する
• 編集可能な Excel スプレッドシートをメールで送信する方法 (3 つの簡単な方法)
• 本文付きの Excel からメールを送信するマクロ (3 つの便利なケース)
• 日付に基づいて Excel から電子メールを自動的に送信する方法
• マクロを使用して本文付きの Excel からメールを送信する方法 (簡単な手順)