Public Sub EnvoiMailOutlook()
Dim OutApp As Object, OutMail As Object, NewB As Workbook
Dim AdresMail As String, AdresMailCC As String, AdresMailBCC As String
Dim Sujet As String, Msg As String
AdresMail = "[EMAIL="ddd@dddd"]ddd@dddd[/EMAIL]"
AdresMailCC = "[EMAIL="ddddd@ddddd"]ddddd@ddddd[/EMAIL]"
Sujet = "ouverture d'une fiche de non conformité"
Msg = "une non conformité à été détectée"
ActiveSheet.Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "feuil nc.xls"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo 0
With OutMail
.To = AdresMail
.CC = AdresMailCC
.BCC = AdresMailBCC
.Subject = Sujet
.Body = Msg
.Attachments.Add ThisWorkbook.Path & "feuil nc.xls"
.Display
End With
ActiveWorkbook.Close
Kill ThisWorkbook.Path & "feuil nc.xls"
End Sub