Як надіслати електронне повідомлення, якщо в 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:
повне г, повне г,, показали, від, номер, XNUMX Надіслати електронні листи корисність Kutools для Excel допомагає надсилати електронну пошту через Outlook на основі полів створеного списку розсилки в Excel.
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)
Статті по темі:
- Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
- Як надіслати електронне повідомлення через Outlook, коли книга зберігається в Excel?
- Як надіслати електронну пошту, якщо певна комірка змінена в Excel?
- Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
- Як надіслати нагадування або сповіщення електронною поштою, якщо книгу оновлено в Excel?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!



































