Перейти к содержимому

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

Author: Siluvia Last Modified: 2025-06-05

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

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


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

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

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

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

A screenshot of selecting View Code from the right-click menu on an Excel sheet tab

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 = "Адрес Электронной Почты". Также измените поля Копия, Тема и текст письма в коде VBA по необходимости.

3. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

A screenshot of the Kutools for Excel prompt to attach an updated workbook in the email notification

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

A screenshot of an automatically generated email with workbook attachment in Excel

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


Связанные статьи:

Лучшие инструменты для повышения продуктивности работы с Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных на основе: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Расширенных функций Kutools
Популярные функции: Найти, выделить или отметить дубликаты | Удалить пустые строки | Объединить столбцы или ячейки без потери данных |   Округлить без формулы ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP с несколькими значениями | Многолистовой поиск | Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Избранные функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгами и листами | Библиотека автотекста | Выбор даты | Объединить данные | Шифрование/расшифровка ячеек | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр ячеек с жирным/курсивом/зачёркнутым...) ...
Топ-15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ практических формул (Расчет возраста на основе даты рождения, ...) |19 инструментов вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов для объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое

Ускорьте работу в Excel с Kutools для Excel и ощутите новую степень эффективности. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Нажмите здесь, чтобы выбрать нужную вам функцию...


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!