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
' !!!!!!!!!!!!!!!!!!!!!! A REMPLIR !!!!!!!!!!!!!!!!!!!!!!
AdresMail = "nom@site.fr" ' ?????????????????????
AdresMailCC = "nom@site.fr" ' ?????????????????????
AdresMailBCC = "nom@site.fr" ' ?????????????????????
Sujet "??????????????????????????????"
Msg = "??????????????????????????????"
' CECI COPIE UNE FEUILLE ACTIVE DANS UN NOUVEAU CLASSEUR
ActiveSheet.Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NomDeLaPieceJointe.xls" '??????????????????
' OUBVERTURE OUTLOOK POUR ENVOYE
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 NewB.FullName
.Display
End With
' REFERME LE CLASSEUR
ActiveWorkbook.Close
' SUPPRIME LE CLASSEUR
Kill ThisWorkbook.Path & "\NomDeLaPieceJointe.xls"'??????????????????
End Sub