Bonjour,
Moi aussi j'ai un soucis avec la fonction EmailOuvreSession mais un peu différent.
Voici un code qui fonctionne :
Ensuite j'ai créé une adresse mail via un domaine tata@tata.fr
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 USER est une chaîne sPassword est une chaîne NomUser est une chaîne USER = "toto@aliceadsl.fr" sPassword ="toto" SI EmailOuvreSession(USER, sPassword, "pop.aliceadsl.fr", "smtp.aliceadsl.fr") = Vrai ALORS NomUser = USER SINON NomUser = "toto@aliceadsl.fr" Erreur("Impossible d'établir la connexion") FIN // Initialise les composantes du mail Email.Expéditeur = "toto@aliceadsl.fr" // L'expéditeur Email.Destinataire[1] = "blabla@aliceadsl.fr" // Le destinataire Email.NbDestinataire = 1 // Le nombre de destinataires Email.Sujet = "blablabla" // Le sujet Email.Message = "IP du poste :"+ IPPublic + RC +"Nom du poste :"+NomPoste // Le corps du message Email.NbAttache = 0 // Le nombre de pièces attachées // Envoie le mail SI EmailEnvoieMessage(NomUser) = Faux ALORS Erreur() FIN
l'hébergeur me donne les infos suivante:
Du coup j'ai fais ce code :- Nom d'utilisateur : tata@tata.fr
- Mot de passe : Le mot de passe que vous avez choisi à la création de votre adresse.
- Serveur POP ou IMAP : mail.tata.fr
- Serveur SMTP : mail.tata.fr
IMPORTANT : Si vous êtes abonné chez Orange, Free ou encore Numericable, il est possible que le port 25 de votre box soit bloqué : dans ce cas vous ne pourrez pas envoyer d'emails depuis votre logiciel de messagerie via ce port par défaut.
Pour pouvoir envoyer vos emails, il faudra alors utiliser un port Alternatif : 587Et j'ai un message d'erreur, IMPOSSIBLE D ETABLIR LA CONNEXION
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 USER est une chaîne sPassword est une chaîne NomUser est une chaîne USER = "tata@tata.fr" sPassword ="******" SI EmailOuvreSession(USER, sPassword, "pop.mail.tata.fr", "smtp.mail.tata.fr") = Vrai ALORS NomUser = USER SINON NomUser = "tata@tata.fr" Erreur("Impossible d'établir la connexion") FIN // Initialise les composantes du mail Email.Expéditeur = "tata@tata.fr" // L'expéditeur Email.Destinataire[1] = "blabla@aliceadsl.fr" // Le destinataire Email.NbDestinataire = 1 // Le nombre de destinataires Email.Sujet = "blablabla" // Le sujet Email.Message = "IP du poste :"+ IPPublic + RC +"Nom du poste :"+NomPoste // Le corps du message Email.NbAttache = 0 // Le nombre de pièces attachées // Envoie le mail SI EmailEnvoieMessage(NomUser) = Faux ALORS Erreur() FIN
J'ai essayé :Auriez vous une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 SI EmailOuvreSession(USER, sPassword, "pop.mail.tata.fr", "smtp.mail.tata.fr", 110, 25) SI EmailOuvreSession(USER, sPassword, "pop.mail.tata.fr", "smtp.mail.tata.fr", 110, 587) SI EmailOuvreSessionSMTP(USER, sPassword, "smtp.mail.tata.fr", 25) SI EmailOuvreSessionSMTP(USER, sPassword, "smtp.mail.tata.fr", 587) SI EmailOuvreSessionSMTP(USER, sPassword, "smtps.mail.tata.fr", 25) SI EmailOuvreSessionSMTP(USER, sPassword, "smtps.mail.tata.fr", 587)
Pour info l'adresse mail qui bloque correspond à un domaine ouvert chez l'hébergeur LWS
Partager