Добрый день.
А чем помочь? Тут больше на ТЗ похоже, чем на помощь. Не видно, чтобы Вы сами хоть как-то попытались сделать что-то самостоятельно. Например, построить под себя код из статьи:
Как отправить письмо из Excel?Единственное, для создания письма из своего шаблона надо будет вместо строки:
Set objMail = objOutlookApp.CreateItem(0) 'создаем новое сообщение
применить такую:
Set objMail = objOutlookApp.CreateItemFromTemplate(Cells(lr, 3).Value) 'создаем письмо из шаблона, полный путь к которому записан в ячейке третьего столбца