Usuarios de Hotmail y Yahoo no reciben mis correos

Manitoba
02 de Agosto del 2005
"Dim mensaje
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = mai
objCDONTS.To = maildestino
' objCDONTS.Bcc = "[email protected]"
objCDONTS.Subject = "Application for information (Step 1)"
mensaje = "<p><font face='Verdana' size='2'><b>Information has been required from your web site (STEP 1 - HTML)</b></font></p><p><font face='Verdana' size='1'><u>Personal Data:</u><br>" & nom & "<br>" & dir & "<br>" & ciu & " - " & pai & "<br>E-mail: " & mai & " - Telephones: " &tel & "<br>Contact Time: From " & ho1 & " to " & ho2 & "<br>Age: " & eda & "</font></p><font face='Verdana' size='1'>CURRENT SITUATION: " & sit & "</font>" & "<br><font face='Verdana' size='1'>Income to cover his/her necessities: " & ing & "<br>Expected monthly amount: " & des & "<br>He/she heard from us on: " & con & "</font>" & "<br><br><font face='Verdana' size='1'><u>COMMENTS:</u><br><br>" & com & "<br><br>IP: " & Request.ServerVariables("REMOTE_ADDR") & " - " & Request.ServerVariables("HTTP_USER_AGENT") & "</font>"
objCDONTS.Body = mensaje
objCDONTS.BodyFormat = CdoBodyFormatHTML
objCDONTS.MailFormat = CdoMailFormatMime
objCDONTS.Send
Set objCDONTS = Nothing"

Este es el codigo del formulario que se encarga de un mensaje a los ususarios que lo rellenan
. pero de una semana a esta parte todos los correos de Hotmail o yahoo no reciben el mensaje

¿Sabeis la causa?
¿Cual puede ser la soluciĆ³n?

Gracias de antemano

juan
02 de Agosto del 2005
correo prueba