How to get Read Receipt to work with CDO

[cj337]

I looked around online and thought this should work but it doesn't, can anyone tell me what I am doing wrong?

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test RR"
objMessage.From = """Me"" <cory@mydomain.com>"
objMessage.To = "cory@otherdomain.com"
objMessage.TextBody = "Test"
objMessage.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
objMessage.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "192.168.1.1"
objMessage.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
objMessage.Configuration.Fields("urn:schemas:mailheader:return-receipt-to") = "cory@mydomain.com"
objMessage.Configuration.Fields.Update
objMessage.Send