Як надіслати нагадування або сповіщення електронною поштою, якщо книгу оновлено в 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, Subject, а також поля body у коді VBA, як вам потрібно.
3 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.
4. Після редагування комірки на аркуші a Kutools for Excel з'явиться діалогове вікно, як показано нижче. Якщо ви хочете прикріпити оновлену книгу до електронного листа, натисніть кнопку Так кнопку. Якщо ні, натисніть Немає кнопки.
5. Потім електронне повідомлення створюється автоматично з доданою оновленою книгою або без неї. І всі зазначені поля також вказані в електронному листі. Клацніть на Відправити кнопку, щоб надіслати його.
примітки: Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.
Статті по темі:
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
- Як надіслати електронне повідомлення через Outlook, коли книга зберігається в Excel?
- Як надіслати електронну пошту, якщо певна комірка змінена в Excel?
- Як надіслати електронне повідомлення, якщо в Excel натиснуто кнопку?
- Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
