Bonjour, j'ai un souci avec mon code.

Je souhaite faire une marco qui envoi un mail à chaque destinataire issu de chaque ligne et ce en une fois.

J'ai la macro pour envoyer le mail au bon format avec les bonnes données, il ne me manque plus qu'a le faire passer à la ligne suivante et répéter l'opération et ce sur les 50 lignes suivantes.

voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Sub mail()
Dim i As Integer
Dim ol  As Object, olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.Application.CreateItem(olMailItem)
 
 
With olmail
        i = ActiveCell.Row
        .To = "smsmonitor@sogecoreunion.com "
        .Subject = "Confirmation de rdv"
        .HTMLBody = "GSM:0" & Cells(i, 8) & " <br/><br/>Je vous confirme le rendez-vous pour votre " & Cells(i, 3) & " à " & Cells(i, 11) & ",d'ici là, roulez prudement. Votre conseiller client " & Cells(i, 12) & "."
        .Display
        .Send
    End With
 
End Sub
si quelque 'un peut me filer un coup de main , je lui envoie du rhum de la reunion :o)