SMTP Server Transport Events - Simple Scripting

<SCRIPT language="VBScript">
 
On Error Resume Next

Const cdoRunNextSink = 0

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
  

   
    On Error Resume Next 


	Set Flds = Msg.Fields
	With Flds
		
  		.Item("urn:schemas:httpmail:messageflag") = True
  		.Item("urn:schemas:mailheader:x-message-flag") = True
  		.Update
	End With


    ' save changes to the mail
    Msg.Datasource.Save

    ' continue with the next event sink
    EventStatus = cdoRunNextSink

End Sub

</SCRIPT>