Как отправить напоминание или уведомление по электронной почте при обновлении книги в Excel?
Иногда возникает необходимость отправить уведомление по электронной почте указанному получателю, если в отправленной вами книге обновились данные. В этой статье описан способ реализации такой функциональности.
Отправка напоминания или уведомления по электронной почте при обновлении книги с помощью кода VBA
Отправка напоминания или уведомления по электронной почте при обновлении книги с помощью кода VBA
Выполните следующие действия, чтобы настроить отправку напоминания или уведомления по электронной почте при обновлении книги.
1. Откройте в книге нужный лист, на основе обновлённых данных которого будет отправляться уведомление по электронной почте.
2. Щёлкните правой кнопкой мыши по ярлыку листа и выберите в контекстном меню пункт Просмотреть код. См. снимок экрана:
2. В окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код в окно редактора кода. См. снимок экрана:
Код 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, тему и текст сообщения в коде VBA.
3. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
4. После редактирования ячейки на листе появится диалоговое окно Kutools для Excel, как показано на снимке экрана ниже. Если вы хотите прикрепить обновлённую книгу к письму, нажмите кнопку Да. В противном случае нажмите кнопку Нет.
5. Затем автоматически создаётся письмо с прикреплённой обновлённой книгой или без неё, включающее все указанные поля. Нажмите кнопку Отправить, чтобы отправить его.
Примечание: этот код VBA работает только при использовании Outlook в качестве программы электронной почты.
Связанные статьи:
- Как настроить автоматическую отправку электронного письма в зависимости от значения ячейки в Excel?
- Как отправить электронное письмо через Outlook при сохранении книги в Excel?
- Как отправить электронное письмо при изменении определённой ячейки в Excel?
- Как отправить электронное письмо одним нажатием кнопки в Excel?
- Как отправить электронное письмо, когда в Excel выполнено условие «Срок выполнения»?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек