Як надіслати електронне повідомлення через Outlook, коли книга зберігається в Excel?
У цій статті йдеться про надсилання електронного листа через Outlook, коли певна книга зберігається в Excel. Будь ласка, виконуйте, як показано в підручнику.
Надішліть електронне повідомлення через Outlook, коли книга зберігається з кодом VBA
Надішліть електронне повідомлення через Outlook, коли книга зберігається з кодом VBA
Для надсилання електронного листа через Outlook, коли книга зберігається в Excel, виконайте наступні дії.
1. Спочатку збережіть книгу як книгу з підтримкою макросів Excel. Клацніть філе > Зберегти як, в Зберегти як діалоговому вікні, виберіть папку для збереження книги, назвіть її у полі Ім'я файлу, виберіть Книга Excel з підтримкою макросів від Зберегти як , а потім клацніть на зберегти кнопку. Дивіться знімок екрана:
2. Відкрийте книгу Excel з підтримкою макросів, яку ви зараз зберегли, натисніть клавішу інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікно, двічі клацніть ThisWorkbook на лівій панелі, а потім скопіюйте та вставте наведений нижче код VBA в ThisWorkbook вікно коду. Дивіться знімок екрана:
Код VBA: Надішліть електронне повідомлення, коли книга збережена
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Subпримітки: Будь ласка, замініть Адреса електронної пошти з адресою електронної пошти одержувача .To = "Адреса електронної пошти" та змініть Cc, Subject, а також поля body у коді VBA, як вам потрібно.
3 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер, коли ви оновите книгу та збережете її, електронна пошта буде створена автоматично з доданою оновленою книгою. Клацніть на Відправити , щоб надіслати електронне повідомлення. Дивіться знімок екрана:
примітки: Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.
Статті по темі:
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
- Як надіслати електронну пошту, якщо певна комірка змінена в Excel?
- Як надіслати електронне повідомлення, якщо в Excel натиснуто кнопку?
- Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
- Як надіслати нагадування або сповіщення електронною поштою, якщо книгу оновлено в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
