automatisation outlook express

Bonjour,

Voici du code qui me permet d'envoyer des email
Mais je voudrais automatiser completement car je doit faire envoyer a chaque
Email
Peut o automatiser

Function EnvoiEnNombre()
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

' Ouverture de la table Clients
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Tb Clients] WHERE NOT
IsNull(AdresseCourrierÉlec);", cnn

' Sujet du message
strSujet = "Du nouveau sur le site lauraevasion@wanadoo.fr !"

' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
strMsg = rst("Salutation") & " " & rst("PrénomContact") & " " & _
rst("NomContact") & ", bonjour ! " & vbCrLf & vbCrLf & _
"Notre site web www.lauraevasion.com a été mis à jour." & vbCrLf & _
"Rendez-vous sur le site pour consulter Notre Tarif." & _
vbCrLf & "Pour tout renseignements consultez nous au 01 01 01 01 01
." & _
vbCrLf & vbCrLf & "Votre conseiller."

' Envoi du message
DoCmd.SendObject acSendNoObject, , , _
rst("AdresseCourrierÉlec"), , , strSujet, _
strMsg, True

' Client suivant
rst.MoveNext
Wend

' Fermeture et libération des objets
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function
--
Amicalement et merci