Listing 1: ReadReceiptRequestRemoval.vbs

<SCRIPT language="VBScript">
Const cdoRunNextSink = 0

Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
' BEGIN COMMENT
' Remove the read-receipt request fields.
' END COMMENT
Set Flds = Msg.Fields
With Flds
.Delete("urn:schemas:mailheader:Disposition-Notification-To")
.Delete("urn:schemas:mailheader:Read-Receipt-To")

' BEGIN COMMENT
' Update the mail header.
' END COMMENT
.Update
End With

' BEGIN COMMENT
' Save the changes.
' END COMMENT
Msg.Datasource.Save

' BEGIN COMMENT
' Continue execution with the next sink.
' END COMMENT
EventStatus = cdoRunNextSink
End Sub
</SCRIPT>