Discussion :

[TuoSib]

Bonjour à tous.
Je souhaite ouvrir une session yahoo et lire le contenu de ma boite Mail grâce à la fonction EmailOuvreSessionPOP3. Mon application à été développé avec Windev 17. Lorsque j'exécute mon code, je reçois le message d'erreur suivant : "Session POP3, accès refusé". Je rappel que avec Gmail j'ai aussi le même message. J'ai donc activer dans les paramètres de mes comptes (Gmail et Yahoo) l'option 'Accès activé pour les applications moins sécurisées'. Cependant j'ai toujours le même message d'erreur. ci-dessous mon code.

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
25
26
27
28
 
Jnd est un entier=0
MonFichierATraiter est une chaîne=""
 
//Contrôle de l’existence du répertoire de sauvegarde des pièce jointes traités
SI PAS fRépertoireExiste(MonRepSaveFilesTraiter) ALORS
	Info("Vous devez définir le chemin de destination des pièce jointes traitées")
	RepriseSaisie()
FIN
 
//	SI EmailOuvreSessionPOP3("tsibriz@yahoo.fr", MonEmailMotPasse, "pop.mail.yahoo.com", "995",optionSSL) = Vrai ALORS
SI EmailOuvreSessionPOP3(MonEmailExpediteur, MonEmailEXPMDP, MonEmailEXPServeurPOP3, MonEmailEXPPortPOP,optionSSL) = Vrai ALORS
	EmailLitPremier(MonEmailExpediteur)
	TANTQUE PAS Email.EnDehors			
		SI Email.Sujet = MonEmailObject ALORS		
			POUR Jnd = 1 A Email.NbAttache  
				SI PAS EmailSauveFichierAttaché(Email.Attache[Jnd],ComplèteRep(MonRepSaveFilesImporter) + Email.Attache[Jnd]) ALORS Erreur(ErreurInfo())
				MonFichierATraiter = ComplèteRep(MonRepSaveFilesImporter) + Email.Attache[Jnd]
				//Traitement de la pièce jointe
				ProTraiteFichier(MonFichierATraiter)
				EmailSupprimeMessage(MonEmailExpediteur)
			FIN
		FIN
		EmailLitSuivant(MonEmailExpediteur)
	FIN
SINON
	Erreur(ErreurInfo())
FIN

[Invité]

Bonjour,
Avec ce qui a été dit ici, avez vous regardé que vous avez les autorisations pour accéder à la messagerie par POP3?

[TuoSib]

Bonjour romulus001
J'ai effectivement activer les autorisations nécessaire. Mais je n'est toujours pas l'accès.