L'envoi de mail de confirmation d'une réception de réponse ne fonctionne pas sur mon forum "dest-asso.net". Faut il un CDONT ou ASPmail ou autre chose ?
Merci
pb avec le mail de confirm d'une réception de réponse
Modérateur : Modérateurs
- bruce
- Superviseur
- Messages : 1410
- Inscription : mer. avr. 18, 2001 2:00 am
- Localisation : In da beat we trust !
- Contact :
Non lol comme c marqué en bas de chaque page, ici c'est un forum phpBB qui tourne. Donc en PHP et pas développé par moi... Je n'utilise plus ni ne code plus d'ASP depuis des lustres car cette technologie n'a que peu d'intéret pour un coup de développement et hébergement supperieur.genef a écrit :de ton coté ca fonctionne bien puisque j'ai recu le mail concernant ta réponse.
Est ce que le source mis sur le site asp de téléchargement est le même que le tien ?
Code : Tout sélectionner
If PopoRes("postmail")=true Then
'********* pour utilliser le composant ASPEMAIL
Dim premium
premium=false 'False si vous n'avez pas cette version
set Mail = Server.CreateObject("Persits.MailSender")
strMailHost ="smtp-cw.net-cube.net"
Mail.Host = strMailHost
Mail.FromName = EnvironnementRes("envcontact")
mail.From = EnvironnementRes("envcontact")
Mail.Subject = "Forum ABB du site " & EnvironnementRes("envsite")
strBody = AutRes("usrlogin") & " a répondu à votre sujet : " & PopoRes("posttitle") & " le " & Date() & " à " & lheure
Mail.Body = strBody
Mail.AddAddress autmailRes("usrmail")
If premium then
Mail.SendToQueue
else
Mail.Send
end if
sendMail = (err=0)
'******** pour utiliser le composant ASPMAIL
' Dim mailer
' Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' Mailer.FromName = EnvironnementRes("envcontact")
' Mailer.FromAddress = EnvironnementRes("envcontact")
' strMailHost = "mail2.ikoula.com"
' Mailer.RemoteHost = strMailHost
' Mailer.AddRecipient autmailRes("usrmail")
' Mailer.Subject = "Forum ABB du site " & EnvironnementRes("envsite")
' strBody = AutRes("usrlogin") & " a répondu à votre sujet : " & PopoRes("posttitle") & " le " & Date() & " à " & lheure
' Mailer.BodyText = strBody
' if Mailer.SendMail then
' Response.Write "Mail envoyé..."
' else
' Response.Write "Erreur. Controlez le serveur de mail et la connexion tcp/ip...<br />"
' Response.Write Mailer.Response
' end if
' ********* pour utiliser Cdont (déconseillé pour la sécurité)
' Dim objCDO
' Set objCDO = Server.CreateObject("CDONTS.NewMail")
' objCDO.To = autmailRes("usrmail")
' objCDO.From = EnvironnementRes("envcontact")
' objCDO.Subject = "Forum ABB du site " & EnvironnementRes("envsite")
' objCDO.Body = AutRes("usrlogin") & " a répondu à votre sujet : " & PopoRes("posttitle") & " le " & Date() & " à " & lheure
' objCDO.Send
' 'Set objCDO = Nothing
' End If