Como evitar que os usuários enviem e-mails sem assunto no Outlook?

Author: Sun Last Modified: 2025-08-06

Ao enviar um e-mail pelo Outlook, às vezes você pode enviar e-mails sem preencher o assunto, o que talvez não seja um bom hábito. Existe alguma maneira de forçar os usuários a enviar e-mails com um assunto no Outlook?

Evitar o envio de e-mails sem assunto usando VBA

Evitar o envio de e-mails sem assunto usando VBA

Não há outra solução para esse problema além do uso de código VBA.

1. Ative o Outlook, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique duas vezes em ThisOutlookSession no painel Project1, depois copie e cole o código abaixo no script em branco.

VBA: Evitar o envio de e-mail sem assunto

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
    .Global = True: .Pattern = "^\x20*$"
    If .test(Item.Subject) = True Then
        MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
        Cancel = True
    End If
End With
End Sub

3. Salve o código; agora, se o e-mail que você enviar não tiver assunto, uma caixa de diálogo aparecerá para lembrá-lo de inserir o assunto.

Observação: Este código VBA funciona para todas as contas no Outlook.

Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.

Este recurso suporta:

Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta: