FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
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
Connectez-vous…
meumeu321
#1
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 :
Signaler
0
0
→ Revenir à WEBDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
WEBDEV (précédentes versions)
WINDEV Mobile (précédentes versions)
Etats & Requêtes
Hors-sujet
Outils
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte