KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como obter uma solicitação ou confirmação antes de enviar e-mails no Outlook?

AutoraSiluvia Data de Modificação

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

a captura de ecrã do passo 3 sobre obter uma mensagem ou confirmação antes de enviar e-mails no Outlook utilizando VBA

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.

a captura de ecrã do resultado sobre obter uma mensagem ou confirmação antes de enviar e-mails no Outlook utilizando VBA


📎 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.
a funcionalidade Lembrar-me quando envio uma mensagem sem anexos

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧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!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

kutools for outlook features1kutools for outlook features2

🚀 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