Salut a tous,
mon problème c'est que je doit séléctionner un client d'après le Combo et quand je clic sur Envoyer un code crée une etat et l'exporter en excel et puis le choisir comme attachement et l'envoyer par Outlook au client séléctionner.
j'ai créer une etat automatique sur le tableau et j'ai utilisé le code suivant :
mais quant je clic il génère le xls mais il n'envoie pas l'email, aide moi s'il vous plait ( je suis debutant ) et Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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