begin process at 2010 03 19 23:12:32
  Trouver un code source :
 
dans
 
Accueil > Forum > 

ASP / ASP3

 > 

Système

 > 

IIS

 > 

Prob d'envoi d'email avec CDO


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Prob d'envoi d'email avec CDO

mercredi 9 mai 2007 à 17:08:01 | Prob d'envoi d'email avec CDO

allserv

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



Cette discussion est classée dans : rs, requete, email, agence, objmail


Répondre à ce message

Sujets en rapport avec ce message

Savoir si une requete à fonctionner ????? [ par rich25200 ] Bonjour,J'exécute une requete SQL du genre RS = "select * from membre"Puis RS.open SQL...J'aimerai savoir coment on peut tester si la requete a bien f rs après un loop [ par onha ] Bonjour a vous tous,Voila j'ai une base access avec nom,prenom,CA,........j'ai une requete dans une requete dans une page asp qui est  :Select nom,SUM requete : tous les noms commencant par a [ par xena495 ] Bonjour,Mon script ne fonctionne pas,je cherche à afficher toutes les personnes de ma base de données qui ont un nom commencant par la lettre "a".sql variable d'application [ par nvirenque ] Bonjour à tous,Attention je vais poser une question costaud.Je cherche à executer une requete SQL sur le serveur pour mettre à jour ma base access et petit pb avec aspsmartupload [ par Fransisco ] je cherche a uploader des photos et enregistrer leur nom dans une table.je dois pouvoir le faire pour un nombre indetermine de photos.en fait, l'utili REQUETE, AFFICHAGE, TRI, --> Asp/Access [ par RomainAnatole ] Bonjour à tous,Voila, je n'ai pas à reussi a trouver de solution sur le site, alors desespere, je vous appel au secours !!!J'affiche une page Asp via Requete menu déroulant [ par nick774 ] salut tout le monde,J'ai créé une bdd sur Access (4 tables au total) avec:- 1 table annonces(id, date, ref, prix)- 1 table transaction( achat ou locat suppression d'enregistrements dans une table à partir d'une autre table [ par raids27 ] Bonjour, je suis perdu et j'ai besoin d'aiiiiiide ;-)Ma base Access a 2 tables :- CLIENT qui contient 3 champs : EMAIL (clé primaire), NOM (texte), Upload avec AspSmartUpload [ par hsii04 ] Besoin d'aide :Type d'erreur :ADODB.Recordset (0x800A0E79)Cette opération n'est pas autorisée si l'objet est ouvert.Voici mon code :<% mySm distinct et order by [ par Benz ] Bonjour,J'ai un problème avec la requete SQL suivante :______________________________REQUETE = "SELECT DISTINCT Niveau2 FROM MaTable WHERE Niveau1 LIK


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales