Это решение использует событие ItemSend
для очистки строки темы и префикса «[secure]» в тот момент времени, когда вы нажимаете кнопку « Отправить» .
Используйте инструкции здесь, чтобы установить макрос, но вместо того, чтобы использовать код, который они предоставляют, попробуйте это:
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
Когда вы нажмете кнопку « Отправить», будет вызван этот макрос, который удалит все существующие экземпляры «[secure]» или «[insecure]» перед тем, как поставить префикс строки темы с «[secure]».
Причина этого заключается в том, чтобы избежать попадания в строки темы с несколькими тегами из-за ответов и переадресации. Другими словами, избегайте:
[secure] Fwd: [insecure] Re: [insecure] Don't forget your TPS report
и вместо этого:
[secure] Fwd: Re: Don't forget your TPS report