PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WEBDEV 2024 → Envoi gmail erreur EmailParamètre
Envoi gmail erreur EmailParamètre
Débuté par meumeu321, 02 fév. 2018 10:34 - Aucune réponse
Membre enregistré
55 messages
Posté le 02 février 2018 - 10:34
Bonjour,
j'ai créé un webservice en v22 pour envoyer des mails depuis une adresse GMail.
Dans un 1er temps, j'ai eu l'erreur du certificat à l'ouverture de la session SMTP. Après recherche sur le forum, j'ai ajouté dans mon code EmailParamètre(emailParamètreMode,1).
Le problème maintenance c'est que quand j'appelle le webservice depuis un projet windev, j'ai l'erreur "la fonction EmailParametre ne peut pas être utilisée en webdev Windows 64 bits"

J'ai fait la mise à jour des DLL sur mon Webdev en local, d'ailleurs quand je fais le test de la procédure, tout fonctionne!
J'ai demandé à PCSCloud de faire la mise à jour de la plateforme, ils me disent que tout est OK !

Mais je n'arrive pas à m'en sortir ! Quelqu'un peut-il m'aider ?

Voici le code de ma procédure pour envoyer le mail (côté webservice) :

PROCEDURE wbs_EnvoiMail(sExpediteur est une chaîne, sDestinataire est une chaîne, sSujet est une chaîne, sObjet est une chaîne, sNom_Pj est une chaîne)

MaSession est une EmailSessionSMTP
MaSession..AdresseServeur = "smtp.gmail.com"
MaSession..Port = 587
MaSession..Nom = "toto@gmail.com"
MaSession..MotDePasse = CST_MDP
MaSession..Option = emailOptionSécuriséTLS

EmailChangeTimeOut(20)
EmailParamètre(emailParamètreMode,1)
HTTP.IgnoreErreur = httpIgnoreCertificatExpiré

SI PAS EmailOuvreSession(MaSession) ALORS
RENVOYER "Erreur lors de l'ouverture de la session SMTP " + RC + ErreurInfo(errMessage)
FIN

MonMessage est un Email
MonMessage..Expediteur = sExpediteur
MonMessage..AdresseExpéditeur = "toto@gmail.com"
Ajoute(MonMessage..Destinataire, sDestinataire)
MonMessage..Sujet = sSujet
MonMessage..Message = sObjet
SI EmailChargeFichierAttaché(MonMessage,ComplèteRep(fRepDonnées())+sNom_Pj)=-1 ALORS
RENVOYER "Erreur lors du chargement de la pièce jointe" + RC + ErreurInfo()
FIN
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
EmailFermeSession(MaSession)
RENVOYER "Erreur lors de l'envoi de l'email " + RC + ErreurInfo()
SINON
EmailFermeSession(MaSession)
RENVOYER "OK Email envoyé"
FIN

FIN:
SI fFichierExiste(ComplèteRep(fRepDonnées())+sNom_Pj) ALORS
fSupprime(ComplèteRep(fRepDonnées())+sNom_Pj)
FIN

Du côté de mon projet Windev qui appelle le web service :