Visual Basic 6 - vb6.0 winsock e mail

salve a tutti vorrei kiedere l'ennesimo aiuto riguardo all'invio di mail cn winsock xk nn riesco a venirne a capo
il codice è il seguente...

Dim ricevi As String

Private Sub spedisci()
   tcp1.Connect "servermail", 25
   delay
  tcp1.SendData "RSET" & vbCrLf
   delay
  tcp1.SendData "HELO " & tcp1.LocalIP & vbCrLf
   delay
   
   tcp1.SendData "MAIL FROM:<" & "mittente" & ">" & vbCrLf
   delay
      tcp1.SendData "RCPT TO:<" & "dest." & ">" & vbCrLf
   delay
        Dim messaggio As String
        messaggio = "prova mail"
   tcp1.SendData "DATA" & vbCrL
   delay   
 'se tolgo delay in sto punto da errore 354 Start mail input; end with <CRLF>.<CRLF>
  
 tcp1.SendData messaggio
   
    tcp1.SendData vbCrLf + "." + vbCrLf
    delay
   tcp1.Close
End Sub

Private Sub TCP1_DataArrival(ByVal bytesTotal As Long)
  tcp1.GetData Dalserver, vbString
  ricevi = Dalserver
  Text1.Text = Text1.Text + ricevi
  
End Sub

Private Sub delay()
Do While ricevi = ""
DoEvents
Loop
ricevi = ""
End Sub

e la text1 come risposta mi da'

Text1220 vsmtp3.tin.it ESMTP Service ready
250 RSET
250 vsmtp3.tin.it
250 MAIL FROM:<mittente@cos.it> OK
250 RCPT TO:<dest@e.e> OK

e poi rimane cosi fermo :S
cosa puo essere?

Non e' possibile effettuare il mail relay con tin.it

Devi autenticarti prima come utente della posta di tin altrimenti non puoi spedire posta.

si ma ho provato diversi server
tipo out.virgilio.it
e l'errore nn cambia (in altri programmi nn fatti da me out.virgilio.it funziona)
quindi il prob. è nel codice..ma dove?

Allora non mi sono spiegato ...

Ti devi AUTENTICARE al tuo provider di posta per inviare posta da un programma ...

Quel programma che non e' tuo, probabilmente lo fa ...

In ogni caso, aggiungi al tuo codice, le istruzioni per ottenere il messaggio di risposta dal server SMPT e vedi cosa risponde ...

Se proprio vuoi fare una prova veloce, usa il comando da DOS

TELNET vsmtp3.tin.it 25

e instaura una sessione SMTP

P.S. Se proprio vuoi un buon consiglio, non scrivere tu il codice ma utilizza quello della

vbsendmail.dll

che e' disponibile e scaricabile ...

Text1220 vsmtp3.tin.it ESMTP Service ready
(idem da dos)
al server si connette
da ok al mittente
da ok al destinatario
e dopo ke si blocca :s qnd dovrebbe inviare si ferma...o senza delay da errore
ma al server smtp si connette xo

Scusa ... ma hai letto quello che ti ho scritto circa il comando TELNET ?

si e si connette -_-''

Non basta che si connette ... hai scritto da DOS con la telnet tutti i comandi della sessione SMTP?