pb avec le mail de confirm d'une réception de réponse

Même si je ne le développe plus, des gens l'utilisent encore ;)

Modérateur : Modérateurs

genef
Débutant
Messages : 3
Inscription : sam. mars 20, 2004 4:48 pm

pb avec le mail de confirm d'une réception de réponse

Message 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
Avatar de l’utilisateur
bruce
Superviseur
Superviseur
Messages : 1409
Inscription : mer. avr. 18, 2001 2:00 am
Localisation : In da beat we trust !
Contact :

Message 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
A+++
Bruce aka Lemmings
www.bheller.com
genef
Débutant
Messages : 3
Inscription : sam. mars 20, 2004 4:48 pm

Message 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 ?
Avatar de l’utilisateur
bruce
Superviseur
Superviseur
Messages : 1409
Inscription : mer. avr. 18, 2001 2:00 am
Localisation : In da beat we trust !
Contact :

Message 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.
A+++
Bruce aka Lemmings
www.bheller.com
Flyman30
Débutant
Messages : 5
Inscription : mer. mars 10, 2004 6:26 pm
Localisation : Nîmes

Message 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 :)
Flyman30
Débutant
Messages : 5
Inscription : mer. mars 10, 2004 6:26 pm
Localisation : Nîmes

Message 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		
Avatar de l’utilisateur
bruce
Superviseur
Superviseur
Messages : 1409
Inscription : mer. avr. 18, 2001 2:00 am
Localisation : In da beat we trust !
Contact :

Message par bruce »

:jap: merci de donner le source.
A+++
Bruce aka Lemmings
www.bheller.com
Flyman30
Débutant
Messages : 5
Inscription : mer. mars 10, 2004 6:26 pm
Localisation : Nîmes

Message par Flyman30 »

Pas de problème le source de ton forum m'a bien aidé :jap:
Répondre