Forum - Questions sur Access - Envoyer les factures contenuues dans une table par email
le 30/01/2018 : 19:04
par possible924
Bonjour à tous,
J'ai une table contenant une liste de factures avec un champ "CléP_Facture", un champ "Email", un champ "Destinataire" et un champ "Commentaire" Je souhaite imprimer en PDF chaque facture et l'envoyer par messagerie électronique. Pouvez vous m'apporter votre aide pour résoudre ce problème, surtout sur la boucle pour envoyer chaque facture tour à tour ?
Merci par avance pour votre aide Pierre
--------
le 30/01/2018 : 19:07
par 3Stone
Administrateur
Bonjour, Je suppose que tu as ce qu'il faut pour créer des PDF... Je suppose aussi que tu as créer un état qui représente ta facture... Il faut déjà aller jusque là. Ensuite, pour boucler sur les destinataires, tu boucle sur la table avec quelques lignes de code :
Function SendMail() Dim DB As DAO.Database, RST As DAO.Recordset Set DB = CurrentDb Set RST = DB.OpenRecordset("Select [Email] From LaTable;") Do Until RST.EOF Debug.Print RST("[Email]") RST.MoveNext Loop RST.Close: DB.Close Set RST = Nothing: Set DB = Nothing End Function
Bien sûr, tu peux extraire plus de champs avec le select selon ce que tu veux afficher dans le mail... Ici, j'affiche simplement les émails par debug.print, mais tu l'utilise pour envoyer les mails. Pour envoyer les émails, tu peux utiliser l'une des fonctions suivantes. Tu ajoutes bien sûr la facture en pièce jointe. Si tu utilises comme expéditeur une adresse gmail, j'ai aussi un code pour cela. Pour de "petite" factures, tu peux aussi utiliser ceci. Dis-moi ou tu bloque... Cordialement, Pierre (3Stone)
Rectifier message Clôturer sujet Remonter