Sub envoiMail()
Dim OutApp As Object Dim OutMail As Object Set OutApp =
CreateObject("Outlook.Application” )
Set OutMail = OutApp.Createltem(0)
With OutMail
.to = "ventes@excelcorpo.com"
.Subject = "Rapport de croissance"
.Body = "Bonjour l'équipe, Veuillez trouver ci-joint le rapport de croissance."
.Attachments.Add ActiveWorkbook.FullName .display End With
Set OutMail = Nothing Set OutApp = Nothing End Sub

Utilisez ce code de macro pour envoyer rapidement votre classeur actif dans un e-mail. Vous pouvez modifier le sujet, l’e-mail et le corps du texte dans le code et si vous souhaitez envoyer cet e-mail directement, utilisez « .Send » au lieu de « .Display ».