como enviar e-mail usando o cdonts

[blac3r 0]

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

[explore 3]

Ve se você adciono o compnente em reference!