Як надіслати електронне повідомлення, якщо в 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 як програму електронної пошти.

Статті по темі:

• Як автоматично надсилати електронну пошту на основі значення комірки в Excel?
• Як надіслати електронне повідомлення через Outlook, коли книга зберігається в Excel?
• Як надіслати електронну пошту, якщо певна комірка змінена в Excel?
• Як надіслати електронне повідомлення, якщо термін виконання досягнуто в Excel?
• Як надіслати нагадування або сповіщення електронною поштою, якщо книгу оновлено в Excel?

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

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

Детальніше ... Завантажити безкоштовно... Придбати ...