Как отправить напоминание или уведомление по электронной почте, если книга обновлена в 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 соблюден?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!