Sub EnvoiMail()
Dim ElémentCourrier As Object
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String
Sujet = "CR Semaine"
AdresseElec = "LeChef1@direction.com; LeChef2@direction.com"
Msg = "Bonjour," & vbCrLf & vbCrLf '''''''''CORRIGER LES FOTES D'ORTO
Msg = Msg & "J'ai le plaisir de vous adresser, "
Msg = Msg & "ci-joint, le CR de la semaine "
Msg = Msg & N°Sem & vbCrLf & vbCrLf
Msg = Msg & "Cordialement" & vbCrLf
Msg = Msg & "Signé : MOI"
'Création de l'élément de courrier et envoi
Set ElémentCourrier = CreateObject("Outlook.Application").CreateItem(0)
With ElémentCourrier
.To = AdresseElec
.Subject = Sujet
.Body = Msg
' .Attachments.Add (MonChemin)
.Display ' ou .send
End With
End Sub