XL 2016 Génération email avec sélection de certaines lignes

[cedric818181]

Bonjour,


Dans le cadre de mon travail, je souhaite, à partir d'un fichier Excel, générer un email à partir d'un clic sur un bouton (inclus dans le fichier). Cet email devra contenir:

- un nom d'expéditeur (expediteur@societe.fr)

- plusieurs noms de destinataires (dest1@client.fr; dest2@client.fr)

- plusieurs noms de destinataires en copie (chef@societe.fr;chef2@scoiete.fr)

- un objet : "Compte rendu journalier"

- une phrase d'introduction :"Bonjour, veuillez trouver ci-dessous les informations demandées"

- la recopie des lignes dont la colonne "Nom" est surlignée en jaune (ou ligne 9 à 15) ET la colonne "Commentaire" est rouge ou verte. Dans mon exemple (voir fichier joint), l'email ne devra donc contenir que les lignes 9 et 12.


Est ce que ceci est faisable? Merci d'avance pour vos précieux conseils.

Cédric

 

[cedric818181]

Bonjour,



J'ai trouvé le code pour générer l'email

Sub Bouton1_Cliquer()
Dim MailCL As Variant
Set MailCL = CreateObject("Outlook.Application")
With MailCL.CreateItem(olMailItem)
.Subject = "Lignes en erreur"
.To = "XXXX.XXXX@YYYYYYY.com"
.CC = "UUUUUUU@SSSSS.com"
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Corps = Corps & "Veuillez trouver ci-joint les erreurs:"
.Body = Corps
.Display
End With
End Sub



Me reste donc à trouver comment sélectionner les lignes qui m’intéressent et comment les coller dans cet email.