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
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
Code:
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