XL 2019 CDO.message et corps de mail

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 ?



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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG