Discussion :

[Robert le débutant]

Bonsoir,

J'envoie mes factures par mail (XXX@hotmail.com) ma routine d'envoi a toujours fonctionné.... depuis un mois, ça ne marche qu'une fois sur 2... et je ne sais pas pourquoi !

Voici ma routine

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 
PROCÉDURE envoiMail()
 
user,password,entree,ssortie,corps,porc,sfichier,sujet sont des chaînes
bbb est un entier
gSessionSMTP est une emailSessionSMTP
UnCourriel est un Email
monAttache est un emailAttache
 
EmailRAZ()
 
 
sfichier=fRepEnCours+"\FACMAIL\"+Sarl.Numero+Facture.numfac+NumériqueVersChaîne(lexemplaire)+".PDF"
 
 
HLit("paramfac",67)
user=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",68)
password=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",69)
entree=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",70)
ssortie=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",70)
porc=SansEspace(Paramfac.logo)
HRAZ("paramfac")
 
 
decomposition()/// si plusieurs destinataires
 
FOR bbb=1 TO nbmail
 
 
IF SansEspace(txtmail)<>"" ALORS
sujet=lepipi+"/ Facture de loyer n° "+Facture.numfac
 
corps="Bonjour,"+RC+RC+"Nous vous prions de trouver en pièce jointe votre facture relative au :"+RC+RC+Facture.objet_de_facture+RC+RC+SansEspace(txtmail)+RC+RC+"Cordialement"+RC+RC+...
Sarl.nom_du_gerant+RC+SansEspace(Sarl.Raison_sociale)
ELSE
 
	sujet=lepipi+"/ Facture de loyer n° "+Facture.numfac
	corps="Bonjour,"+RC+RC+"Nous vous prions de trouver en pièce jointe votre facture relative au :"+RC+RC+Facture.objet_de_facture+RC+RC+"Cordialement"+RC+RC+...
	Sarl.nom_du_gerant+RC+SansEspace(Sarl.Raison_sociale)
 
 
FIN
 
 
 
 
 
 
 
gSessionSMTP..AdresseServeur =ssortie
gSessionSMTP..Nom =user
gSessionSMTP..MotDePasse =password
gSessionSMTP..Port =porc
gSessionSMTP..Option = emailOptionSécuriséTLS
 
 
 
// Contenu de l'email   
 
 
monAttache..Nom = fExtraitChemin(sfichier, fFichier + fExtension)
monAttache..Contenu =fChargeBuffer(sfichier)
monAttache..ContentType = "application/pdf"
monAttache..ContentDescription =Facture.numfac
 
UnCourriel..Expediteur =user
UnCourriel..Destinataire[1] =TableauValeur[bbb]
UnCourriel..Sujet = sujet
UnCourriel..Message =corps
UnCourriel..TexteBrut = corps
Ajoute(UnCourriel..Attache, monAttache)
 
 
ToastAffiche(SansEspace(Sarl.Raison_sociale)+RC+"Envoie de la factures: "+SansEspace(Bien.locataire)+RC+TableauValeur[bbb],toastCourt,cvMilieu,chCentre,BleuClair)
 
 
 
// Envoi de l'email
SI EmailOuvreSession(gSessionSMTP) = Vrai ALORS
	SI EmailEnvoieMessage(gSessionSMTP, UnCourriel) = Faux ALORS
		Erreur("L'envoi de l'email a échoué.", ErreurInfo(errMessage))
	FIN
SINON
	Erreur("Impossible d'établir la connexion", ErreurInfo(errMessage))
FIN
 
 
ToastSupprimeTout()
	Multitâche(tempomail)
 
FIN
 
EmailFermeSession(gSessionSMTP)

[frenchsting]

Bonjour,

Il est fort possible que Hotmail/Microsoft ait changé (ou soit en traine de changer) les règles de fonctionnement des sessions SMTP.

Tu ne dis pas quel message d'erreur tu as...

As-tu essayé EmailOuvreSessionSMTP ?

[philouZ]

Bonjour,

Quelle version de Windev utilises tu ? quel est le message d'erreur ?

[Robert le débutant]

Bonjour,

Il est fort possible que Hotmail/Microsoft ait changé (ou soit en traine de changer) les règles de fonctionnement des sessions SMTP.

Tu ne dis pas quel message d'erreur tu as...

As-tu essayé EmailOuvreSessionSMTP ?

Non, je n'ai pas essayé EmailOuvreSessionSMTP, mais je vais le faire et voir.

le message d'erreur est :


Merci pour votre aide, car réellement cette fonction m'est capitale

[Robert le débutant]

Bonjour,

Quelle version de Windev utilises tu ? quel est le message d'erreur ?

Bonjour et merci de m'aider

J'utilise Windev 28

Le message d'erreur est :

[frenchsting]

Bonjour,

Et si tu mets errcomplet à la place de errmessage ?

[philouZ]

As-tu essayé de paramétrer avec EmailParamètre(emailParamètreMode, 1) ?

[Robert le débutant]

As-tu essayé de paramétrer avec EmailParamètre(emailParamètreMode, 1) ?

Ca à l'air de fonctionner avec EmailParamètre(emailParamètreMode, 1)...
Je ne crie pas victoire.. je vais tester pendant quelques jours et revient vers vous.

Après un autre essai.... ça plante à nouveau....

A l'aide !

Merci Philouz

[Robert le débutant]

Bonjour,

Et si tu mets errcomplet à la place de errmessage ?

Voilà ce que j'obtiens: j'avoue, c'est pour moi du chinois !!

[philouZ]

Es-tu sûr que ton user et password sont remplis correctement ? Moi je pense qu'à un certain moment les données ne sont plus correctes.

Je constate que la lecture de tes paramètres est pour le moins non conventionnelle. Tu lis un n° d'enregistrement, ce qui fait que si le n° change, tu perds ton paramètre.

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
HLit("paramfac",67)
user=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",68)
password=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",69)
entree=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",70)
ssortie=SansEspace(Paramfac.nompolice)
HRAZ("paramfac")
 
HLit("paramfac",70)
porc=SansEspace(Paramfac.logo)
HRAZ("paramfac")

Tu devrais avoir quelque chose comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
SI HLitRecherche(paramfac,cle,"user",hIdentique) ALORS
    user=SansEspace(Paramfac.nompolice)
FIN
 
SI HLitRecherche(paramfac,cle,"pass",hIdentique) ALORS
    password=SansEspace(Paramfac.nompolice)
FIN
...

[frenchsting]

Bonjour,

Je plussoie Philouz. Je n'avais pas vu la lecture des paramètres.

Petite "subtilité" à ajouter (pour chaque paramètre à lire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SI HLitRecherche(paramfac,cle,"user",hIdentique) ALORS
    user=SansEspace(Paramfac.nompolice)
SINON
    Erreur("Erreur de lecture du paramètre user", herreurinfo(herrcomplet)))
    RETOUR // Pas la peine d'aller plus loin : on ne pourra pas se connecter si on n'a pas la valeur du paramètre
FIN

NOTE : Si tu te poses la question (notamment en parcourant l'aide), HLitRecherche(paramfac,cle,"user",hIdentique) est égal à HLitRecherchePremier(paramfac,cle,"user")

[philouZ]

Bonjour,

Je plussoie Philouz. Je n'avais pas vu la lecture des paramètres.

Petite "subtilité" à ajouter (pour chaque paramètre à lire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SI HLitRecherche(paramfac,cle,"user",hIdentique) ALORS
    user=SansEspace(Paramfac.nompolice)
SINON
    Erreur("Erreur de lecture du paramètre user", herreurinfo(herrcomplet)))
    RETOUR // Pas la peine d'aller plus loin : on ne pourra pas se connecter si on n'a pas la valeur du paramètre
FIN

NOTE : Si tu te poses la question (notamment en parcourant l'aide), HLitRecherche(paramfac,cle,"user",hIdentique) est égal à HLitRecherchePremier(paramfac,cle,"user")

C'est vrai que je ne suis pas allé au bout des choses mais le temps c'est de l'argent...

Pour HLitRecherchePremier() c'est vrai. Perso je ne l'utilise jamais donc je finis par écrire les fonctions par habitude... Je me suis toujours demandé s'il y en avit une plus rapide que l'autre.

[frenchsting]

C'est vrai que je ne suis pas allé au bout des choses mais le temps c'est de l'argent...

Pour HLitRecherchePremier() c'est vrai. Perso je ne l'utilise jamais donc je finis par écrire les fonctions par habitude... Je me suis toujours demandé s'il y en avit une plus rapide que l'autre.

Pas de souci.

Pour le HlitRecherchePremier, quand tu as, par exemple, un accès natif Oracle, tu ajoutes le hlimiteParcours qui te permet de gagner énormément de temps de traitement (expérience vécue).

Et pareil, le réflexe... Et pour moi, c'est HlitRecherchePremier

[Robert le débutant]

C'est vrai que je ne suis pas allé au bout des choses mais le temps c'est de l'argent...

Pour HLitRecherchePremier() c'est vrai. Perso je ne l'utilise jamais donc je finis par écrire les fonctions par habitude... Je me suis toujours demandé s'il y en avit une plus rapide que l'autre.

J'ai tout changé selon vos indications, ça plante de façon aléatoire (1 essais sur 3 ratent)

Pour information, pendant 3 ans, je n'ai eu aucun problème avec l'envoi de mes factures, c'est depuis un mois que je rencontre le problème.

Avez vous une autre suggestion s'il vous plait ?

(Le fichier paramfac, n'a pas d'index, il contient des paramètres du logiciel selon besoin c'est pour cela que j'appelle un numéro d'enregistrement )

Merci à tous pour votre aide

[philouZ]

Le fichier paramfac, n'a pas d'index, il contient des paramètres du logiciel selon besoin c'est pour cela que j'appelle un numéro d'enregistrement

Alors il faut en créer un. Un fichier sans index, ne doit pas exister, encore moins lorsqu'il s'agit de paramètres...

Que contiennent tes variables lorsque le mail ne s'envoie pas ?

[frenchsting]

Oui, je te plussoie Philippe.

Quand bien même il s'agit d'un idAuto. Le numéro d'enregistrement n'est pas fiable du tout.

[Robert le débutant]

Bonjour,

Il est fort possible que Hotmail/Microsoft ait changé (ou soit en traine de changer) les règles de fonctionnement des sessions SMTP.

Tu ne dis pas quel message d'erreur tu as...

As-tu essayé EmailOuvreSessionSMTP ?

Tu avais parfaitement raison, Google a changé les règles
il faut aller dans la sécurité du compte Google et demander un mot de passe pour messagerie externe.

Une fois obtenu, il faut intégrer ce mdp au code. Et tout refonctionne comme avant

Merci à tous