顧客や上司にメールを送るとき、その記録を取るのはなかなか大変です。 そんなとき、Excelが役に立ちます。 そこで、「自動でメールを送信する エクセル まで 展望" は時間短縮につながることが証明されています。 Excel VBA マクロ とのことです。 ハイパーリンク は、自動でメールを送信したり、Excelの入力で下書きを作成したりすることができます。

があるとします。 従業員のリストラクチャリング給与 のデータをExcelに保存し、それを使って自動でメールを送りたい。 展望 .

の複数のバリエーションをデモしています。 VBAマクロ とのことです。 ハイパーリンク から自動でメールを送信する機能です。 エクセル まで 展望 .

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

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

どのような方法であれ、デモンストレーションを行う前に、まず最初に モジュール において マイクロソフトビジュアルベーシック をExcelで表示します。

🔄 Microsoft Visual Basicを開く。 主に以下のものがあります。 3 開き方 マイクロソフトビジュアルベーシック ウィンドウに表示されます。

1.キーボードショートカットを使う プレス ALT+F11 ぜんぶあける マイクロソフトビジュアルベーシック ウィンドウに表示されます。

2. Developerタブを使用する。 Excelのワークシートで、次の操作を行います。 デベロッパータブ 選択 ビジュアルベーシック . マイクロソフトビジュアルベーシック のウィンドウが表示されます。

3.ワークシートタブを使用する。 任意のワークシートに移動します。 右クリック を選択します。 表示コード (より）。 コンテキスト メニュー ).

🔄 Microsoft Visual Basic でモジュールを挿入する。 があります。 2 を挿入する方法です。 モジュール において マイクロソフトビジュアルベーシック ウィンドウに表示されます。

1. シートのオプションを使用する。 開封後 マイクロソフトビジュアルベーシック を選択します。 ワークシート > 右クリック 選択 インサート (より）。 コンテキストメニュー )>を選択します。 モジュール .

2. ツールバーを使用する。 を選択することでも行えます。 インサート (より）。 ツールバー )>を選択した場合 モジュール .

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

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

マクロの実行を作成したい ボタン を使えば、クリックするだけで選択した相手に簡単にメールを送ることができます。

ステップ1． に行ってみてください。 インサート tab> シェイプス >提供された形状のいずれかを選択します（例． 長方形：角が丸い ).

ステップ2． をドラッグしてください。 プラスアイコン を挿入したい場所に 形状 を、下の画像のように表示します。

ステップ3． 優先順位を選択する 形状充填 と 概要 カラー をクリックし、右クリックします。 テキストを編集する をクリックすると、テキストが挿入されます。

ステップ4． を使用します。 指示 を開く マイクロソフトビジュアルベーシック を挿入してください。 モジュール に以下のマクロを貼り付けます。 モジュール .

 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 ' .Sendを使用することができます End With Next r End Sub 

コードに➤がある。

1 - という変数を宣言して、マクロ処理を開始します。 対象物 と 文字列 .

2 - 走らせる VBA FOR を選択した各行に対してループし、電子メールの 送信先 , 課題 そして 本体 は、行エントリを使用しています。

3 - は変数を割り当てる。

4 - を実行します。 VBA With を入力するステートメントです。 展望 などがあります。 送信先 , メール件名 など。ここでは、マクロが実行するのは ディスプレイ 繰り出すコマンド 展望 をメールドラフトで送信します。 送信 コマンドの代わりに、または後に使用されます。 表示します。 展望 は、作成されたメールを選択された受信者に送信します。

5 - を終わらせる。 VBA FOR のループになります。

ステップ5． ワークシートに戻り、右クリックで 形状 を選択すると マクロを割り当てる から コンテキストメニュー のオプションがあります。

ステップ6． マクロを選択する（例． ExcelToOutlookSR )の下に マクロ名 を選択し でのマクロ というオプションがあります。 このワークブック .クリック よっしゃー .

ステップ7． ワークシートで、1人または複数の従業員を選択し、[OK]をクリックします。 形状ボタン .

ステップ8． エクセルのプロンプト 展望 を昼食に、選択した従業員にメールを作成または送信します。 従業員のうち2人を選択すると、次のようになります。 展望 は、送信可能な2種類のメールドラフトを生成します。

マクロが提供するだけなので ディスプレイ コマンドを使用します。 展望 は、メールの下書きを表示するだけで、送信はしません。 送信 コマンドから自動的にメールを送信することができます。 エクセル まで 展望 セル入力で

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

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

の目標達成後、自動的にメールを送信する場合はどうすればよいでしょうか。 エクセル まで 展望 Macroコードで簡単にできます。

とすると、次のようになります。 四半期別売上高データ を達成すると、下図のようになります。 売上高> 2000 ) が自動的に表示されます。 展望 を使うと、Excelから指定されたEメールIDにメールを送信することができます。

ステップ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 ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp = Object Dim MailsBody As String Set Rng = Target.Value ⌖(Rang) As String End If End Sub Exit Sub ExcelToOutlook(ByVal MD) Set mMail = Target.Value ⌖ (Rang.Value) As StringCreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Greetings Sir" & vbNewLine & vbNewLine & _"Our outlet has quarterly Sales more than target." & vbNewLine & _"It's a confirmation mail." & vbNewLine & _"Regards" & vbNewLine & _"Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = ""..BCC = "" .Subject = "売上目標達成のお知らせ" .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 ステートメントを実行した場合、その結果が 真 で、そのマクロは別のマクロを呼び出して実行する。

2 - 変数の型を宣言し、それを代入する 展望 のエントリーです。

3 - 行う VBA With 文を使って、電子メールのエントリに変数を割り当てることができます。 送信 コマンドの代わりに ディスプレイ 受信者の電子メールはマクロ内に挿入されます。 受信者の電子メールIDを自動的に挿入したい場合は、別の方法を使用してください。

4 - 特定の変数を代入から解除する。

ステップ2． を使用します。 F5 キーを押してマクロを実行すると、すぐにExcelが 展望 をクリックすると、以下のように自動的に下書きメールが作成されます。 送信 を使って自動送信することもできます。 送信 コマンドをマクロで実行します。

続きを読む セルの内容をもとにExcelから自動的にメールを送信する（2つの方法）

類似の読み物

• 共有されたExcelファイルに誰がいるか確認する方法（簡単な手順付き）
• Excelでワークブックを共有できるようにする
• Excelファイルを複数のユーザーで共有する方法
• Excelから添付ファイル付きメールを送信するマクロを適用する方法

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

あるいは、「Second」全体を送信する必要がある場合もあります。 アクティブシート を割り当てられたメールアドレスに送信します。 その際、そのメールアドレスに対して 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 be used .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" 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 & _ "Regards" &.Get Outlook!vbNewLine & _ "アウトレットチーム" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Successfully created Mail draft or Sent" End If End Sub 

➤ 上の画像から、コードの部分。

1 - を宣言し、変数を設定します。

2 - を使用して、コマンドを割り当てます。 VBA With ステートメントを使用します。 ディスプレイ または 送信 コマンドで、それぞれメールを確認したり、直接送信したりすることができます。

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

4 - を割り当てる。 VBA With コマンドをテキストで表示します。

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

ステップ2． を押すとマクロが実行されます。 F5 をクリックすると、瞬時にExcelが表示されます。 展望 という下書きのメールが表示されます。 その後、送信してください。

続きを読む Excelを使ってOutlookから一括でメールを送信する方法（3つの方法）

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

があります。 ハイパーリンク は、Excelのセルにクリック可能なリンクを生成し、そのリンクから 展望 を、Excelからメールを自動送信するためのメディアとして提供します。

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

があります。 ハイパーリンク 関数が取る MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G" 5として リンクロケーション そして "ここをクリック" かわりに フレンドリ名 .

ステップ2． ヒット エンタメ をクリックし、リンクを貼り付けます。

ステップ3． エクセルでは、次のようになります。 展望 そして、あなたはすべての 展望 をクリックすると、Excelから割り当てられたデータが入力されます。 送信 .

ステップ4． をドラッグしてください。 フィルハンドル をクリックすると、その数式を他のセルに適用することができます。

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

結論

VBAマクロのバリエーション と ハイパーリンク この機能は、ExcelからOutlookに自動的にメールを送信する際に役立ちます。 上記の方法の中から、お好みの方法を見つけられるといいですね。 さらにお問い合わせや追加事項がある場合は、コメントください。