PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WEBDEV 2024 → Envoi SMTP
Envoi SMTP
Iniciado por bruno.lallemand, out., 18 2005 4:09 PM - Sem resposta
#1
Publicado em outubro, 18 2005 - 4:09 PM
Bonjour, je constate que l'envoi des emails posent quelques problèmes
chez certains d'entre nous.
Et bien à moi aussi !

J'essaye d'envoyer un mail à partir de mon PC (je tourne en Belgique,
sur une ligne ADSL de chez Skynet).
Tout fonctionne bien. Mais lorsque j'essaye le programme chez mon
hébergeur qui se trouve en France, sur une autre ligne ADSL que skynet,
ça ne fonctionne pas.

J'ai l'explication de chez Skynet/Belgacom : la porte 25 du SMTP est
fermée au "monde extérieur (réseau différent)" de belgacom et ne permet
pas non plus d'en sortir. Les gens de l'extérieur ne peuvent donc pas
utiliser le serveur SMTP de skynet et en même temps, les gens de
Belgacom ne peuvent pas utiliser un autre serveur SMTP sur la porte 25.

Une solution me vient donc à l'esprit : mon hébergeur, situé aux USA a
configuré son SMTP pour pouvoir accepter des connections en même temps
sur la porte 25 et sur la porte 2525. Je m'en vais donc configurer mon
programme pour ouvrir la connection SMTP sur la porte 2525.

Super, mon programme fonctionne une étape plus loin. L'ouverture de la
connection s'effectue bien (je le constat avec un netstat -a). La
porte 2525 est bien ouverte vers mon hébergeur USA.

Mais ce qui ne fonctionne pas, c'est la commande EmailEnvoieMessage.
Le site tombe en timeout et ne me retourne même pas d'erreur.
Cette commande fonctionnait bien lorsque j'étais avec le serveur SMTP
de skynet sur la porte par défaut (25).

Quelqu'un a-t-il une idée ?
Merci,

Bruno
Pour info, voici les lignes de code concernée par l'envoi du mail :
-----------
-----------

NomUser est une chaîne = "utilisateurSMTP"
NomPassword est une chaîne = "mon mot de passe que je ne vous dirai
pas"

SMTPServeur est une chaîne = "AdresseServeurSMTP"
SMTPPort est un entier = 2525


Email.Message = sMessage
Email.Sujet = "Entrée gratuite"

Email.AccuséRéception = Faux
Email.ConfirmationLecture = Faux
Email.NbAttache = 0
Email.NbCc = 0
Email.NbCci = 0
Email.Priorité = EmailPrioritéHaute

Email.AdresseExpéditeur = "toto@hotmail.com"
Email.Expéditeur = "monemail@hebergeurusa.com"

Email.Destinataire[1] = "toi@vous.com"
Email.NbDestinataire = 1



// Envoi du mail
SI EmailOuvreSessionSMTP(NomUser,NomPassword, SMTPServeur, SMTPPort) =
Vrai ALORS
// Envoie l'e-mail
SI PAS EmailEnvoieMessage(NomUser) ALORS
Erreur("Problème d'envoi de votre demande...")
bErreur = Vrai
FIN
EmailFermeSession(NomUser)
SI PAS bErreur ALORS
Info("Merci...")
FIN
SINON
Erreur("Impossible d'établir la connexion avec notre serveur
mail",EmailMsgErreur(Email.Erreur))
bErreur = Vrai
FIN

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
→ Voltar para WEBDEV 2024