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! (30-dia de trilha livre)
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?
As melhores ferramentas de produtividade para escritório
Kutools for Excel Resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Guia do Office traz 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!














































