Como enviar rapidamente um e-mail com base numa data contida numa célula do Excel?
Já alguma vez tentou enviar um e-mail com base numa data contida numa célula do Excel? Por exemplo, imagine que tem uma lista de datas na coluna A e pretende enviar um e-mail — com assunto e corpo da mensagem definidos — para um destinatário específico, podendo ainda incluir outros em cópia simples (Cc) ou cópia oculta (Bcc). Como resolveria esta situação?
Enviar e-mail com base numa data com VBA
Enviar e-mail com base numa data com VBA
Para enviar um e-mail com base na data no Excel, só é possível utilizar um código de macro.
1. Ative a folha que contém os dados e a data utilizada e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte no script em branco.
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub3. Clique no botão Executar ou prima a tecla F5 para executar o código. Irá aparecer uma caixa de diálogo a solicitar que selecione uma lista de datas. Veja a imagem:
4. Clique em OK e prossiga definindo o Assunto do Email, o Endereço de Email do remetente, o Endereço de Email do destinatário, bem como os campos CC, BCC e o corpo da mensagem. Veja a imagem:
 |  |  | |  |
 | ||||
 |  |  | |  |
5. Clique em OK > OK até ao último passo e o e-mail será enviado.
Nota: o endereço de e-mail do remetente tem de corresponder à conta predefinida na sua conta do Outlook.
Envie facilmente Criar Lista de Correspondência e envie e-mails no Excel |
Com o Kutools para Excel, as funcionalidades Criar Lista de Correspondência e Enviar E-mails permitem-lhe criar rapidamente uma lista de e-mails e enviar mensagens personalizadas diretamente a partir do Excel. Pode especificar destinatários, assunto e anexos, personalizar a mensagem e optar por enviar através do Outlook ou de outro servidor SMTP para campanhas de e-mail simplificadas. |
|
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já |
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