Envoyer un email en utilisant windev ou Webdev
PROCEDURE Proc_Mail(Subject,txt,Attache="",AdExpéditeur="exemple@email.com")
SI InternetConnecté=Faux ALORS
RENVOYER Faux
FIN
User est une chaîne= "Votreemail@gmail.com"
Password est une chaîne = "mot de passe"
SessionSMTP est une EmailSessionSMTP
SessionSMTP..AdresseServeur = "smtp.gmail.com"
SessionSMTP..Nom = User
SessionSMTP..MotDePasse = Password
SessionSMTP..Port = 587
SessionSMTP..Option = emailOptionSécuriséTLS
Courriel est un objet Email
Courriel..AdresseExpéditeur=AdExpéditeur
Courriel..Expediteur=Societe.nom
Courriel..Destinataire[1] = "
Destinataire1
@gmail.com"
Courriel..Destinataire[2] = "
Destinataire2
@gmail.com"
Courriel..Confidentialité=emailPrivé
Courriel..Sujet = Subject
Courriel.HTML=txt
SI Taille(Attache)<>0 ALORS
Courriel..Attache[1].Nom= Attache
Courriel..Attache[1].Contenu=fChargeTexte(Attache)
FIN
SI EmailOuvreSession(SessionSMTP) = Vrai ALORS
SI PAS EmailEnvoieMessage(SessionSMTP,Courriel) ALORS
RENVOYER Faux
FIN
SINON
RENVOYER Faux
FIN
RENVOYER Vrai
Envoyer un email en utilisant windev ou Webdev
Reviewed by Khebbou
on
06:25
Rating:
Aucun commentaire: