Créer une macro template de mail pour chaque classeur

Bonjour,

J'aimerais beaucoup réaliser une macro qui génère un template de mail spécifique à chaque classeur :

"Ventes Absentes", "Stock Absent", "Data Absent", "Ventes Retard", ..., etc
Je voudrais pouvoir avoir dans l'Objet" du mail les différents noms de classeurs.De plus, je voudrais ajouter au début de mail une photo, mais je n'arrive pas à comprendre comment y parvenir. 

Pour le moment, j'ai un code qui ressemble à ça : 

Dim outlookObj As Object

Set outlookObj = CreateObject("Outlook.Application")

Set Mail = outlookObj.CreateItem(0)

With Mail .SentOnBehalfOfName = "username@domain.com"

.Subject = Subject

.HTMLBody = Body

Set Recipients = .Recipients

Set mailRecipient = Recipients.Add(DstList)

mailRecipient.Resolve

End With

Merci d'avance pour votre aide, 

Cordialement, 

Pierre