Como enviar um e-mail automaticamente sempre que uma célula específica for alterada no Excel?
Este artigo explica como enviar um e-mail através do Outlook sempre que uma célula numa determinada gama for modificada no Excel.
Enviar e-mail se uma célula numa determinada gama for modificada com código VBA
Enviar e-mail se uma célula numa determinada gama for modificada com código VBA
Se precisar de criar automaticamente um novo e-mail com a pasta de trabalho atual anexada sempre que uma célula no intervalo A2:E11 for modificada numa determinada folha de cálculo, o seguinte código VBA pode ajudá-lo.
1. Na folha de cálculo em que pretende enviar um e-mail com base na célula modificada dentro de uma determinada gama, clique com o botão direito no separador da folha e, em seguida, clique em Ver Código no menu de contexto. Veja a imagem:
2. Na janela Microsoft Visual Basic para Aplicações que surge, copie e cole o código VBA abaixo na janela de Código.
Código VBA: Enviar e-mail se uma célula numa Intervalo limitado for modificada no Excel
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubNotas:
3. Prima simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações.
A partir de agora, sempre que qualquer célula no intervalo A2:E11 for modificada, será criado um novo e-mail com a pasta de trabalho atualizada anexada. Todos os campos especificados — como assunto, destinatário e corpo da mensagem — serão preenchidos automaticamente. Basta enviar o e-mail.
Nota: O código VBA só funciona se estiver a utilizar o Outlook como cliente de correio eletrónico.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como enviar automaticamente um e-mail com base no valor de uma célula no Excel?
- Como enviar um e-mail através do Outlook ao guardar a pasta de trabalho no Excel?
- Como enviar um e-mail ao clicar num botão no Excel?
- Como enviar um e-mail quando a Data de Vencimento for atingida no Excel?
- Como enviar um lembrete ou notificação por e-mail sempre que a pasta de trabalho for atualizada no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos