Note: The other languages of the website are Google-translated. Back to English
English English

Como evitar que usuários enviem emails sem assunto inserido no Outlook?

Enquanto você envia um e-mail pelo Outlook, em alguns momentos, você pode enviar e-mails sem inserir o assunto, o que talvez não seja um bom hábito. Existe alguma maneira de forçar os usuários a enviar e-mail com um assunto no Outlook?

Impedir o envio de e-mails sem assunto inserido com VBA


Impedir o envio de e-mails sem assunto inserido com VBA

Não há outra maneira, exceto o código VBA, de resolver esse problema.

1. Habilite o Outlook, pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.

2. Duplo click Esta sessão do Outlook no Project1 painel e, em seguida, copie e cole o código abaixo no script em branco.

VBA: Impedir 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

doc impede o envio sem assunto 1

3. Salve o código, agora se o e-mail for enviado sem assunto, aparecerá uma caixa de diálogo para lembrá-lo de inserir o assunto.

NOTA Este código VBA funciona para todas as contas no Outlook


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos