Page 1 sur 1
pb avec le mail de confirm d'une réception de réponse
Publié : dim. avr. 11, 2004 10:26 am
par genef
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
Publié : lun. avr. 12, 2004 6:54 am
par bruce
Je me souviens plus du tout comment g codé ça. Il faut absolument un truc sur le serveur mais je me souviens plus quoi... désolé lol
Publié : lun. avr. 12, 2004 9:15 am
par genef
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 ?
Publié : mar. avr. 13, 2004 10:55 am
par bruce
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 ?
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.
Publié : mar. avr. 13, 2004 1:02 pm
par Flyman30
Perso sur mon forum ABB j'utilise le composant ASPEMAIL car il est supporté par mon hébergeur, j'ai du adapter le code bien entendu
Publié : mar. avr. 13, 2004 1:09 pm
par Flyman30
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
Publié : mar. avr. 13, 2004 11:31 pm
par bruce
merci de donner le source.
Publié : mer. avr. 14, 2004 8:26 pm
par Flyman30
Pas de problème le source de ton forum m'a bien aidé