Réponse n° 1 -------- le 20/01/2018 : 03:16 par 3_Stone
visiteur |
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)
|