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
|
iDestination(iXLS, "NomFichier.xls")
iImprimeEtat(Etat_Table_Detail_CatalogueClient)
Email.Expéditeur = "admin@admin.com"
HLitRecherche(Client,IDClient,Client.Email)
SI HTrouve(Client)
Email.Destinataire[1] = Client.Email
FIN
Email.NbDestinataire = 1
Email.Sujet = "test de message"
Email.Message = "test"
Email.NbAttach = 1
Email.Attach[1] = "NomFichier.xls"
// Ouverture de la session
MaSession est un entier
MaSession = EmailOuvreSession("user","pass")
SI MaSession <>0 ALORS
// Envoi du message
EmailEnvoieMessage(MaSession, Vrai)
// Fermeture de la session
EmailFermeSession(MaSession)
FIN |
Partager