PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WEBDEV 2024 → envoi d'un email via mon site
envoi d'un email via mon site
Iniciado por apotee, 28,sep. 2005 15:20 - 4 respuestas
Publicado el 28,septiembre 2005 - 15:20
Bonjour

Je souhaite envoyer un email de confirmation via mon site.

Je fais :

snomuser est une chaine="Confirm"+ConnexionOccurrence()

scompteEmailSMTP est une chaine="smtp.francelink.fr" // l'adresse du serveur sortant de mon hébergeur

EmailOuvreSessionSMTP(sNomUser,sCompteEmailSMTP,25,Vrai)

email.sujet = "
etc...

puis
EmailEnvoieMessage (sNomUser)

Je n'ai pas aucun message d'erreur ni sur le emailouvresession ni sur le emailenvoie
mais aucun message n'est envoyé

Où fais-je l'erreur??


Merci

Aline
Publicado el 28,septiembre 2005 - 16:11
C'est le code complet ou alors tu n as pas copier coller les tests pour voir si EmailOuvreSession et EmailEnvoieMessage fonctionne bien?
Publicado el 28,septiembre 2005 - 18:01
Je pensais avopir été claire ??

La syntaxe de emailouvresession et de emailenvoiemessage est celle employée, avec les paramètres indiqués.

Aucun message d'erreur, la syntaxe est donc correcte et les paramètres le semblent aussi.

Mais pas de mail envoyés
Publicado el 29,septiembre 2005 - 01:42
Aline vient de nous annoncer :
> Je pensais avopir été claire ??
Ben non tu as été un peu brève dans ton code citée

La syntaxe de emailouvresession et de emailenvoiemessage est celle employée,
avec les paramètres indiqués.

Aucun message d'erreur, la syntaxe est donc correcte et les paramètres le
semblent aussi.

Ce n'est pas le pb d'avoir des messages d'erreur, c'est de tester les
retour de emailenvoiemessage qu'il faut faire aussi.


Mais pas de mail envoyés


Voilà un code
EmailOuvreSessionSMTP("EnvoiEmail", "localhost")

//Email.Expéditeur = "NomExpéditeur <adresse@expediteur.com>"
Email.Expéditeur = AUTEUR+" <"+VOTREMAIL+">"
Email.Destinataire[1] = "contact <contact@wtablettes.net>"
Email.Destinataire[2]=AUTEUR+" <"+VOTREMAIL+">"
Email.NbDestinataire = 2
Email.NbAttache=0
Email.Sujet = "[PUBLIEZ] "+AUTEUR + " va publier "+TVD_TITRE+"
["+refId+"]"
Email.Message = txtmsg
// Envoie le mail
SI PAS EmailEnvoieMessage("EnvoiEmail") ALORS
Erreur("EmailEnvoieMessage a échoué '" + ErreurInfo(errMessage) + "'")
SINON
Info("Votre demande a été envoyée par Email (+copie à votre
adresse)"+RC+...
"Merci de votre participation aux WTablettes")
FIN
EmailFermeSession("EnvoiEmail")


ton pb se situe peut être que tu utilises un smtp depuis un autre
domaine (relaying not allowed). Teste les booléens après chaque
commande dans l'ex ci-dessus.

Vaut mieux localhost pour un smtp sur le serveur car c'est souvent plus
performant (sinon cela peut déclencher l'antivirus du serveur.)

--
Eric
Webmaster des Wtablettes
www.wtablettes.net
Publicado el 29,septiembre 2005 - 11:38
Faut pas s enerver comme ca!
C'est juste que si tu ne fais pas :

SI EmailOuvreSession(...) = Vrai ALORS
nomuser = "contact%akeane.fr"
SINON
nomuser = ""
Erreur("Impossible d'établir la connexion"+ RC + ...
ErreurInfo( errMessage ))

c'est normal que tu n'ai pas d'erreur