Erro ao enviar para email

A página em si não da erro algum .... mas a mensagem não vai para o destinatário ....meu código-----------------------------------'Criando o objeto de emailset mail = server.CreateObject("CDONTS.NEWMAIL")mail.to = EmailDoCara 'Email para onde o email vai ser enviadomail.from = "suporte@xxx.com.br" 'Email do serviçomail.Subject = "Reenvio de Senha do site WEBSUPERFÁCIL - BISNET"mail.Body = VARbody 'Variável com o corpo da mensagemmail.MailFormat = 0mail.BodyFormat = 0mail.Send 'Envia a mensagemset mail = nothing 'destroi o objeto-----------------------------------Utilizo esse mesmo código para receber cadastros ... so inverto a opção do To e Frome funciona normal.Acho que é problema de Usuário e Senha do EMAIL ... pra pode enviar a mensagem pra outro Dominio. So que ai que tá o problema ... se precisa de ID e SENHA .. como coloco isso no código, sei lá coisa do tipo:mail.ID = MeuIDmail.pass = MinhaSenha?!?!?! :( e se não é possivel utilizando esse componente alguem poderia postar o codigo de outro método ?brigadão ;)