特定のExcelワークシートが更新されたときにOutlookの電子メール通知を自動送信する方法

Outlookソリューション 2025 年 9 月 29 日

特定のExcelワークシートを更新するたびに、特定の受信者に常に電子メール通知を送信する必要がある場合は、この記事で紹介した方法を利用できます。

一部のユーザーは、特定のワークシートを更新するたびに、MSExcelが特定の人にOutlookの電子メール通知を自動的に送信するようにするソリューションを求めています。以下では、VBAコードを使用してこの機能を実現する方法を説明します。

特定のExcelワークシートが更新されたときに電子メールを自動送信する

まず、特定のワークシートを含むソースExcelブックにアクセスします。
次に、MS Excelウィンドウで、[ファイル]メニューに移動し、[オプション]を選択します。
次に、「Excelのオプション」ウィンドウで「セキュリティセンター」タブに切り替え、「セキュリティセンターの設定」ボタンをクリックします。
続いて、新しいウィンドウで、[マクロ設定]タブに移動します。このタブで、[すべてのマクロを有効にする]を選択する必要があります。
その後、「プライバシーオプション」タブに移動し、「保存時にファイルプロパティから個人情報を削除する」機能を有効にします。
次に、いくつかの「OK」をクリックしてこれらの設定を保存します。
Excelブックに戻った後、特定のワークシートにアクセスします。
下部のサイドバーにあるワークシート名を右クリックして、[コードの表示]を選択します。
その後、次のVBAコードを特定のシートのプロジェクトにコピーします。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nConfirmation As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
 
    nConfirmation = MsgBox("Do you want to send an email notification about the sheet updating now?", vbInformation + vbYesNo, "Mail Sheet Updates")
 
    If nConfirmation = vbYes Then
       ActiveWorkbook.Save

       On Error Resume Next
       Set objOutlookApp = CreateObject("Outlook.Application")
       Set objMail = objOutlookApp.CreateItem(olMailItem)
  
       'Change the email details as per your needs
       With objMail
           .To = "test@datanumen.com"
           .Subject = "Email Notifying Sheet Updates"
           .Body = "Hi," & vbCrLf & vbCrLf & "The worksheet " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " in this Excel workbook attachment is updated."
           'Attach this workbook
           .Attachments.Add ActiveWorkbook.FullName
           .Send
      End With
    End If
End Sub

その後、このブックをExcelマクロ対応ブックとして保存する必要があります。

まず、「Microsoft Visual BasicforApplications」ウィンドウを閉じます。
次に、左上隅の「ファイル」をクリックします。
次に、「名前を付けて保存」を選択します。
ダイアログボックスで、[ファイルの種類]フィールドで[Excelマクロ対応ブック]を選択します。
最後に、「保存」ボタンをクリックします。

最後に、このワークブックを閉じることができます。
これで、以前に保存したExcelマクロ対応のブックを開くことができます。
特定のワークシートに変更を加えると、電子メール通知を送信するかどうかを尋ねるメッセージが表示されます。
「はい」ボタンをクリックすると、Outlookの電子メールが事前定義された受信者に送信されます。
このメールは以下のスクリーンショットのようになります。

破損したOutlookデータファイルを修復する

たぶんあなたはExcelファイルの破損に遭遇したことがあります。実際、OutlookのデータファイルはExcelファイルと同じように脆弱です。たとえば、Outlookを不適切に閉じると、PSTファイルがすぐに破損する可能性があります。したがって、定期的なデータバックアップの作成や、次のような堅牢なPST修正ツールの準備など、Outlookファイルを保護するためのアクションを実行することが不可欠です。 DataNumen Outlook Repair。このユーティリティは十分に強力です PSTを修復する PSTデータを発行して回復します。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修正と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com