Como enviar e-mail se o botão for clicado no Excel?

Supondo que você precise enviar um e-mail pelo Outlook clicando em um botão em uma planilha do Excel, como você pode fazer isso? Este artigo apresentará um método VBA para conseguir isso em detalhes.

Enviar e-mail se o botão for clicado com o código VBA

Enviar e-mail se o botão for clicado com o código VBA

Faça o seguinte para enviar um e-mail pelo Outlook se um botão de comando for clicado na pasta de trabalho do Excel.

1. Insira um botão de comando em sua planilha clicando em Developer > inserção > Botão de comando (controle ActiveX). Veja a imagem:

2. Clique com o botão direito do mouse no botão de comando inserido e clique em Ver código no menu do botão direito como mostra a captura de tela abaixo.

3. Na abertura Microsoft Visual Basic para Aplicações janela, substitua o código original na janela Código com o seguinte script VBA.

Código VBA: Enviar e-mail se o botão for clicado no 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. aperte o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.

5. Desative o modo de design clicando em Developer > Modo de design. Veja a imagem:

De agora em diante, toda vez que você clicar no Botão de Comando, um e-mail será criado automaticamente com destinatários, assunto e corpo especificados. Envie o e-mail clicando no Submeter botão.

Note: O código VBA só funciona quando você usa o Outlook como seu programa de e-mail.

Artigos relacionados:

• Como enviar e-mail automaticamente com base no valor da célula no Excel?
• Como enviar um email pelo Outlook quando a pasta de trabalho é salva no Excel?
• Como enviar email se uma determinada célula é modificada no Excel?
• Como enviar e-mail se a data de vencimento foi cumprida no Excel?
• Como enviar lembrete ou notificação por e-mail se a pasta de trabalho for atualizada no Excel?