Error en envio de Correos

[The_Pretorian]

Buenas tardes:
Hace un buen tiempo me baje el ejemplo que esta en las FAQ, despues de configurarlo funcionaba a la perfección.
La semana pasada mi HD se malogro y tuve q cambiar de disco, reinstale todo lo que tenia antes, incluyendo la aplicacion para enviar correos, pero me di con la sorpresa de que no esta funcionando.
A la hora de probarlo solo me devuelve este mensaje
Error 5: Llamada a procedimiento o argumento no válidos
El Codigo q uso es

Cita:
With SMTP
.Server = varSvrSMTP
.Username = varUidSMTP
.Password = varPwdSMTP
.MailFrom = varEmaSMTP
.SendTo = "[email protected]"
TxtAsunto.Text = "Envio Nº: " & Str(nNumero)
.MessageSubject = Trim(TxtAsunto.Text)
.MessageText = TxtMensaje.Text
.SendEmail
End With


Donde :
SvrSMTP = smtp.mail.yahoo.es
EmaSMTP= [email protected]
UidSMTP = cuenta
PwdSMTP= clave

Muchas Gracias por la orientcion.

Atte
Jorge Diaz

[GeoAvila]

hay otro ejemplo para enviar correos alli en las faq's revisalo hay uno que yo puse..

ese me ha servido...

nos vemos..

[luciano]

Hola , ¿ En que linea te da el error ?


--------------------

[The_Pretorian]

Buenos Dias
Gracias por las respuestas, de esta URL es q me baje el ejemplo y lo modifique segun lo que me pidieron.
http://www.forosdelweb.com/showthrea...eo#post1257252

por otra parte este mensaje me sale es
Error 5: Llamada a procedimiento o argumento no válidos y este aparece cuando usa en metodo SendEmail de ahi automaticamente se ubica en :

Private Sub SMTP_ErrorSMTP(ByVal Number As Integer, Description As String)
StaBarra.Panels(1).Text = "Error " & Number & ": " & Description
Debug.Print "Error " & Number & ": " & Description
End Sub

Como lo comente antes,esot recien se presenta a raiz de cambir de disco duro. Registre el OCX pero de ahi no hace nada mas.

Muchas gracias de antemano.

Atte
Jorge Diaz