ワークブックが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で期日が到来した場合にメールを送信するにはどうすればよいですか？