Crear email añadiendo la firma

Dim olkMailItem As Outlook.MailItem ' As Variant
Dim olkInspector As Outlook.Inspector ' As Object
Dim strFirma As String
Dim strCuerpo As String
Set olkMailItem = olkApp.CreateItem(olMailItem)
Set olkInspector = olkMailItem.GetInspector
strFirma = olkMailItem.HTMLBody
strCuerpo = "bla, bla, bla"
olkMailItem.HTMBLody = strtCuerpo & strFirma
..... etc, etc, etc... hasta enviar mail y cerrar objetos