Sub EnvoiMail()
'Cocher la référence Microsoft Outlook xx.x Object Library
Dim OutApp As Object, OutMail As Object
[Aimprimer].CopyPicture xlScreen, xlPicture
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "catherine.bancillon@finances.gouv.fr"
.CC = ""
.BCC = ""
.Subject = "Solde consolidé à la Bdf au " & Format(Now, "dd mmmm yyyy")
.HTMLBody = ""
.Display
End With
SendKeys "^v" 'collage de l'image uniquement, pour voir
'SendKeys "^v%v" 'collage + envoi du message sur Outlook 2003
End Sub