Try

EXEC @hr = sp_OAMethod @iMsg, 'CreateMHTMLBody', NULL, 'http://intranetserver/test/tht.htm'.

The Null parameter is to handle the potential return value from the sp_OAMethod call