SendEmail secondaire
Faible olApp comme objet, olMsg comme objet
Faibles rs comme DAO.Recordset
Placer l'olApp = le CreateObject (« Outlook.Application »)
Placer les rs = le CurrentDb.OpenRecordset (« NameOfTable »)
Faire tandis que pas rs.EOF
Si Nz (rs ! EmailAddr, "" de "" <> ) alors
Placer l'olMsg = l'olApp.CreateItem (0)
Avec l'olMsg
. À = rs ! EmailAddr
. Sujet = rs ! Sujet
. Corps = rs ! Corps
. Envoyer
Finir avec
Finir si
rs.MoveNext
Boucle
Placer l'olMsg = rien
Placer l'olApp = rien
rs. Fin
Placer les rs = rien
MsgBox « fait »
Sous-marin d'extrémité
|