Code Snippet
<SCRIPT LANGUAGE="VBScript">
Sub IEventIsCacheable_IsCacheable()
'To implement the interface, and return S_OK implicitly
End Sub
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
Dim envFlds
Dim colAttachs
Dim iFound
Set envFlds = Msg.EnvelopeFields
If Instr(1, Msg.Subject, "SPAM", 1) = 1 Then 'only if the word SPAM in the first pos of the subject
iFound = 1
Else
iFound = 0
End If
If iFound > 0 Then
'replace forward address
envFlds ("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist") = "SMTP:spam@server.example.com;"
envFlds.Update 'commit
EventStatus = 1
End If
End Sub
</SCRIPT>
