Learn about Edgartown's quest to ensure the safety and security of the entire town's employee and citizen data. Read the case study!
<SCRIPT LANGUAGE="VBScript"> 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 End If If Msg.TextBody <> "" Then Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf End If 'Commit the content changes to the transport ADO Stream object. Msg.DataSource.Save ' Commit the changes into the transport Stream EventStatus = cdoRunNextSink End Sub </SCRIPT>
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.