Sub choix_agents()
With Sheets(2)
For j = 2 To 5
If .Cells(j, 2) = "X" Then
Nom = .Cells(j, 1)
Call envoi
End If
Next
MsgBox "mails ok"
End With
End Sub
Sub envoi()
Chemin = "C:\Documents and Settings\xxx\Bureau\"
nom_Fichier = Nom & ".xls"
Set imsg = CreateObject("CDO.Message")
Set iconf = CreateObject("CDO.Configuration")
With imsg
Set .Configuration = iconf
If .Attachments.Count <> 0 Then .Attachments.Delete (1)
Fich = Chemin & nom_Fichier
.To = "aaa@aaa.fr"
.CC = ""
.BCC = ""
.From = "bbb@bb.fr"
.Subject = "envoi planning " & Nom
.TextBody = "Bonjour, " & Nom & Chr(10) & "Veuillez trouver ci-joint votre planning"
.addattachment Fich
.Send
End With
End Sub