[Originally posted by Andrew Russell]

Hi all. Over the last 4 years, I have often used the CreateObject("CDONTS.Newmail") .ASP fragment to send message on web sites. It access the SMTP service on an NT or Win2K box, and kicks out a simple message.

I use this feature for everything from mail forms to password retrieval. In the last 4-6 months, more and more mail host and providers seem to be vaporizing thes messages. (I know that is not a tecnical defintion, but I don't get bounces... the messages just disappear without a trace! I can CC myself and I get the copy. But, some places just never get them) I assume that this may be because of some malformed headers. Origionally I just had this simple format:

-----
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = &quot;<autoresponse@company.com>&quot;
objMail.Value(&quot;Reply-To&quot;) = &quot;<autoresponse@company.com>&quot;
objMail.Subject = &quot;This is a response to your query&quot;
objMail.To = &quot;<&quot; & trim(lcase(Request.QueryString(&quot;email&quot;)))&&quot;>&quot;
objMail.Body = strMsgBody
objMail.Send
Set objMail = Nothing
------

Over the months, I've added some additional mail headers to prove that this message isn't spam. My only guess at this point IS that spam filters are killing these without notice due to malformed headers or some internal check!

Under this theory, I expanded the list of items to this:

--------------

Set objMail = CreateObject(&quot;CDONTS.Newmail&quot;)
objMail.From = &quot;<autoresponse@company.com>&quot;
objMail.Value(&quot;Reply-To&quot;) = &quot;<autoresponse@company.com>&quot;
objMail.Subject = &quot;This is a response to your query&quot;
objMail.To = &quot;<&quot; & trim(lcase(Request.QueryString(&quot;email&quot;)))&&quot;>&quot;
objMail.Cc = &quot;&quot;
objMail.Bcc = &quot;&quot;
objMail.Value(&quot;Mime-Version&quot;) = &quot;1.0&quot;
objMail.Value(&quot;Content-Type&quot;) = &quot;text/plain;&quot;&vbcr&&quot;charset=&quot;&quot;iso-8859-1&quot;&quot;&quot;
objMail.Value(&quot;Content-Transfer-Encoding&quot;) = &quot;7bit&quot;
objMail.Value(&quot;Return-Path&quot;) = &quot;<andrew@hrcare.com>&quot;
objMail.Value(&quot;X-Priority&quot;) = &quot;3 (Normal)&quot;
objMail.Value(&quot;X-MSMail-Priority&quot;) = &quot;Normal&quot;
objMail.Value(&quot;Importance&quot;) = &quot;Normal&quot;
objMail.Body = strMsgBody
objMail.Send
Set objMail = Nothing
----------------

Here are my questions:

1) Do you know why or have any theries why messages in this format may disappear?

2) Can you think of ANYTHING that I can do to ensure that these messages get through more often?

3) Can you see any errors that I've made?

4) Can you think of any additional headers that I need?

I am open to any or all advice. I've trouble shot this for over 20 hours. I am out of ideas, and I can not track where the messages disappear to. Please help if you can.

Thanks,
-Andrew