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”.