Как отправить электронное письмо при нажатии кнопки в Excel?
Предположим, вам нужно отправить электронное письмо через Outlook, нажав на кнопку в листе Excel. Как это сделать? В этой статье мы подробно рассмотрим метод VBA для достижения этой цели.
Отправка электронного письма при нажатии кнопки с помощью кода VBA
Отправка электронного письма при нажатии кнопки с помощью кода VBA
Выполните следующие действия, чтобы отправить электронное письмо через Outlook при нажатии кнопки команды в книге Excel.
1. Вставьте кнопку команды на ваш рабочий лист, нажав Разработчик > Вставить > Кнопка команды (Элемент управления ActiveX). См. скриншот:
2. Щелкните правой кнопкой мыши вставленную кнопку команды, затем выберите Просмотр кода из контекстного меню, как показано на скриншоте ниже.
3. В открывшемся окне Microsoft Visual Basic for Applications замените исходный код в окне Код на следующий сценарий 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. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.
5. Отключите режим конструктора, нажав Разработчик > Режим конструктора. См. скриншот:
С этого момента каждый раз, когда вы нажимаете кнопку команды, электронное письмо будет создаваться автоматически с указанными получателями, темой и текстом. Пожалуйста, отправьте письмо, нажав кнопку Отправить.
Примечание: Код VBA работает только тогда, когда вы используете Outlook в качестве программы электронной почты.
Легко отправляйте электронные письма через Outlook на основе полей созданного списка рассылки в Excel:
Утилита Отправить письма из Kutools для Excel помогает отправлять электронные письма через Outlook на основе полей созданного списка рассылки в Excel.
Скачайте и попробуйте прямо сейчас!
Связанные статьи:
- Как автоматически отправлять электронные письма на основе значения ячейки в Excel?
- Как отправить электронное письмо через Outlook при сохранении книги в Excel?
- Как отправить электронное письмо при изменении определенной ячейки в Excel?
- Как отправить электронное письмо при наступлении даты в Excel?
- Как отправить напоминание или уведомление по электронной почте при обновлении книги в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек