email disclosure

[quicksaab]

I want to attach an email disclosure to outgoing emails. I know you can buy 3rd party software, but I wanted to know If anyone had done a custom solution and what they did. I did a little research and I came up with the source below. It is essentially what I want to do. Think of it more as pseudo code than actual source.




Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)

On Error Resume Next

Const cdoRunNextSink = 0
strBody = Msg.TextBody

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)

On Error Resume Next
strBody = strBody + ("This is the email Disclusure text&quot
End With
' save changes to the mail
Msg.Datasource.Save
' continue with the next event sink
EventStatus = cdoRunNextSink

End Sub

Thanks!

q