HTA Send Email Outlook with signature

[Xlacs]

Hi Everyone,

I have one simple problem in automating the way we send a particular email.
Below code works with signature but the body message disappear whenever I insert the objMailItem.HTMLBody

Any idea what's wrong or any other method on how to recreate my code?

I also tried calling the default signature by using the

Environ("appdata" & "\Microsoft\Signatures\*.htm"

But it seems HTA doesn't recognize it.. =(

Thank You in Advance Guys

Set objOut = CreateObject("Outlook.Application")
Set objMailItem = objOut.CreateItem(0)

objMailItem.Subject = "Blah"
objMailItem.To = "Blah@you.com"
objMailItem.HTMLBody = "Messages" & objMailItem.HTMLBody

objMailItem. Display