Ir para o conteúdo principal

Como desligar ou desativar nenhum aviso de assunto no Outlook?

Ao usar o Outlook 2010 e 2013, se você enviar mensagens de e-mail sem assunto, uma caixa de prompt sem assunto aparecerá sempre para lembrá-lo. Se você realmente não deseja preencher o assunto, o aviso de sem assunto será um grande problema para você. Para ajudar os usuários do Outlook a se livrar do aviso sem assunto, fornecemos uma habilidade no tutorial a seguir.

Desative ou desative nenhum aviso de assunto no Outlook

Guia Office - Habilite edição e navegação com guias no Microsoft Office, facilitando o trabalho
Kutools para Outlook - Impulsione o Outlook com mais de 100 recursos avançados para eficiência superior
Aumente seu Outlook 2021 - 2010 ou Outlook 365 com esses recursos avançados. Desfrute de um teste gratuito abrangente de 60 dias e melhore sua experiência de e-mail!

seta azul bolha direitaDesative ou desative nenhum aviso de assunto no Outlook

No Outlook 2007, não há nenhum aviso se você enviar uma mensagem de email sem assunto. Esta função está habilitada no Outlook 2010 e 2013. Mas não há nenhum recurso para você desligar ou desabilitar este aviso sem assunto. Neste tutorial, mostraremos o código VBA para fazer isso.

1. Pressione outro + F11 para abrir a caixa de diálogo Microsoft Visual Basic for Applications.

2. Expanda o Project1 > Objetos do Microsoft Outlook clicando duas vezes neles. E então clique duas vezes no Esta sessão do Outlook para abrir o VbaProject.OTM caixa de diálogo.

3. Copie e cole o código VBA abaixo na caixa de diálogo.

VBA: desligue ou desative nenhum aviso de assunto

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
    Debug.Print oItem.Sent
    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 Salvar botão para salvar o código VBA.

5. Reinicie o aplicativo Outlook.

Então, o código VBA pode funcionar. Quando você envia uma mensagem sem assunto, a caixa de aviso sem assunto não é mais exibida.

Note: Certifique-se de que o Habilitar todas as macros está marcada (marque-a clicando em Envie o > Opções > trust Center > Configurações da Central de confiabilidade, e na trust Center diálogo, escolha Configurações de macro > Habilitar todas as macros), veja as capturas de tela:


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Forgot to mention I do have a Microsoft 365 subscription as well.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi, I use outlook.live.com to check my hotmail. How can I fix it so that I don't encounter this error on there? Thanks! RamyJo
Rated 5 out of 5
This comment was minimized by the moderator on the site
Oh my GOSH! THANK YOU!
This comment was minimized by the moderator on the site
THANK YOU SO MUCH
this was driving me crazy. If I forward something to myself, if I send to a family member, if I just decide it doesn't warrant a subject, I don't want to have to add one! and I hate, hate hate when my email sits there unsent for an hour because I didn't notice it got hung up by the subject line Nazi.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations