laurchante
XLDnaute Nouveau
Bonjour à tous,
Je viens vers vous pour avoir des informations/pistes sur la possibilité de mettre dans le corps d'un mail (via la fonction CDO.message) un range de cellule Excel (idéalement une image, équivalent à Range("A12:AG53").CopyPicture)
Voici la base de mon code VBA, mais je ne trouve pas comment intégrer dans le corps du message mon image/sélection, j'ai essayé avec de l'HTML mais je ne récupere que le contenu de mes cellules pas les tableaux complets ni les graphs.
Avez vous des idées ?
Je viens vers vous pour avoir des informations/pistes sur la possibilité de mettre dans le corps d'un mail (via la fonction CDO.message) un range de cellule Excel (idéalement une image, équivalent à Range("A12:AG53").CopyPicture)
Voici la base de mon code VBA, mais je ne trouve pas comment intégrer dans le corps du message mon image/sélection, j'ai essayé avec de l'HTML mais je ne récupere que le contenu de mes cellules pas les tableaux complets ni les graphs.
Avez vous des idées ?
VB:
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