pq. vc não formata manualmente com html conforme exemplo abaixo e não esqueça de passar os outros parâmetros que faltam:
strMensagem = "<table width='100%' border='0'><tr><td width='70%' align='left'><font size='1' face='Verdana'>Prezado(a) cliente," '& CodAtual
strMensagem = strMensagem & "<br><br>Estamos enviando nosso relatório dos atendimentos prestados<br>durante o período de<strong> " & DtInicial & " </strong>até <strong>" & DtFinal & ".</strong><br>"
strMensagem = strMensagem & "[S] Atendimento Solucionado [N] Atendimento Pendente</td><td width='30%' align='right'><img src='http://SEU SITE/img/logo.gif'></td></tr></table><br>"
Set objMail = Server.CreateObject("CDONTS.NewMail") 'Cria objeto cdonts na memória p/ enviar e-mail.
strNome = Session("NomeADM")
strRemetente = "
consultoria@hitecnet.com.br"
strDestinatario = EmailDest '& "
suporte@hitecnet.com.br"
strAssunto = "Relatório de atendimento ao cliente"
' deixar esta linha p/ testes. descomente-a p/ testá-la.
' Response.Write strDestinatario & "<br>" & strMensagem & "<br><br>"
objMail.From = strNome & " <" & strRemetente & ">" 'é preciso colocar os sinais < e > devido ao cabeçalho do servidor de mensagens.
objMail.To = strDestinatario
objMail.Subject = strAssunto
objMail.Body = strMensagem
objMail.BodyFormat = 0 '»»0: formato HTML - 1: formato texto.
objMail.MailFormat = 0 '»»0: anexo em formato MIME - 1: anexo em formato texto.
' '»»» Esta linha posta(envia) a mensagem com relatório p/ referida empresa. Comentá-la enqto. formata o código p/ a mensagem.
objMail.Send
Set objMail = Nothing 'tira o objeto da memória.
