Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1660 connectés 

  FORUM HardWare.fr
  Programmation
  ASP

  [ASP 3.0] Envoi de mail + Mail format HTML

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[ASP 3.0] Envoi de mail + Mail format HTML

n°714005
3xc4l18ur
question = ( to ) ? be : ! be;
Posté le 03-05-2004 à 11:26:10  profilanswer
 

Code :
  1. mail_ot = "ot.toto@toto.fr"
  2. nom_ot = "Office de Téléphonique de toto"
  4. function envoiMailOT(nomD,adrD,sujet,txt)
  5.    dim SMTP
  6.    Set SMTP = Server.CreateObject("SMTPsvg.Mailer" )
  7.  
  8.    SMTP.RemoteHost = "mail.toto.fr" ' le serveur
  9.  
  10.    'l'émetteur
  11.    SMTP.FromName = nom_ot
  12.    SMTP.FromAddress = mail_ot 
  13.  
  14.    ' le destinataire
  15.    SMTP.Addrecipient nomD, adrD
  16.  
  17.    SMTP.Subject = sujet ' le sujet du mail
  18.    SMTP.BodyText = txt ' le texte du mail
  19.  
  20.    envoiMailOT = SMTP.SendMail 'false si erreur dans l'envoi
  21. end function


 
Voici mon script pour envoyer des mails....
Probleme "SMTPsvg.Mailer" n'est pas reconnue...

Code :
  1. Objet Server error 'ASP 0177 : 800401f3'
  3. Échec de Server.CreateObject
  5. /toto/_mail.asp, line 6
  7. Chaîne de classe incorrecte


 
Est ce que je me trompe quelque part ?
 
Merci


Message édité par !cricri le 17-05-2004 à 08:40:20
mood
Publicité
Posté le 03-05-2004 à 11:26:10  profilanswer
 

n°714262
3xc4l18ur
question = ( to ) ? be : ! be;
Posté le 03-05-2004 à 14:40:00  profilanswer
 

Code :
  1. dim SMTP
  2. set SMTP = CreateObject("CDO.Message" )
  4. SMTP.From = mail_ot
  5. SMTP.To = adrD
  6. SMTP.Subject = sujet
  7. SMTP.TextBody = txt
  9. Dim Conf
  10. Conf = SMTP.Configuration
  11.     Conf.item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) =
  12. Conf.item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "mail.toto.fr"
  14. Conf.Update()
  15.  
  16. SMTP.Send


 
sinon j'ai, essayé ca aussi mais :

Code :
  1. Erreur d'exécution Microsoft VBScript error '800a000d'
  3. Type incompatible: 'SMTP.to'


 
Quelqu'un s'y connait ??? [:atog]

n°714409
Flyman30
Posté le 03-05-2004 à 16:24:59  profilanswer
 

Déja pour SMTP mailer il faut que le composant ASPMail soit installé sur ta machine et le composant est payant  :D  
 
Pour Cdont c'est pas sécurisé du tout donc c'est moyen, par contre c'est facile à mettre en oeuvre, il faut que tu installe la DLL CDONT cherche là  
Chez Microsoft  [:airforceone]
 
pour CDONT :
 

Code :
  1. <% Dim Mailer
  3. Set Mailer = Server.CreateObject("CDONTS.NewMail" )
  4. ' on crée l'objet CDONTS
  6. Mailer.To = "destinataire@email.com"
  7. ' email du destinataire
  9. Mailer.From = "expediteur@email.com"
  10. ' email de l'expediteur
  12. Mailer.Subject = "Titre du message"
  13. ' titre du message
  15. Mailer.Body = "Le texte qui sera envoyé"
  16. ' corps du message
  18. Mailer.Send
  19. ' on envoie le tout
  21. %>


 
Pour ASPMail :
 

Code :
  1. Set Mailer = Server.CreateObject("SMTPsvg.Mailer" )
  2. Mailer.FromName = "Webmaster"
  3. Mailer.FromAddress= "webmaster@toto.com"
  4. Mailer.RemoteHost= "mail.toto.com" Mailer.AddRecipient "John", "john@autrenomdeserveur.com"
  5. Mailer.Subject= "Test d'email!"
  6. Mailer.BodyText = "Cher John" & VbCrLf & "il s'agit d'un test d'envoi d'email!"
  7. if Mailer.SendMail then Response.Write "Email envoyé..."
  8. else
  9. Response.Write "Erreur d'envoi d'email. L'erreur était " &Mailer.Response
  10. end if


Message édité par Flyman30 le 03-05-2004 à 16:35:24
n°714423
Flyman30
Posté le 03-05-2004 à 16:38:26  profilanswer
 

Ensuite il te faut un serveur SMTP , je te conseile MailEnable qui existe en gratuit.  ;)  
Pour les tests en local (mes amis n'ont pas apprécié de reçevoir mes tests  
 :ange: ) il faut modifier le fichier lmhost pour lui indiquer que le serveur SMTP pointe sur ton IP locale.  
 
Yapuka  :)

n°717182
3xc4l18ur
question = ( to ) ? be : ! be;
Posté le 06-05-2004 à 12:00:06  profilanswer
 

Merci
finalement ca marche !
Je fais ca comme ca:

Code :
  1. mail_ot = "toto@toto.fr"
  2. nom_ot = "toto"
  4. function envoiMailOT(adrD,sujet,txt)
  5. dim SMTP
  6. set SMTP = CreateObject("CDO.Message" )
  8. SMTP.From = mail_ot
  9.     SMTP.To = adrD
  10.     SMTP.Subject = sujet
  11. SMTP.TextBody = txt
  13. Dim Conf
  14.     Conf = SMTP.Configuration
  15.     Conf.item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  16.     Conf.item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "192.168.10.148" 'serveur linux =)
  17.     Conf.Update()
  18.  
  19. SMTP.Send
  20. end function


 
Voila.. c'etait un histoire de droit (comme souvent)
merci encore

n°717232
Flyman30
Posté le 06-05-2004 à 12:58:50  profilanswer
 

3xc4l18ur a écrit :

Merci
finalement ca marche !
Je fais ca comme ca:

Code :
  1. mail_ot = "toto@toto.fr"
  2. nom_ot = "toto"
  4. function envoiMailOT(adrD,sujet,txt)
  5. dim SMTP
  6. set SMTP = CreateObject("CDO.Message" )
  8. SMTP.From = mail_ot
  9.     SMTP.To = adrD
  10.     SMTP.Subject = sujet
  11. SMTP.TextBody = txt
  13. Dim Conf
  14.     Conf = SMTP.Configuration
  15.     Conf.item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  16.     Conf.item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "192.168.10.148" 'serveur linux =)
  17.     Conf.Update()
  18.  
  19. SMTP.Send
  20. end function


 
Voila.. c'etait un histoire de droit (comme souvent)
merci encore


 
Je t'avais dit de ne pas utiliser CDONT  :D c'est une faille de sécurité  
..

n°717285
3xc4l18ur
question = ( to ) ? be : ! be;
Posté le 06-05-2004 à 14:02:48  profilanswer
 

oki je note... (tête en l'air)
D'ailleur a titre purement info j'ai repère a droite a gauche 5 facons de mailer, les voicis:

Code :
  1. function envoiMailOT(adrD,sujet,txt)
  2. dim SMTP
  3. set SMTP = CreateObject("CDO.Message" )
  5. SMTP.From = mail_ot
  6.     SMTP.To = adrD
  7.     SMTP.Subject = sujet
  8. SMTP.TextBody = txt
  10. Dim Conf
  11.     Conf = SMTP.Configuration
  12.     Conf.item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  13.     Conf.item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "192.168.10.148" 'serveur linux =)
  14.     Conf.Update()
  15.  
  16. SMTP.Send
  17. end function
  19. 'function envoiMailOT1(nomD,adrD,sujet,txt)
  20. '   dim SMTP
  21. '   Set SMTP = Server.CreateObject("SMTPsvg.Mailer" )
  22. ' 
  23. '   SMTP.RemoteHost = "192.168.10.148" ' le serveur
  24. ' 
  25. '   'l'émetteur
  26. '   SMTP.FromName = nom_ot
  27. '   SMTP.FromAddress = mail_ot 
  28. ' 
  29. '   ' le destinataire
  30. '   SMTP.Addrecipient nomD, adrD
  31. ' 
  32. '   SMTP.Subject = sujet ' le sujet du mail
  33. '   SMTP.BodyText = txt ' le texte du mail
  34. ' 
  35. '   envoiMailOT1 = SMTP.SendMail 'false si erreur dans l'envoi
  36. 'end function
  38. 'function envoiMailOT2(adrD,sujet,txt)
  39. ' Dim MAIL
  40. ' set MAIL = CreateObject("Mail.MailMessage" )
  41. ' MAIL.From = ot_mail
  42. ' MAIL.To = adrD
  43. ' MAIL.Subject = suet
  44. ' MAIL.BodyFormat = Mail.MailFormat.Html
  45. ' MAIL.Body = txt
  46. ' Dim SMTP
  47. ' SMTP = System.Web.Mail.SmtpMail
  48. ' SMTP.SmtpServer = "192.168.10.148"
  49. ' SMTP.Send(MAIL)
  51. 'end function
  54. 'function envoiMailOT3(adrD,sujet,txt)
  55. ' dim MyMail
  56. ' Set myMail = CreateObject ("CDOMail.clsSendMail" )
  57. '    myMail.Server = "192.168.10.148"
  58. '    myMail.Mailbox = ot_mail
  59. '    myMail.Recipient = adrD
  60. '    myMail.Subject = sujet
  61. '    myMail.Text= txt
  62. '    myMail.Send
  63. '    set myMail = Nothing
  64.    
  65. 'end function
  67. 'function envoiMailOT4(adrD,sujet,txt)
  68. '  Dim Mailer
  69. ' 
  70. '  Set Mailer = Server.CreateObject("CDONTS.NewMail" ) 
  71. '  Mailer.To = adrD
  72. '  Mailer.From = ot_mail
  73. '  Mailer.Subject = sujet
  74. '  Mailer.Body = txt
  75. ' Dim Conf
  76. '    Conf = SMTP.Configuration
  77. '    Conf.item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  78. '    Conf.item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "192.168.10.148" 'serveur linux =)
  79. '    Conf.Update()
  80. '  Mailer.Send
  81. '
  82. 'end function

n°727848
3xc4l18ur
question = ( to ) ? be : ! be;
Posté le 17-05-2004 à 08:43:05  profilanswer
 

Nouvelle question...
Comment je fais pour pour que mon mail soit interprété comme une page HTML et que je puisse y mettre un tableau ou des images par exemple ?
 
J'ai essayé de mettre des balise du <Html>, <body> et même <meta http-equiv=Content-Type content="text/html; charset=iso-8859-1"> dans le corps du truc ... mais rien! Je recoi le code

n°728091
Flyman30
Posté le 17-05-2004 à 11:15:42  profilanswer
 

3xc4l18ur a écrit :

Nouvelle question...
Comment je fais pour pour que mon mail soit interprété comme une page HTML et que je puisse y mettre un tableau ou des images par exemple ?
 
J'ai essayé de mettre des balise du <Html>, <body> et même <meta http-equiv=Content-Type content="text/html; charset=iso-8859-1"> dans le corps du truc ... mais rien! Je recoi le code


 
Il y a des balise pour dire au programme que le mail est au format HTML, elles sont spécifique a la DLL employée (ASPEmail, ASPMail, etc...) tu trouvera ton bonheur sur le site de l'éditeur concerné  :)

n°728902
3xc4l18ur
question = ( to ) ? be : ! be;
Posté le 17-05-2004 à 13:53:38  profilanswer
 

Exact!
C'était tout bête, il suffisait d'utiliser le .HTMLBody au lieu du .TextBody
 
Merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  ASP

  [ASP 3.0] Envoi de mail + Mail format HTML

 

Sujets relatifs
Page avec menu en (x)html/cssDemande d'aide sur le code global de mon site (html, js, frames,...)
[Fixed!][HTML] (Form) 'action' avec variables en GET ? (Pb)[PHP ASP] Devinette.
[HTML] Frameset & form[ASP 3.0] Forward
Envoi de mailing et charge du serveur[ASP 3.0] DateDiff et isDate [Résolu]
Envoi de formulaire 
Plus de sujets relatifs à : [ASP 3.0] Envoi de mail + Mail format HTML

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.135 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)