Ton code est bine complexe ... mais je comprends donc que tu maîtrises VBA.
Don voici un bout de code simple qu'il te reste à intégrer ...
Sub envoimailoutlook()
Dim messagerie As Object
Dim email As Object
Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
With email
.to = "prenom.nom@fai.fr"
.Subject = "mettre ici le titre du mail"
.body = "mettre ici le texte"
.display ' à remplacer par .send si ok
End With
Set email = Nothing
Set messagerie = Nothing
End Sub