Как отправить письмо одним нажатием кнопки в Excel?
Представьте, что вам нужно отправить письмо через Outlook, просто нажав кнопку на листе Excel. Как это реализовать? В этой статье подробно описан метод с использованием кода VBA.
Отправка письма при нажатии кнопки с помощью кода VBA
Отправка письма при нажатии кнопки с помощью кода VBA
Выполните следующие действия, чтобы отправлять письмо через Outlook при нажатии кнопки управления в книге Excel.
1. Вставьте кнопку управления на лист, выбрав Разработчик > Вставить > Кнопка управления (элемент управления 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) по своему усмотрению в разделах .CC = “” и .Bcc = “”.
4). Измените тему письма в строке .Subject = «Test email send by button clicking».
4. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек