Envoyer plusieurs Email avec une bdd sur feuille Excel

Bonjour à toutes et à tous,

Etant Novice j'aimerais avoir un petit coup de main pour me dire comment puis je envoyer un Email pour chaques destinataires qui ce trouvent dans la colone G de mon classeur "Base donnée Client".

Ci joint le fichier Joint.

Merci d'avance a ce qui pourrait me dire comment faire.

Cordialement.

Vincent.

Fait une boucle for _____ next avec ceci

Sub envoi()

Dim messagerie As Object
Dim email As Object

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = "ici l'adresse email"
        .Subject = "objet"
        .body = "test"
        .send
    End With

End Sub

Merci de votre réponse

Voici ce que j'ai rajouté pour envoyé pluesieurs fois l'email sa fonctionne mais je n'ai pas trouvé comme faire pour changer l'adresse Email automatiquement ( Range("G9").value). J'aimerais que sa commence par le G2 jusqu'a la derniere adresse mail.

Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim max_boucles As Integer
max_boucles = Range("A1")

For i = 1 To max_boucles
 If i < max_boucles Then
    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)

    With email
        .To = Range("G9").Value
        .Subject = "objet"
        .body = "test"
        .send
    End With
    End If
    Next
End Sub

Merci à vous.

Cordialement.

Sub envoi()

Dim messagerie As Object
Dim email As Object

For i = 2 To Cells(Application.Rows.Count, 7).End(xlUp).Row

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)

    With email
        .To = Cells(i, 7)
        .Subject = "objet"
        .body = "test"
        .send
    End With

Next

End Sub

pas testé car je n'ai pas outlook ici !

Merci beaucoup cela va beaucoup m'aider .

Je vais essayer de me débrouiller pour sauter les cellules vide s'il y en a car tous le monde ne donne pas leur adresse mail.

Cordialement.

Vincent.

if Cells(i,7) <>"" then
' le code ici
end if

Vous êtes au top.

Merci à tous.

Cordialement.