VB [smtp_winsock:send progress]

[jabjoint]

Avete presente il procedimento per inviare un' email tramite SMTP?
per comprenderci:

-C: connect to server...
-S: 220 smtp102.mail.sc5.yahoo.com ESMTP
-C: ehlo

-S: 250-smtp015.mail.yahoo.com
250-AUTH LOGIN PLAIN
250-PIPELINING
250 8BITMIME

-C: AUTH LOGIN
-S: 334 VXNlcm5hbWU6
-C: username(Base64)
-S: 334 UGFzc3dvcmQ6
-C: password(Base64)
-S: 235 ok, go ahead (#2.0.0)
-C: mail from: username@yahoo.it
-S: 250 ok
-C: rcpt to: e-mail@mailprovider.it
-S: 250 ok
-C: DATA
-C: from: user
-C: to: friend
-C: subject: hello!
-C:
-C:
-C: my body
-C:
-C: .

-S: 354 go ahead
-S: 250 ok 1020311035 qp 34222
-S: 221 smtp102.mail.sc5.yahoo.com95 qp 34222

Il programma che mi invia l' e-mail deve restituirmi lo stato d' invio di essa.(da controllare con "ProgessBar").

Una volta spedita l' e-mail con il ".", chiudo il server "quit" ed aspetto la risposta "221" che mi indica l' invio completo dell' e-mail.

Come faccio l' evento "SendProgress"?

[jabjoint]

proprio nessuno a voglia di aiutarmi?

[Mychy]

-C: connect to server... 
-S: 220 smtp102.mail.sc5.yahoo.com ESMTP 
-C: ehlo 

progressbar1.value=10
-S: 250-smtp015.mail.yahoo.com 
250-AUTH LOGIN PLAIN 
250-PIPELINING 
250 8BITMIME 
progressbar1.value=20
-C: AUTH LOGIN 
-S: 334 VXNlcm5hbWU6 
-C: username(Base64) 
-S: 334 UGFzc3dvcmQ6 
-C: password(Base64) 
-S: 235 ok, go ahead (#2.0.0)
progressbar1.value=30 
....