Sub envoi_mail()
'Definition des variables
Dim iMsg As Object, iConf As Object, Flds As Object, tab as Range
'Sheets("RECEPTION J-1").Range("A1:N" & Range("A65536").End(xlUp).Row).Select
tab = Sheets("Synthèse").Range("A12:AG53").CopyPicture
'Desactivation des messages d'alerte
Application.DisplayAlerts = False
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
'https://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "srvsmtp.xxx.corp"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "moi@xxx.com"
'.cc = "eee@xxx.com"
.From = "Analyse@xxx.com"
.Subject = "test Mail"
.HTMLBody = "Bonjour,<br> Voici le fichier: " & tab
'.AddAttachment
.Send
End With
End Sub