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 &#40;déconseillé pour la sécurité&#41;
				
'		Dim objCDO
'		Set objCDO = Server.CreateObject&#40;"CDONTS.NewMail"&#41;
		
'		objCDO.To = autmailRes&#40;"usrmail"&#41;
'		objCDO.From = EnvironnementRes&#40;"envcontact"&#41;
		
'		objCDO.Subject = "Forum ABB du site " & EnvironnementRes&#40;"envsite"&#41;
'		objCDO.Body = AutRes&#40;"usrlogin"&#41; & " a répondu à votre sujet &#58; " & PopoRes&#40;"posttitle"&#41; & " le " & Date&#40;&#41; & " à " & lheure
'		objCDO.Send
		
'		'Set objCDO = Nothing
'	End If		

Publié : mar. avr. 13, 2004 11:31 pm
par bruce
:jap: 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é :jap: