Como obter uma solicitação ou confirmação antes de enviar e-mails no Outlook?
Já alguma vez clicou em Enviar no Outlook e, momentos depois, reparou que esqueceu detalhes importantes, anexou o ficheiro errado ou detetou um erro embaraçoso? Para evitar estes contratempos, pode configurar o Outlook para mostrar uma caixa de diálogo de confirmação sempre que premir o botão Enviar — garantindo-lhe uma segunda oportunidade para rever cuidadosamente os seus e-mails antes de serem realmente enviados. Neste artigo, explicamos-lhe uma solução simples com código VBA para alcançar este objetivo.
Obtenha uma Solicitação ou Confirmação Antes de Enviar E-mails Utilizando Código VBA
Obtenha uma Solicitação ou Confirmação Antes de Enviar E-mails Utilizando Código VBA
O código VBA seguinte fará com que o Outlook lhe peça confirmação sempre que tentar enviar um e-mail, permitindo-lhe rever a sua mensagem antes do envio.
1. Prima «Alt» + «F11» para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do VBA, localize o painel «Explorador de Projetos» à esquerda. Em «Project1 (VbaProject.OTM)», faça duplo clique em «Microsoft Outlook Objects» e, de seguida, faça duplo clique em «ThisOutlookSession» para abrir a respetiva janela de código.
3. Copie e cole o seguinte código VBA na janela que se abriu:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xPrompt As String
Dim xOkOrCancel As Integer
On Error Resume Next
xPrompt = "Do you want to continue sending this email?"
xOkOrCancel = MsgBox(xPrompt, vbOKCancel + vbQuestion, "Confirm Email Sending")
If xOkOrCancel <> vbOK Then
Cancel = True
End If
End Sub

4. Prima as teclas «Alt» + «Q» para guardar e fechar o editor do VBA.
📌Resultado: A partir de agora, sempre que clicar em Enviar para enviar um e-mail no Outlook, aparecerá uma caixa de diálogo de confirmação com a pergunta: «Pretende continuar a enviar este e-mail?». Clique em «OK» para enviar ou em «Cancelar» para regressar ao e-mail e continuar a edição.

📎 Nunca Mais Esqueça um Anexo no Email!
Cansado de enviar e-mails sem os anexos importantes? A poderosa funcionalidade Lembre-me quando enviar uma mensagem que esteja em falta de anexos do Kutools para Outlook avisa-o imediatamente sempre que o seu e-mail mencionar palavras-chave específicas, mas não inclua anexos — garantindo que nunca mais esquece de enviar ficheiros essenciais!
🌟 Funcionalidades Principais:
- Palavras-chave Personalizadas: Defina as suas próprias palavras de ativação, como «ficheiro», «fatura» ou «documento».
- Lembretes Imediatos: Receba alertas ao clicar em «Enviar» se a sua mensagem contiver palavras-chave, mas não incluir anexos.
- Configuração Simples: Adicione ou gere palavras-chave rapidamente através de uma interface intuitiva.

Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!


🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint