Как отправить электронное письмо, если в Excel нажата кнопка?

Предположим, вам нужно отправить электронное письмо через Outlook, нажав кнопку на листе Excel, как это сделать? В этой статье будет подробно представлен метод VBA для достижения этой цели.

Отправить электронное письмо, если нажата кнопка с кодом VBA

Отправить электронное письмо, если нажата кнопка с кодом VBA

Пожалуйста, сделайте следующее, чтобы отправить электронное письмо через Outlook, если в книге Excel нажата кнопка Command.

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

4. нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

5. Выключите режим дизайна, нажав Застройщик > Режим проектирования. Смотрите скриншот:

С этого момента, каждый раз, когда вы нажимаете кнопку Command, автоматически будет создаваться электронное письмо с указанными получателями, темой и текстом. Пожалуйста, отправьте электронное письмо, нажав кнопку Отправить .

Внимание: Код VBA работает только при использовании Outlook в качестве почтовой программы.

Статьи по теме:

• Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
• Как отправить электронное письмо через Outlook, когда книга сохранена в Excel?
• Как отправить электронное письмо, если определенная ячейка изменена в Excel?
• Как отправить электронное письмо, если срок в Excel соблюден?
• Как отправить напоминание или уведомление по электронной почте, если книга обновлена ​​в Excel?