Como enviar um e-mail através do Outlook ao guardar a pasta de trabalho no Excel?
Este guia mostra como enviar automaticamente um e-mail pelo Outlook sempre que uma determinada pasta de trabalho for guardada no Excel. Com um código VBA simples, garante que as atualizações à sua pasta de trabalho sejam partilhadas de forma contínua.
Enviar um e-mail através do Outlook quando a pasta de trabalho for guardada com código VBA
Enviar um e-mail através do Outlook quando a pasta de trabalho for guardada com código VBA
Para enviar um e-mail através do Outlook ao guardar a pasta de trabalho no Excel, siga os passos seguintes.
1. Em primeiro lugar, guarde a pasta de trabalho como uma Pasta de Trabalho Ativada para Macros do Excel. Clique em Ficheiro > Guardar Como. Na caixa de diálogo Guardar Como, escolha uma pasta para guardar a pasta de trabalho, introduza um nome na caixa Nome do ficheiro, selecione Pasta de Trabalho Ativada para Macros do Excel na lista suspensa Especificar Formato de Salvamento e, em seguida, clique no botão Guardar. Veja a imagem:
2. Abra a Pasta de Trabalho Ativada para Macros do Excel que acabou de guardar e, em seguida, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Na janela do Microsoft Visual Basic para Aplicações, clique duas vezes em EsteLivro na barra à esquerda e, em seguida, copie e cole o seguinte código VBA na janela de código do EsteLivro. Veja a imagem:
Código VBA: Enviar e-mail quando a pasta de trabalho for guardada
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set 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». Modifique os campos Cc, Assunto e Corpo no código VBA conforme necessário.
3. Prima simultaneamente as teclas Alt+Q para fechar a janela do Microsoft Visual Basic para Aplicações.
A partir de agora, sempre que atualizar e guardar a pasta de trabalho, será automaticamente criado um e-mail com a pasta de trabalho atualizada anexada. Clique no botão Enviar para enviar o e-mail. Veja a imagem:
Nota: Este código VBA só funciona se utilizar o Outlook como o 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 automaticamente sempre que uma determinada célula for modificada 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