Как отправить напоминание или уведомление по электронной почте, если книга обновлена ​​в Excel?

В некоторых случаях вам может потребоваться инициировать уведомление по электронной почте указанному получателю, если в отправленной вами рабочей книге есть обновленные данные. В этой статье будет показан метод, как этого добиться.

Отправить напоминание или уведомление по электронной почте, если книга обновлена ​​кодом VBA

Отправить напоминание или уведомление по электронной почте, если книга обновлена ​​кодом VBA

Чтобы отправить напоминание или уведомление по электронной почте, если книга обновлена, сделайте следующее.

1. В книге откройте указанный рабочий лист, и вы отправите уведомление по электронной почте на основе обновленных данных внутри.

2. Щелкните вкладку листа правой кнопкой мыши и выберите Просмотреть код из контекстного меню. Смотрите скриншот:

2. в Microsoft Visual Basic для приложений window, скопируйте и вставьте следующий код в окно кода. Смотрите скриншот:

Код 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 = "Адрес электронной почты". И измените поля Cc, Subject, а также body в коде VBA, как вам нужно.

3. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. После редактирования ячейки на листе Kutools for Excel Появится диалоговое окно, как показано на снимке экрана ниже. Если вы хотите прикрепить обновленную книгу к электронному письму, нажмите кнопку Да кнопка. Если нет, щелкните Нет .

5. Затем автоматически создается электронное письмо с обновленной рабочей книгой или без нее. Все указанные поля включены в электронное письмо. Нажмите кнопку Отправьте кнопку, чтобы отправить его.

Внимание: Код VBA работает только при использовании Outlook в качестве почтовой программы.

Статьи по теме:

• Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
• Как отправить электронное письмо через Outlook, когда книга сохранена в Excel?
• Как отправить электронное письмо, если определенная ячейка изменена в Excel?
• Как отправить электронное письмо, если в Excel нажата кнопка?
• Как отправить электронное письмо, если срок в Excel соблюден?