[Resolvido] cdosys com tags html

Boa tarde pessoal, estou com uma duvida aqui que preciso resolver meio que urgente, é o seguinte:

tenho um envio de email ultilizando o componente cdosys, ja esta funcionando normal, eu apenas queria colocar no corpo do email algumas tags html,

por exemplo "<img src=''>", mas ele interpreta isso como texto e me mando no corpo do email, queria que implementasse uma imagem ao colocar o codigo anterior

alguem sabe o qeu pode ser?

'## Configuração do cabeçalho da mensagem
sDestinatario = request("email")
sRemetente = "ebims@ebims.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio.
sResponder = "ebims@ebims.com.br"
sAssunto = "E-Bims - Reenvio de Senha do Sistema"

 sMensagem = "Segue abaixo os dados de acesso ao sistema<br><br>"
 sMensagem = replace(sMensagem,"<br>",vbcrlf) & "Login: "& busca_dados("login") &"<br>Senha: "& busca_dados("senha")
 sMensagem = replace(sMensagem,"<br>",vbcrlf)

 ' Cria o objeto CDOSYS
 Set objCDOSYSMail = Server.CreateObject("CDO.Message")

 'Cria o objeto para configuração do SMTP
 Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 'SMTP
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserver"](http://schemas.microsoft.com/cdo/configuration/smtpserver)) = "localhost"

 'Porta do SMTP
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserverport"](http://schemas.microsoft.com/cdo/configuration/smtpserverport))= 25

 'Porta do CDO
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/sendusing"](http://schemas.microsoft.com/cdo/configuration/sendusing)) = 2

 'Timeout
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"](http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout)) = 30
 objCDOSYSCon.Fields.update

 'Atualiza a configuração do CDOSYS para envio do e-mail
 Set objCDOSYSMail.Configuration = objCDOSYSCon

 ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
 'Configura o remetente(FROM)
 objCDOSYSMail.From = sRemetente

 'Configura o destinatário(TO)
 objCDOSYSMail.To = sDestinatario

 'Configura o Reply-To(Responder Para)
 objCDOSYSMail.ReplyTo = sResponder

 'Configura o assunto(SUBJECT)
 objCDOSYSMail.Subject = sAssunto

 'Configura o conteúdo da mensagem
 'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody
 objCDOSYSMail.TextBody = sMensagem

 ' ### ENVIA O E-MAIL ###
 objCDOSYSMail.Send

 ' ### DESTRÓI OS OBJETOS ###
 Set objCDOSYSMail = Nothing
 Set objCDOSYSCon = Nothing

 enviado = 1

 response.write "<center class='font_texto'><br><br><br>Os dados de acesso ao sistema foram enviados para o seguinte e-mail: <b>"&sDestinatario &"</b></center>"

no corpo gostaria de colocar a tag <img src="">, mas nao funfa, ele manda como escrito de texto mesmo

alguem tem alguma ideia?