Macro envoi message (Correction)

Bonjour,

Voici le code dont je voudrais me servir pour envoyer des mails automatiquement.

Le seul soucis et que je veux que le messages prenne en compte plusieurs lignes.

J'ai donc essayé d'y intégrer une boucle FOR mais sans succès.

Je sais que sans cette boucle la macro fonctionne mais il me faudrait pouvoir l'étendre à l'infini...

Sub Envoi()

    Set olApp = CreateObject("Outlook.application")
    Set OlItem = olApp.CreateItem(olMailItem)
Dim finmessage As Integer
finmessage = 22 'Ligne de fin du message

    With OlItem
        .to = Sheets("Macro Message").Range("B1").Value
        .Subject = Sheets("Macro Message").Range("B2").Value
        For i = 3 To finmessage
        .Body = Sheets("Macro Message").Range("Bi").Value & Chr(10)
        Next
        .Send
    End With

     MsgBox "Message envoyé"

End Sub

J'espère que vous serez me répondre

Merci d'avance,

FloBru

Salut

Erreur :

.Body = Sheets("Macro Message").Range("Bi").Value & Chr(10)

Correction

.Body = Sheets("Macro Message").Range("B" & i).Value & Chr(10)

Mais ce n'est pas tout !

Créer une variable

Dim corpsmessage as variant

For i = 3 to 22

corpsmessage = corpsmessage & chr(10) & Sheets("Macro Message").Range("B" & i).Value

Next i

Je pense que sa devrait fonctionner après :

.Body = corpsmessage

Cdlt,

Salut,

Super c'est exactement ca!!!!

Merci beaucoup!

Cdlt,

FloBru