Як надіслати електронне повідомлення, якщо в Excel натиснуто кнопку?
Припустимо, що вам потрібно надіслати електронну пошту через Outlook, натиснувши кнопку на аркуші Excel, як ви можете це зробити? У цій статті буде представлено метод VBA для детального його досягнення.
Надіслати електронний лист, якщо на кнопку натиснуто код VBA
Надіслати електронний лист, якщо на кнопку натиснуто код VBA
Будь ласка, виконайте наступні дії, щоб надіслати електронне повідомлення через Outlook, якщо в робочій книзі Excel натиснуто кнопку команди.
1. Вставте командну кнопку у свій аркуш, натиснувши Розробник > Insert > Кнопка керування (керування ActiveX). Дивіться знімок екрана:
2. Клацніть правою кнопкою миші на вставлену командну кнопку, а потім натисніть Переглянути код з меню правої кнопки миші, як показано на знімку екрана.
3. На відкритті Microsoft Visual Basic для додатків вікно, будь ласка, замініть оригінальний код у вікні коду таким сценарієм VBA.
Код VBA: Надіслати електронний лист, якщо в Excel натиснуто кнопку
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
примітки:
1). Будь ласка, змініть текст електронної пошти, як вам потрібно в xMailBody рядок у коді.
2). Замініть Адреса електронної пошти з адресою електронної пошти одержувача .To = "Адреса електронної пошти".
3). Вкажіть одержувачів копії та прихованої копії, як вам потрібно .CC = "" та .Bcc = "" розділи.
4). Змініть тему повідомлення в рядку .Subject = "Перевірити надсилання електронного листа натисканням кнопки".
4 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.
5. Вимкніть режим дизайну, клацнувши Розробник > Режим дизайну. Дивіться знімок екрана:
Відтепер кожного разу, коли ви натискаєте на кнопку команди, автоматично створюватиметься електронний лист із зазначеними одержувачами, темою та текстом. Будь ласка, надішліть електронне повідомлення, натиснувши Відправити кнопки.
примітки: Код VBA працює лише тоді, коли ви використовуєте Outlook як програму електронної пошти.
Легко надсилайте електронну пошту через Outlook на основі полів створеного списку розсилки в Excel:
Команда Надіслати електронні листи корисність Kutools для Excel допомагає надсилати електронну пошту через Outlook на основі полів створеного списку розсилки в Excel.
Завантажте та спробуйте зараз! (30 днів безкоштовно)
Статті по темі:
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
- Як надіслати електронне повідомлення через Outlook, коли книга зберігається в Excel?
- Як надіслати електронну пошту, якщо певна комірка змінена в Excel?
- Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
- Як надіслати нагадування або сповіщення електронною поштою, якщо книгу оновлено в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!