Как да изпратите имейл напомняне или известие, ако работната книга е актуализирана в 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 за Excel ще се появи диалогов прозорец, както е показано на екранната снимка по-долу. Ако искате да прикачите актуализираната работна книга в имейла, моля, щракнете върху Да бутон. Ако не, щракнете върху Не бутон.
5. След това автоматично се създава имейл със или без прикачена актуализирана работна книга. И всички посочени полета също са изброени в имейла. Моля, щракнете върху Изпрати бутон, за да го изпратите.
Забележка: VBA кодът работи само когато използвате Outlook като своя имейл програма.
Още по темата:
- Как автоматично да изпращате имейл въз основа на стойността на клетката в Excel?
- Как да изпратите имейл през Outlook, когато работната книга е запазена в Excel?
- Как да изпратите имейл, ако определена клетка е променена в Excel?
- Как да изпратите имейл, ако бутонът е щракнат в Excel?
- Как да изпратите имейл, ако срокът е спазен в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!