Prob d'envoi d'email avec CDO

Bonjour tout le monde,

Voici mon problème, j'ai une erreur lors de l'envoi d'un email avec CDO, (connexion perdue avec le serveur) la taille du corps est apparement trop important puisque si j'envoi un email avec x lignes cela fonctionne mais avec x+1 cela ne fonctionne plus.

J'aimerais savoir s'il existe un paramètre pour ce composant qui limiterait la taille des corps ?

Voici mon code :


<%
 

'- ------------------------------------------------
' Fonction EnvoiMail
' Entrée/Sortie : adresse destinataire
' But : permet d'envoyer un email

function EnvoiMail(num_materiel,old_agence,new_agence)
Dim objMail
set objMail = Server.CreateObject("CDO.Message")

requete = " select nom_materiel, nom_marque from materiel, marque "
requete = requete & "where materiel.num_marque = marque.num_marque and num_materiel = "&num_materiel

Set rs = Server.CreateObject("ADODB.recordset")
Set rs = db.Execute(requete)
nom_materiel= rs(0)
nom_marque = rs(1)

requete = " select nom_agence from agence where num_agence = "&old_agence&""
Set rs = db.Execute(requete)
nom_old_agence= rs(0)

requete = " select nom_agence from agence where num_agence = "&new_agence&""
Set rs = db.Execute(requete)
nom_new_agence= rs(0)

date_mouvement = Date

 
login = SESSION("nom_connect")

requete = "Select email from agence where num_agence = "&old_agence&" or num_agence = "&new_agence
email = ""
Set rs = db.Execute(requete)
whilenot rs.eof
email = email & ","&rs(0)
rs.movenext
   wend
email = "test@free.fr"' juste pour le test
 
objMail.From = "monemail@monprovider.fr"'remplacé par la bonne email
objMail.To = email
objMail.Subject = " Gestion du Materiel : Transfert du "&nom_materiel&" ("&nom_marque&") "


htmlBody  =  "<table width='100%' border='0' cellspacing='0'>sdfsdfsdfsd"
htmlBody  = htmlBody  & " <tr>"
htmlBody  = htmlBody  & "    <td width='13%'><font size="
...
htmlBody  = htmlBody  & "</table>"
objMail.htmlBody = htmlBody

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

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.161.247.31"

objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMail.Configuration.Fields.Update

objMail.Send
endfunction
 
%>
 

Merci d'avance