como enviar e-mail usando o cdonts

ola galera estou tendo poblemas com a dll cdonts

instalei ela na system32 registrei fiz referencia no visual basic.

soh que ela n esta enviando o e-mail para mim e esta dando erro. vo colocar o codigo e o erro.

me ajudem plz.

presiso usar essa dll pq foi a unica que eu fi que n presisa se algum servidor smtp externo.

Option ExplicitPrivate Sub Command1_Click()Dim cdont As New CDONTS.NewMailSet cdont = New CDONTS.NewMailcdont.To = praquem.Textcdont.From = dequem.Textcdont.Subject = assunto.Textcdont.Body = mensagem.Textcdont.SendMsgBox "e-mail enviado"End Sub

erro que da depois que clica em enviar.

method 'send' of object "INewMail" failed

ajude me