Esta solução usa o evento ItemSend
para limpar a linha de assunto e prefixar "[secure]" no momento em que você pressiona o botão Enviar .
Use as instruções aqui para instalar uma macro, mas em vez de usar o código que eles fornecem, tente:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
strSubject = Item.Subject
' Remove previous [secure] and [insecure]
strSubject = Replace(strSubject, "[secure] ", "")
strSubject = Replace(strSubject, "[insecure] ", "")
' Prefix subject with [secure]
strSubject = "[secure] " & strSubject
' Set the message subject
Item.Subject = strSubject
End Sub
Quando você pressionar Enviar , esta macro será invocada, o que removerá todas as instâncias existentes de "[seguro]" ou "[inseguro]" antes de prefixar a linha de assunto com "[seguro] ".
A razão para isso é evitar acabar com linhas de assunto que têm várias tags nelas devido a respostas e encaminhamentos. Em outras palavras, evite:
[secure] Fwd: [insecure] Re: [insecure] Don't forget your TPS report
e tem isso em vez disso:
[secure] Fwd: Re: Don't forget your TPS report