Sub SendEMailwithAttachments()
Dim ol As Object, myItem As Object
Dim strHtml As String
strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<B><font size=6mm>" & _
"vous trouverez ci joint le fichier demandé</font></B>"
strHtml = strHtml & "<BR><BR><BR>" & _
"<font color=red>Cordialement</font>" & "<BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "adresse Email"
myItem.Subject = "envoi d'un fichier attaché"
myItem.HtmlBody = strHtml
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send
Set ol = Nothing
End Sub