Como enviar um lembrete ou notificação por e-mail sempre que a pasta de trabalho for atualizada no Excel?
Em alguns casos, poderá precisar de enviar automaticamente uma notificação por e-mail para um destinatário específico sempre que os dados da pasta de trabalho que partilhou forem atualizados. Este artigo mostra-lhe como o fazer.
Enviar lembrete ou notificação por e-mail se a pasta de trabalho for atualizada com código VBA
Enviar lembrete ou notificação por e-mail se a pasta de trabalho for atualizada com código VBA
Siga estes passos para enviar um lembrete ou notificação por e-mail sempre que a pasta de trabalho for atualizada.
1. Na pasta de trabalho, abra a folha de cálculo especificada a partir da qual enviará a notificação por e-mail com base nos dados atualizados.
2. Clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto. Veja a imagem:
2. Na janela Microsoft Visual Basic para Aplicações, copie e cole o seguinte código na janela de código. Veja a imagem:
Código VBA: Enviar lembrete ou notificação por e-mail se a pasta de trabalho for atualizada
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End SubNota: Substitua Endereço de Email pelo endereço de e-mail do destinatário na linha .To = «Endereço de Email». Altere também os campos Cc, Assunto e corpo do e-mail no código VBA conforme necessário.
3. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações.
4. Após editar uma célula na folha de cálculo, aparecerá uma caixa de diálogo Kutools para Excel, como mostrado na imagem seguinte. Se pretender anexar a pasta de trabalho atualizada ao e-mail, clique no botão Sim. Caso contrário, clique no botão Não.
5. Em seguida, será criado automaticamente um e-mail, com ou sem a pasta de trabalho atualizada anexada. Todos os campos especificados estarão incluídos na mensagem. Clique no botão Enviarpara enviar o e-mail.
Nota: O código VBA só funciona se utilizar o Outlook como seu programa de correio eletrónico.
Artigos relacionados:
- Como enviar automaticamente um e-mail com base no valor de uma célula no Excel?
- Como enviar um e-mail pelo Outlook ao guardar a pasta de trabalho no Excel?
- Como enviar um e-mail automaticamente sempre que uma determinada célula for modificada no Excel?
- Como enviar um e-mail se um botão for clicado no Excel?
- Como enviar um e-mail se Data de Vencimento tiver sido cumprido 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