Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
<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.
|SBS 2008 active sync issue||2||50|
|how do i stop exchange 2010 sending attachments as winmail.dat||3||30|
|Office 365 adding a domain||3||33|
|Exchange 2010 permissions issue||8||28|
Join the community of 500,000 technology professionals and ask your questions.