DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / Développer une application ou un site / Champs, fenêtres et pages / Champs : Types disponibles / Champ Zone de Texte Riche
  • Exemple : Envoi d'un email en utilisant le protocole SMTP
  • Exemple : Envoi d'un email par l'intermédiaire de MS Exchange
  • Envoi d'email via un serveur SMTP Sécurisé
EmailEnvoieMessage (Exemple)
Exemple : Envoi d'un email en utilisant le protocole SMTP
Le code suivant permet d'envoyer un email en utilisant le protocole SMTP. Les caractéristiques du protocole SMTP ont été précisées grâce à la fonction EmailOuvreSession (adresse du serveur POP3, adresse du serveur SMTP, etc.).
SI EmailOuvreSession(USER, PASSWORD, "pop3.gmail.com", ...
"smtp.gmail.com") = Vrai ALORS
NomUser = USER
SINON
  NomUser = ""
  Erreur("Impossible d'établir la connexion")
FIN
// Initialise les composantes du mail
Email.Expéditeur = "<user@pcsoft.fr>" // L'expéditeur
Email.Destinataire[1] = DESTINATAIRE // Le destinataire
Email.NbDestinataire = 1 // Le nombre de destinataires
Email.Sujet = SUJET // Le sujet
Email.Message = TEXTE // Le corps du message
Email.NbAttache = 0 // Le nombre de pièces attachées
// Envoie le mail
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur()
FIN
Exemple : Envoi d'un email par l'intermédiaire de MS Exchange
WINDEVWEBDEV - Code ServeurEtats et RequêtesWindowsCode Utilisateur (MCU)Ajax Le code suivant utilise MS Exchange pour envoyer un email. Un profil "PROFIL_Exemple" a été créé sous MS Exchange. Pour plus de détails sur la création des profils, consultez la fonction EmailOuvreSession.
IDEmail est un entier
IDEmail = EmailOuvreSession("PROFIL_Exemple")
// Initialisation des variables
Email.NbDestinataire = 1
Email.Destinataire[1] = "pcsoft@pcsoft.fr"
Email.NbAttache = 0
Email.Message = ""
// Envoi du message à MS Exchange
EmailEnvoieMessage(IDEmail)
...
EmailMiseAJour(IDEmail)
...
EmailFermeSession(IDEmail)
Envoi d'email via un serveur SMTP Sécurisé
// Envoi d'email via un serveur SMTP Sécurisé
 
// Session SMTP Sécurisée
gSessionSMTP est une emailSessionSMTP
gSessionSMTP.AdresseServeur = "smtp.gmail.com"
gSessionSMTP.Nom = gsUser
gSessionSMTP.MotDePasse = gsPassword
gSessionSMTP.Port = 587
gSessionSMTP.Option = emailProtocoleSMTPS
 
// Contenu de l'email    
UnCourriel est un Email
UnCourriel.AdresseExpéditeur = gsUser
UnCourriel.Destinataire[1] = "pcsoft@pcsoft.fr"
UnCourriel.Sujet = "Envoi d'un email depuis WINDEV."
UnCourriel.Message = "Envoi d'un message email depuis WINDEV."
 
// 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
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 28/06/2023

Signaler une erreur ou faire une suggestion | Aide en ligne locale