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

Como desativar ou desligar o aviso de assunto em branco no Outlook?

AutorSiluvia Data de Modificação

Ao utilizar o Outlook 2010 e 2013, sempre que enviar mensagens de correio eletrónico sem assunto, uma caixa de aviso “sem assunto” aparece como lembrete. Caso não pretenda mesmo incluir um assunto, este aviso pode tornar-se bastante incómodo. Para ajudar os utilizadores do Outlook a eliminarem este alerta, apresentamos uma solução no tutorial seguinte.

Desativar ou desligar o aviso de assunto em branco no Outlook


Desativar ou desligar o aviso de assunto em branco no Outlook

No Outlook 2007, não existe qualquer aviso ao enviar uma mensagem de correio eletrónico sem assunto. Esta funcionalidade está ativada no Outlook 2010 e 2013. Contudo, não há uma opção direta para desativar este alerta de assunto em branco. Neste tutorial, mostramos-lhe um código VBA para alcançar este objetivo.

1. Prima as teclas «Alt» + "F11" para abrir a caixa de diálogo «Microsoft Visual Basic for Applications».

2. Expanda "Project1" > «Microsoft Outlook Objects» clicando duas vezes em cada um. Em seguida, clique duas vezes em «ThisOutlookSession» para abrir a janela «VbaProject.OTM».

a captura de ecrã de desativar ou desligar o aviso de ausência de assunto no Outlook 1

3. Copie e cole o código VBA abaixo na janela.

VBA: Desativar ou desligar o aviso de assunto em branco

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set oInspectors = Outlook.Inspectors
End Sub

Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
    End If
ExitProc:
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
End Sub

Private Sub Application_Quit()
    Set oInspectors = Nothing
End Sub

4. Clique no botão «Guardar» para salvar o código VBA.

5. Reinicie a aplicação Outlook.

O código VBA entrará então em vigor: ao enviar uma mensagem sem assunto, a caixa de aviso «sem assunto» já não será apresentada.

Nota: Certifique-se de que a opção «Ativar todas as macros» está selecionada. Para o verificar, aceda a «Ficheiro» > «Opções» > «Centro de Confiança» > «Definições do Centro de Confiança», e, na caixa de diálogo «Centro de Confiança», selecione «Definições de Macros» > «Ativar todas as macros». Veja a captura de ecrã:

a captura de ecrã de desativar ou desligar o aviso de ausência de assunto no Outlook 2

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 funcionalidades1kutools for outlook funcionalidades2

🚀 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