XL 2019 CDO.message et corps de mail

[laurchante]

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 ?

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

 

[laurchante]

Bonjour à tous,

Personne n'a d'idées ?

 

[Hasco]

Bonjour,

Visiblement quelques un ont des idées
https://www.excel-downloads.com/search/2249661/?q=cdo+image&o=relevance
Il suffit de les chercher.

cordialement