Macro envoi de mail depuis excel

Version imprimable

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:

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)

Salut,
à lire : Dernière ligne et la dernière colonne renseignées d'une feuille
CodeName

Bref bestialement qqch dans ce genre ( pas testé )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
 
Sub mail()
Dim i As Long
Dim ol As Object, olmail As Object
Dim LastRow As Long
 
    Set ol = CreateObject("Outlook.Application")
    Set olmail = ol.CreateItem(olMailItem)
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
 
    For i = 2 To LastRow
        With olmail
            .To = "smsmonitor@sogecoreunion.com "
            .Subject = "Confirmation de rdv"
            .HTMLBody = "GSM:0" & Feuil1.Cells(i, 8) & " <br/><br/>Je vous confirme le rendez-vous pour votre " & Feuil1.Cells(i, 3) & " à " & Cells(i, 11) & ",d'ici là, roulez prudement. Votre conseiller client " & Feuil1.Cells(i, 12) & "."
            .Display
            .Send
        End With
    Next i
 
    Set olmail = Nothing
    Set ol = Nothing
End Sub

P.-S. : Balise ton code

14/12/2015, 08h34
agastorn

Merci pour le code, cela dit j'ai un souci ligne 9 sur

Code:

Set olmail = ol.Application.CreateItem(olMailItem)

excel dit erreur de compilation pas de variable définie?

une idée?
14/12/2015, 08h49
kiki29

Re, msg précédent effacé par erreur ... , bref voir ici

à lire : Dernière ligne et la dernière colonne renseignées d'une feuille
CodeName
22/12/2015, 16h26
Oliv-

Bonjour,

il faut ajouter une "référence" à "Microsoft OUTLOOK xx.0 Object library" ou déclarer les constantes d'outlook.