Bonjour
J'aimerais envoyer un email à chaque changement dans une cellule de la colonne D qui contient le mot "En formation". Pour l'instant rien ne se passe, je n'ai pas de message d'erreur, le mail n'est pas envoyé.

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
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
Dim i As Integer
 
 
'Set OL = CreateObject("Outlook.Application")
'Set myItem = OL.CreateItem(olMailItem)
 
 
For i = 2 To 21
 
 
Set OL = CreateObject("Outlook.Application")
Set myItem = OL.CreateItem(olMailItem)
 
 
If Range("D" & i).Text = "En formation"  Then
 
 
   With myItem
        .To = "monadressemail1@yahoo.fr"
        .Subject = Range("E" & i).Text & " est entré(e) en formation"
        .Body = "Cordialement" & Chr(13) & Chr(10) & "Lucien DUMARD"
        .Send
    End With
 
 
End If
 
 
Next
 
 
End Sub