Como receber uma notificação por e-mail quando um destinatário abrir o seu anexo do Excel?
Ao enviar informações importantes num ficheiro do Excel em anexo, pode ser extremamente útil saber se o destinatário já abriu o ficheiro. Com o VBA, é possível criar um código que dispare automaticamente uma notificação por e-mail assim que o destinatário abrir o livro. Este guia mostra-lhe como configurar essa funcionalidade no Excel, garantindo que recebe uma confirmação sempre que o ficheiro em anexo for acedido.
Desencadear uma notificação por e-mail quando um anexo do Excel é aberto utilizando código VBA
Desencadear uma notificação por e-mail quando um anexo do Excel é aberto utilizando código VBA
Nota: Este método só está disponível quando utiliza o Outlook como programa de correio eletrónico.
Antes de enviar este ficheiro do Excel, deverá criar um código da seguinte forma:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Em seguida, faça duplo clique em ThisWorkbook na secção VBAProject para abrir um módulo em branco e, depois, copie e cole o seguinte código no módulo:
Código VBA: Enviar um e-mail quando o ficheiro do Excel for aberto:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Nota: No código acima, substitua o endereço de e-mail pelo seu próprio — aquele para o qual pretende receber a notificação — e ajuste o assunto conforme necessário.
3. Em seguida, guarde este livro como tipo de ficheiro Livro do Excel Ativado para Macros, conforme ilustrado na captura de ecrã:
4. Depois, envie uma mensagem com este ficheiro em anexo aos destinatários pretendidos. Assim que estes descarregarem e abrirem o ficheiro do Excel e ativarem o código, receberá automaticamente um e-mail de notificação a indicar quem abriu o ficheiro, tal como mostrado na seguinte captura de ecrã:
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