Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
ThisWorkbook.Save
On Error Resume Next
With OutMail
.To = "maboite@perso.fr"
.CC = ""
.BCC = ""
.Subject = "Inscription Evenement - 2008"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Merci pour votre participation !", vbOKOnly, "Notre évènement"
End Sub