I followed the steps in KB317680 http://support.microsoft.com/kb/317680
to setup an email disclaimer on outgoing SMTP email. Emails that are sent in plain text show the disclaimer fine. Emails sent in HTML format do not show the disclaimer. Attached is the EventSinkScript.vbs. Any ideas on why this is not working?
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf & "Security Warning: This message is being sent over an insecure medium. Recipients should not reply to this message with sensitive or confidential account information."
HTMLDisclaimer = "<p></p><p>Security Warning: This message is being sent over an insecure medium. Recipients should not reply to this message with sensitive or confidential account information."
If Msg.HTMLBody <> "" Then
'Search for the "</body>" tag and insert our disclaimer before that tag.
pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)
szPartI = Left(Msg.HTMLBody, pos - 1)
szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))
Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII
If Msg.TextBody <> "" Then
Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
'Commit the content changes to the transport ADO Stream object.
Msg.DataSource.Save ' Commit the changes into the transport Stream
EventStatus = cdoRunNextSink