Envoi automatique d'emails individualisés

Bonjour à toutes et à tous,

je suis grand débutant sur vba mais je suis parvenu grâce à différents forums à réaliser l'envoi automatisé d'un même email à une liste de contacts.

Voici à quoi ressemble ma feuille excel :

Voici le code que j'utilise :

J'ai besoin maintenant d'envoyer un mail individualisé à chaque email, comme sur cet exemple :

Et je ne sais pas du tout comment faire...

Je joins mon fichier exemple.

Merci d'avance à ceux qui pourront m'éclairer.

Bonne journée,

Denis

Bonjour,

Il vous faut rendre dynamique votre code VBA en y introduisant la de propriété objet.

Je vous donne une piste de réflexion à tester afin que vous maitrisiez votre code et en compreniez les fondements.

Sub Email_25()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    On Error GoTo cleanup
    For Each cell In Columns("J").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" Then
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = Range("K" & cell.Row).Value
                .HTMLBody = Range("L" & cell.Row).Value
                .Attachments.Add Range("M" & cell.Row).Value
                '.Display
                .Send
                'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Cdlt,

PS : Le code n'a pas été testé au préalable mais c'est vers ce quoi il devrait tendre.

Un grand merci!

Je vais me plonger dans cet excellent site pour me former un peu mieux et éviter de reposer des questions aussi basiques à l'avenir :-)

Denis