Como enviar um e-mail numa hora específica do dia no Excel?
Em alguns casos, poderá precisar de agendar o envio de um e-mail para uma hora específica durante o seu trabalho. Sabe como fazer isso? Este artigo mostra-lhe um método simples para enviar um e-mail a uma hora exata do dia diretamente no Excel.
Enviar um e-mail a uma hora específica do dia com código VBA
Enviar um e-mail a uma hora específica do dia com código VBA
Os seguintes códigos VBA permitem-lhe enviar um e-mail a uma hora específica do dia no Excel. Siga os passos abaixo.
1. Prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela do Módulo.
Código VBA 1: Enviar um e-mail a uma hora específica do dia no Excel
Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.Display
.To = "Email address"
.Subject = "Send email"
'HTML for fun
'.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
'.Send
End With
End Sub3. Faça duplo clique em ThisWorkbook no painel esquerdo para abrir a janela ThisWorkbook (Código) e, em seguida, copie o código VBA abaixo 2 para essa janela. Veja a imagem:
Código VBA 2: Enviar um e-mail a uma hora específica do dia no Excel
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
Application.OnTime TimeValue("11:00:00"), "SendEmail"
End SubNota: No código 2, especifique a hora de envio conforme necessário.
4. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
5. Clique em Ficheiro > Guardar Como > Procurar.
6. Na caixa de diálogo Guardar Como, escolha uma pasta para guardar a pasta de trabalho, dê-lhe o nome pretendido, selecione o formato Pasta de Trabalho do Excel Ativada para Macros na lista suspensa Especificar Formato de Salvamento e, finalmente, clique no botão Guardar. Veja a imagem:
A partir de agora, assim que chegar a hora especificada, o respetivo e-mail será apresentado automaticamente. Clique no botão Enviar para enviar este e-mail.
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 inserir uma assinatura num e-mail do Outlook ao enviá-lo por VBA no Excel?
- Como enviar um e-mail com corpo em HTML diretamente do Excel?
- Como enviar um e-mail com texto formatado em negrito, tamanho, cor ou sublinhado diretamente do Excel?
- Como enviar um e-mail sem usar o Outlook no Excel?
- Como enviar um gráfico específico por e-mail com VBA 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