ワークブックがExcelで更新された場合、メールリマインダや通知を送信するにはどうすればよいですか?
特定のケースでは、送信したワークブック内のデータが更新された場合、指定された受信者にメール通知をトリガーする必要があるかもしれません。この記事では、その方法をご紹介します。
VBAコードを使用して、ワークブックが更新された際にメールリマインダや通知を送信する
VBAコードを使用して、ワークブックが更新された際にメールリマインダや通知を送信する
ワークブックが更新された場合にメールリマインダや通知を送信するには、次の手順を行ってください。
1. ワークブック内で、更新されたデータに基づいてメール通知を送信する指定されたワークシートを開きます。
2. シートタブを右クリックし、右クリックメニューから「 表示コード」を選択します。スクリーンショットをご覧ください:
2. Microsoft Visual Basic for Applicationsウィンドウで、次のコードをコピーしてコードウィンドウに貼り付けます。スクリーンショットをご覧ください:
VBAコード: ワークブックが更新された場合にメールリマインダや通知を送信する
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
注釈: 行.To = "Email Address" の「Email Address」を受信者のメールアドレスに置き換えてください。また、必要に応じてVBAコード内のCc、件名、本文フィールドも変更してください。
3. Alt + Qキーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。
4. ワークシート内のセルを編集すると、下記のスクリーンショットのようにKutools for Excelダイアログボックスがポップアップ表示されます。更新されたワークブックをメールに添付したい場合は、「はい」ボタンをクリックしてください。そうでない場合は、「いいえ」ボタンをクリックします。
5. その後、更新されたワークブックが添付されているかどうかに関わらず、メールが自動的に作成されます。すべての指定されたフィールドがメールに含まれています。送信ボタンをクリックして送信してください。
注釈: このVBAコードは、Outlookをメールプログラムとして使用している場合にのみ動作します。
関連記事:
- Excelでセル値に基づいて自動的にメールを送信するにはどうすればよいですか?
- Excelでワークブックが保存されたときにOutlook経由でメールを送信するにはどうすればよいですか?
- Excelで特定のセルが変更された場合にメールを送信するにはどうすればよいですか?
- Excelでボタンがクリックされた場合にメールを送信するにはどうすればよいですか?
- Excelで期日が到来した場合にメールを送信するにはどうすればよいですか?
最高のオフィス業務効率化ツール
🤖 | Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Execution|コード生成|カスタム数式の作成|データの分析とグラフの生成|Kutools Functionsの呼び出し…… |
人気の機能:重複の検索・ハイライト・重複をマーキング|空白行を削除|データを失わずに列またはセルを統合|丸める…… | |
スーパーLOOKUP:複数条件でのVLookup|複数値でのVLookup|複数シートの検索|ファジーマッチ…… | |
高度なドロップダウンリスト:ドロップダウンリストを素早く作成|連動ドロップダウンリスト|複数選択ドロップダウンリスト…… | |
列マネージャー:指定した数の列を追加 |列の移動 |非表示列の表示/非表示の切替| 範囲&列の比較…… | |
注目の機能:グリッドフォーカス|デザインビュー|強化された数式バー|ワークブック&ワークシートの管理|オートテキスト ライブラリ|日付ピッカー|データの統合 |セルの暗号化/復号化|リストで電子メールを送信|スーパーフィルター|特殊フィルタ(太字/斜体/取り消し線などをフィルター)…… | |
トップ15ツールセット:12 種類のテキストツール(テキストの追加、特定の文字を削除など)|50種類以上のグラフ(ガントチャートなど)|40種類以上の便利な数式(誕生日に基づいて年齢を計算するなど)|19 種類の挿入ツール(QRコードの挿入、パスから画像の挿入など)|12 種類の変換ツール(単語に変換する、通貨変換など)|7種の統合&分割ツール(高度な行のマージ、セルの分割など)|… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減!
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。





- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得