By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,044 Members | 1,291 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,044 IT Pros & Developers. It's quick & easy.

vbscript email disclaimer

P: 1
could anyone tell me if there is anything wrong with this script we seem to be unable to make the script/eventsink work on our exchange2003 server.

<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "The information contained in this e-mail may be confidential and may also be legally privileged. It is intended solely for the addressee(s). If you are not the intended recipient then please delete forthwith. If a quotation is included, it is provided for budgetary purposes only and is subject to status. Quotes exclude VAT and are correct at time of quotation, but may change at any time. Emails are not guaranteed to be secure, the contents of this message may have been altered prior to delivery, and it is your responsibility as the recipient to have adequate virus protection. Any views or opinions expressed are those of the sender and may not reflect the views or opinions of brigade-electronics.com PLC which accepts no liability in respect thereof. If you have received this e-mail in error please notify the postmaster immediately by e-mail to postmaster@company.com."

HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>The information contained in this e-mail may be confidential and may also be legally privileged. It is intended solely for the addressee(s). If you are not the intended recipient then please delete forthwith. If a quotation is included, it is provided for budgetary purposes only and is subject to status. Quotes exclude VAT and are correct at time of quotation, but may change at any time. Emails are not guaranteed to be secure, the contents of this message may have been altered prior to delivery, and it is your responsibility as the recipient to have adequate virus protection. Any views or opinions expressed are those of the sender and may not reflect the views or opinions of brigade-electronics.com PLC which accepts no liability in respect thereof. If you have received this e-mail in error please notify the postmaster immediately by e-mail to postmaster@company.com"

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
http://www.thescripts.com/forum/newt...wthread&f=132#
Decrease Size 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>

cheers
Novus
Sep 24 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.