|
| Iniciado por THINK, 15,abr. 2019 09:46 - 5 respuestas |
| |
| | | |
|
| |
Miembro registrado
13 mensajes |
|
| Publicado el 15,abril 2019 - 09:46 |
Les paramétrés du compte email sont bons mais aucun email n'est envoyé
dDte1,dDte2 est une Date
dDte1 = DateVersChaîne(DateSys(),"JJ/MM/AA")
dDte2 = DateVersJourEnLettre(DateSys())
CAHT, CATTC, CATVA, CARemise, CACredit, CAComptant, CAMarge sont des numériques
TxCo, TxCr sont des numériques
TxFreq, PanierM sont des numériques
CAHT = "800000";CARemise = "10000";CACredit = "240000";CAComptant = "600000";CATVA = "50000";CATTC = "840000"; CAMarge = "45000"
TxCo = ArrondiSupérieur(Val(CAComptant/CATTC)*100,0)
TxCr= ArrondiInférieur(Val(CACredit/CATTC)*100,0)
TxFreq = "6"
PanierM = "4500"
NomStructure est une chaîne = "XXXXXXXXX"
EntenteMail est une chaîne = "<center><b><font color=#86af49>"+NomStructure+"</font></b><br>Récapitulatif des Activités du <b><font color=#d64161>"+dDte2+"</font></b><hr>"
CorpsMail1 est une chaîne = "<u>CA HT</u> : "+CAHT+" Frs<br> <u>REMISE</u> : "+CARemise+" Frs<br><u>TVA</u> : "+CATVA+" Frs<br><u>CA TTC</u> : <font color=#DC143C><b>"+CATTC+" Frs</font></b><br> <u>MARGE </u> : <font color=#191970><b>"+CAMarge+" Frs</b></font>"
CorpsMail2 est une chaîne = "<br><br><font color=#008080><b>"+ TxCo +" %</b></font> COMPTANT : <font color=#008080><b>"+CAComptant+" Frs </b></font><br><font color=800080><b>"+ TxCr +" %</b></font> CREDIT : <font color=800080><b>"+CACredit+" Frs</b></font>"
CorpsMail3 est une chaîne = "<br><br>"+" Nbre Vente : <font color=#191970>"+TxFreq+" </font> | Panier Moyen : <font color=#191970>"+PanierM+" Frs </font><hr>"
CorpsMail4 est une chaîne = "VERSEMENT : <font color=#191970>"+367000+" Frs</font><br>ECART : <font color=#DC143C>"+200+" Frs </font>"
SignatureMail est une chaîne = "<br><br><font color=#50394c>xxxx® "+AnnéeEnCours()+" | www.xxxx.com</font></center>"
NomMail est une chaîne = "xxxx@xxxxxi"
EmailRAZ()
EmailChangeTimeOut(10)
MonMail est une chaîne = EntenteMail + CorpsMail1 + CorpsMail2+ CorpsMail3 +CorpsMail4 + SignatureMail
SI EmailOuvreSessionSMTP(NomMail,"xxxxx","mail.xxxxxxxi","587") = Vrai ALORS
Info("Session Ouverte")
Email.Expéditeur = "xxxxx@xxxxxxx"
Email.Destinataire[1] = "destinat@icloud.com"
Email.NbDestinataire = 1
Email.Sujet = "RAPPORT D'ACTIVITE DU "+dDte1
Email.HTML = MonMail
Email.NbAttache = 0
SI EmailEnvoieMessage(NomMail) = Vrai ALORS
Info("Mail Envoyé")
SINON
EmailEnvoieMessage(NomMail)
FIN
SINON
Erreur(ErreurInfo(errComplet))
FIN
--
PS : I Love Windev |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
86 mensajes |
|
| Publicado el 15,abril 2019 - 12:51 |
Un p'tit bonjour + un p'tit merci ca fait pas de mal
Bonjour,
Il manque les codes d'acces au serveur (AdresseSertveur, nomConnexion, MotDePasse connexion, portServeur)
Bon dev
--
On a le droit de ne pas savoir, on n'a pas le droit de ne pas apprendre
Jean Claude Boulet |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
13 mensajes |
|
| Publicado el 16,abril 2019 - 09:31 |
Chambiges a écrit :
Un p'tit bonjour + un p'tit merci ca fait pas de mal
Bonjour,
Il manque les codes d'acces au serveur (AdresseSertveur, nomConnexion, MotDePasse connexion, portServeur)
Bon dev
--
On a le droit de ne pas savoir, on n'a pas le droit de ne pas apprendre
Jean Claude Boulet
Bonjour
(On a le droit de ne pas savoir, on n'a pas le droit de ne pas apprendre)
J'ai eu le Droit d'apprendre 
si je pense l'avoir fait en utilisant ou j'ai le mal utilisé
SI EmailOuvreSessionSMTP(NomMail,"MODE DE PASSE","mail.xxxxxxxi","587") = Vrai ALORS
Info("Session Ouverte")
Email.Expéditeur = "xxxxx@xxxxxxx"
Email.Destinataire[1] = "destinat@icloud.com"
Email.NbDestinataire = 1
Email.Sujet = "RAPPORT D'ACTIVITE DU "+dDte1
Email.HTML = MonMail
Email.NbAttache = 0
SI EmailEnvoieMessage(NomMail) = Vrai ALORS
Info("Mail Envoyé")
SINON
EmailEnvoieMessage(NomMail)
FIN
SINON
Erreur(ErreurInfo(errComplet))
FIN
Jusque là aucun email envoyé, c'est déprimant
Merci
--
PS : I Love Windev |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
2.321 mensajes |
|
| Publicado el 16,abril 2019 - 09:57 |
Bonjour,
Votre code a l'air bien construit, mais vous ne dites rien de votre environnement :
Quel est le serveur SMTP ?
Le réseau local est-il sécurisé comme à la maison, dans une PME, dans une grande entreprise ?
Commencez par simplifier votre code pour n'envoyer qu'un texte simple (pas HTML).
"aucun email envoyé" ???
Y a-t-il un message d'erreur
Code bizarre :
SI EmailEnvoieMessage(NomMail) = Vrai ALORS
Info("Mail Envoyé")
SINON
EmailEnvoieMessage(NomMail)
FIN
Manque la fermeture de Session.
--
Bon dev,
Jean-Pierre |
| |
| |
| | | |
|
| | |
| |
| Publicado el 16,abril 2019 - 11:21 |
THINK a écrit :
SI EmailOuvreSessionSMTP(NomMail,"xxxxx","mail.xxxxxxxi","587") = Vrai ALORS
Bonjour,
Si le port est le 587, il est probable qu'il s'agisse d'une connexion sécurisé
Il fudrait donc rajotuer le paramètre emailOptionSécuriséTLS
SI EmailOuvreSessionSMTP(NomMail,"xxxxx","mail.xxxxxxxi","587", emailSynchrone, emailOptionSécuriséTLS) = Vrai ALORS |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
13 mensajes |
|
| Publicado el 16,abril 2019 - 17:25 |
Jean-Pierre a écrit :
Bonjour,
Votre code a l'air bien construit, mais vous ne dites rien de votre environnement :
Quel est le serveur SMTP ?
Le réseau local est-il sécurisé comme à la maison, dans une PME, dans une grande entreprise ?
Commencez par simplifier votre code pour n'envoyer qu'un texte simple (pas HTML).
"aucun email envoyé" ???
Y a-t-il un message d'erreur
Code bizarre :
SI EmailEnvoieMessage(NomMail) = Vrai ALORS
Info("Mail Envoyé")
SINON
EmailEnvoieMessage(NomMail)
FIN
Manque la fermeture de Session.
--
Bon dev,
Jean-Pierre
Bonsoir
il y'a un message d'erreur
J'utilise la paramètre smtp de mon site web pour envoyer mes emails
c'est peut être du a mon hebergeur.
Merci |
| |
| |
| | | |
|
| | | | |
| | |
|