Re: email disclaimer ?
From: Sidney (sidney_online_at_yahoo.com)
Date: 07/14/04
- Next message: Fritz: "Re: Spam from my own domain name"
- Previous message: Ron Mann: "HELP! Exch 5.5 Store.exe crashing with Dr Watson error after sending single message to 600+ external addresses"
- In reply to: Deji Akomolafe: "Re: email disclaimer ?"
- Next in thread: James: "Re: email disclaimer ?"
- Reply: James: "Re: email disclaimer ?"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 14 Jul 2004 15:57:53 -0400
I've tried this and also tried what is on MS Knowledge Base Articles 317680
and 317327 and I cannot get it to work. Do I need any other apps installed
on the exchange server? Like visual basic or something. I get no disclaimer.
I am using Windows 2003 server and Exchange 2003 server... I called MS tech
support and they couldn't help me either.
Sidney
"Deji Akomolafe" <noemail@akomolafe.com> wrote in message
news:uWGzoxcaEHA.2488@tk2msftngp13.phx.gbl...
> This is what MY disclaimer (a significant part of which I lifted from
public
> sources) looks like:
>
> <SCRIPT LANGUAGE="VBScript">
> Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
> HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>This Electronic Mail originated
> from the Private Mail Servers of the <B><u>Akomolafe Family</u></b>.<br>"
> HTMLDisclaimer = HTMLDisclaimer & "<p><i>Some more HTML blahs</i>."
> 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
> Msg.HTMLBody = Msg.HTMLBody & vbCrLf & HTMLDisclaimer & vbCrLf
> Msg.DataSource.Save ' Commit the changes into the transport
Stream
>
> EventStatus = cdoRunNextSink
> End Sub
> </SCRIPT>
>
>
> I put that in a file called "My-Disclaimer.vbs" on the D drive
>
> I then register it as an event sink, like this:
>
> smtpreg.vbs /add 1 OnTransportSubmission MyDisclaimer
> CDO.SS_SMTPOnArrivalSink "mail from=*@akomolafe.com"
> smtpreg.vbs /setprop 1 OnTransportSubmission MyDisclaimer Sink ScriptName
> D:\My-Disclaimer.vbs
> smtpreg.vbs /setprop 1 OnTransportSubmission MyDisclaimer Source Priority
> 100
> net stop smtpsvc
> net start smtpsvc
>
> Then, when I want to remove it (because people complained, because I'm
> drunk, or for whatever reason), I simply do:
> smtpreg.vbs /remove 1 OnTransportSubmission MyDisclaimer
> net stop smtpsvc
> net start smtpsvc
>
> And it works.
>
> HTH
> --
> Sincerely,
>
> Dèjì Akómöláfé, MCSE MCSA MCP+I
> www.akomolafe.com
> www.iyaburo.com
> Do you now realize that Today is the Tomorrow you were worried about
> Yesterday? -anon
> "Adrian" <anonymous@discussions.microsoft.com> wrote in message
> news:2d64f01c469c1$a74afa90$a301280a@phx.gbl...
> > Hi folks,
> >
> > I can't believe that Exchange 2003 doesn't have a feature
> > allowing for a uniform email disclaimer!
> >
> > They told me to use a VB script for outgoing emails or
> > third party tools (the technician told me to modify the
> > script for internal exchange messeging!)
> >
> > does anyone have a better way of doing this?
> >
> > kind regards,
> > Adrian
> >
> > How to add a disclaimer to outgoing SMTP messages in
> > Visual Basic
> > http://support.microsoft.com/default.aspx?scid=kb;EN-
> > US;317327
> >
>
>
- Next message: Fritz: "Re: Spam from my own domain name"
- Previous message: Ron Mann: "HELP! Exch 5.5 Store.exe crashing with Dr Watson error after sending single message to 600+ external addresses"
- In reply to: Deji Akomolafe: "Re: email disclaimer ?"
- Next in thread: James: "Re: email disclaimer ?"
- Reply: James: "Re: email disclaimer ?"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
