envoi de mail par VBA - feuille en corps de mail

[vidou]

Bonsoir,

j'ai repris une macro pour l'envoi d'une feuille dans le corp d'un mail - La macro marche assez bien mais :

- La bordure basse de la derniere ligne du tableau n'est pas dans le mail - Le tableau aura un nombre de ligne aléatoire ;
- Je voudrais une demande de confirmation de lecture
- un AR pour la lecture du mail

Sub Send_Range()
   
   ' Slection de la feuille active.
   Sheets("ADIA").Select
      Cells.Select
      
     ActiveWorkbook.EnvelopeVisible = True
   
   With ActiveSheet.MailEnvelope
      .Introduction = "Veuillez trouvez ci-dessous le détail des heures pour la semaine"
       .Item.To = "vidou59@xxxxxx.fr" ' ici je souhaiterais mettre une plage de cellule contenant la liste de diffusion
      .Item.Subject = "Test d'envoi des heures"
      .Item.send
   End With
End Sub

 

[vidou]

Re : envoi de mail par VBA - feuille en corps de mail

Bonsoir,
Quelq'un aurait il une idée pour ma demande ci-dessus ?

Merci bcp