Discussion :

[agastorn]

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)

[kiki29]

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 :

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
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

[agastorn]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set olmail = ol.Application.CreateItem(olMailItem)

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

une idée?

[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

[Oliv-]

Bonjour,

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