WDForge.org - Forums

Re: Envoi d'Email

Sujet: Re: Envoi d'Email
par cortex sur 22/8/2006 19:51:31

// si l'ordinateur de l'utilisateur n'est pas connecté à Internet
SI InternetConnecté()=Faux ALORS
Info("Vous devez être connecté à Internet pour envoyer un message.")
RETOUR
FIN

Sablier()

// vérification rapide des adresses email
SI bVérifieEmail(SAIS_DEST)=Faux ALORS
Erreur("La liste des adresses est incorrecte")
RepriseSaisie(SAIS_DEST)
FIN

// ouverture de session
EmailOuvreSessionSMTP(COMPTE.Login,COMPTE.AdrSrvSmtp)
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
RETOUR
FIN

CHJauge=0;CHJauge..Visible=Vrai

EmailJauge(CHJauge)

// envoie du mail
SI bExpédier() ALORS
MAIL.destinataires = SAIS_DEST
MAIL.expediteur = COMPTE.AdrMail
MAIL.sujet = SAIS_SUJET
MAIL.Date = DateSys()
MAIL.Heure = HeureSys()
MAIL.ContenuTXT = SAIS_MESSAGE
MAIL.ContenuHTML = SAIS_MESSAGE
MAIL.FicAt = SAIS_FICAT
MAIL.Etat = "E"
MAIL.COCLEUNIK = COMPTE.COCLEUNIK
MAIL.Identifiant = "Env_"+MAIL.Heure
HAjoute(MAIL)

MAIL.Identifiant = "Env_"+MAIL.MACLEUNIK
HModifie(MAIL)

// fermeture de session
EmailFermeSession(COMPTE.Login)
MaFenêtre..ValeurRenvoyée=Vrai
CHJauge=100;CHJauge..Visible=Faux
Ferme()

SINON
CHJauge=100;CHJauge..Visible=Faux
Erreur("Votre email n'a pas pu être envoyé pour la raison suivante :",ErreurInfo(errRésumé))
Sablier(Faux)
FIN

PS: C'est le code de l'exemple WINDEV 9 (WD POP3)