CDO.Message - Message header too large

[jonramsey]

I use the following to create and send a CDO.Message:

'create a windows email object to instantiate the email

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "ebills@energyunited.com"

objEmail.To = email_address

objEmail.Bcc = "ebills@energyunited.com"

objEmail.Subject = strSubject

objEmail.HTMLBody= strHTMLMessage

objEmail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _

"statesville-ex3.energyunited.com"

objEmail.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

objEmail.Send

The email header that is created is over 1200 characters. Some of my recipients see this as spam and won't accept the email. How can I minimize the header?

Thanks

[Juvigy]

Does it have to be CDO or you can use something else?

For example there is a nice Outlook UDF.

[wakillon]

try to add this 2 lines...

objEmail.HTMLBody = strHTMLMessage

objEmail.Fields ( "urn:schemas:mailheader:disposition-notification-to") = "ebills@energyunited.com"

objEmail.Fields ( "urn:schemas:mailheader:return-receipt-to") = "ebills@energyunited.com"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2