1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Email.Expéditeur = SAI_exp
Email.NbDestinataire = 1
Email.Destinataire[1] = SAI_dest
MonTexteHTML est une chaîne
MonTexteHTML = fChargeTexte(nomdufichier)
EmailImporteHTML(MonTexteHTML,nomdufichier)
Email.Attache[1] = nomdufichier
Email.NbAttache = 1
Email.Sujet = SAI_Sjt
Email.Message = SAI_Mess
EmailEnvoieMessage(NomUser)
ma création de l'éat en HTML est :
nomdufichier est une chaîne
Date est une chaîne
Heure est une chaîne
Date = DateVersChaîne(DateDuJour(), "MM-JJ-AAAA")
Heure = HeureVersChaîne(Maintenant(), "HH:MM:SS")
nomdufichier= "C:\" + Date + " " + Heure
iDestination(iHTML,nomdufichier)
iImprimeEtat (ETAT_client,"AB","AC02")
et mon ouverture de session :
User est une chaîne = "utilisateur"
Password est une chaîne = "MotDePasse"
ServeurSMTP est une chaîne = "smtp.nordnet.fr"
NomUser est une chaîne
SI EmailOuvreSessionSMTP(User,Password,ServeurSMTP) ALORS
NomUser = User
SINON
NomUser = ""
Erreur(" impossible d'établir la connexion")
FIN |