Como enviar e-mail automaticamente com base no valor da célula no Excel?
Suponha que você queira enviar um e-mail através do Outlook para um determinado destinatário com base em um valor de célula especificado no Excel. Por exemplo, quando o valor da célula D7 em uma planilha é maior que 200, um e-mail é criado automaticamente. Este artigo apresenta um método VBA para você resolver rapidamente esse problema.
Enviar e-mail automaticamente com base no valor da célula com código VBA
Enviar e-mail automaticamente com base no valor da célula com código VBA
Faça o seguinte para enviar um e-mail com base no valor da célula no Excel.
1. Na planilha, você precisa enviar e-mail com base no valor da célula (aqui diz a célula D7), clique com o botão direito na guia da planilha e selecione Ver código no menu de contexto. Veja a imagem:
2. No popping up Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo na janela de código da planilha.
Código VBA: enviar e-mail pelo Outlook com base no valor da célula no Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Notas:
3. aperte o outro + Q chaves juntas para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, quando o valor inserido na célula D7 for maior que 200, um e-mail com destinatários e corpo especificados será criado automaticamente no Outlook. Você pode clicar no ENVIAR botão para enviar este e-mail. Veja a imagem:
Notas:
1. O código VBA só funciona quando você usa o Outlook como seu programa de e-mail.
2. Se os dados inseridos na célula D7 forem um valor de texto, a janela de e-mail também será exibida.
Envie e-mails facilmente pelo Outlook com base nos campos da lista de e-mails criada no Excel:
O Mande emails utilidade de Kutools for Excel ajuda os usuários a enviar e-mail através do Outlook com base na lista de mala direta criada no Excel.
Baixe e experimente agora! (trilha gratuita de 30 dias)
Artigos relacionados:
- 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 o botão for clicado 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?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for Excel Oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!













