Sub envoimail()
Dim monfichier As String
monfichier = ActiveWorkbook.Path & '\\' & ActiveWorkbook.Name
Dim MonOutlook As Object
Dim EMail As Object
Set MonOutlook = CreateObject('Outlook.Application')
Set EMail = MonOutlook.CreateItem(olMailItem)
EMail.To = 'tomtom@tom.net'
EMail.attachments.Add (monfichier)
EMail.Subject = 'fichier' & monfichier
EMail.Body = 'Madame, Monsieur,' & _
(Chr(13)) & (Chr(13)) & _
'Voici votre fichier ' & _
'Cordialement,' & _
(Chr(13)) & (Chr(13)) & _
'Tom'
EMail.display
SendKeys '^' & '~'
Set EMail = Nothing
End Sub