|
|
|
|
|
|
|
|
|
|
- Example: Sending an email using SMTP
- Example: Sending an email via MS Exchange
- Sending Email via a secure SMTP server
EmailSendMessage (Example)
Example: Sending an email using SMTP The following code is used to send an email by using the SMTP protocol. The characteristics of SMTP protocol have been specified by EmailStartSession (address of POP3 server, address of SMTP server, 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 Example: Sending an email via MS Exchange Sending Email via a secure SMTP server // 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
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|