PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WEBDEV 2024 → Envoi d'un message mail via une page web
Envoi d'un message mail via une page web
Iniciado por aercilla, jul., 04 2005 4:30 PM - Sem resposta
Publicado em julho, 04 2005 - 4:30 PM
Bonjour,
je souhaiterais envoyer un message e-mail à partir d'un formulaire d'une page de mon site.

Lorsque je test en local, je n'ai aucun souci, le mail est envoyé. Par contre, dès que je déploi mon site (sur un serveur situé chez l'entreprise qui gere nos adresse mail) la page ne fonctionne plus. J'obtiens un delai d'attente expiré.



J'ai écris le bout de code suivant :

// Envoi d'un e-mail par le protocole SMTP
User_mail est une chaîne
PASSWORD_mail est une chaîne
POP_mail est une chaîne
SMTP_mail est une chaîne
NomUser est une chaîne
Message est une chaîne

// Génération du message
Message = "Coordonnées du client : "+ RC + ...
"================" + RC + ...
"Nom : "+ Nom + RC + ...
"Prénom: "+ Prénom
SI Entreprise <> "" ALORS
Message = Message + RC + "Entreprise : " + Entreprise
FIN
SI Activité <> "" ALORS
Message = Message + RC + "Activité : " + Activité
FIN

SI Adresse <> "" ALORS
Message = Message + RC + "Adresse : " + Adresse
FIN
SI Code_postal <> "" ALORS
Message = Message + RC + "Code postal : " + Code_postal
FIN
SI Ville <> "" ALORS
Message = Message + RC + "Ville : " + Ville
FIN
SI Pays <> "" ALORS
Message = Message + RC + "Pays: " + Pays
FIN
SI Tel <> "" ALORS
Message = Message + RC + "Numéro de téléphone : " + Tel
FIN
SI Fax <> "" ALORS
Message = Message + RC + "Fax : " + Fax
FIN

Message = Message + RC + "E-mail : " + form_Email

//Info(Message)

// A modifier
User_mail = "compte#domaine"
PASSWORD_mail = "mdp"
POP_mail = "adrss pop du fournisseur"
SMTP_mail = "adrss smtp du fournisseur"

SI EmailOuvreSession(User_mail, PASSWORD_mail, POP_mail, SMTP_mail) = Vrai ALORS
NomUser = User_mail

// Initialisation de la structure e-mail
Email.Destinataire = "monadresse@domaine.fr"
Email.Expéditeur = form_Email
Email.Message = Message
Email.nbDestinataire = 1

// Envoie le mail
SI EmailEnvoieMessage (NomUser) = Faux ALORS
Erreur("EmMailEnvoieMessage a échoué " + ErreurInfo( errMessage ) + "'")
SINON
Info("EmMailEnvoieMessage a réussi")
FIN

EmailFermeSession(NomUser)


SINON
NomUser = ""
Erreur("Impossible d'établir la connexion"+ RC + ErreurInfo( errMessage ))
FIN

PageAffiche(PagePrécédente())





Voyez vous une raison, et éventuellement une solution à mon probleme?