[VB] Sto impazzendo! (WinSock bastardissimo)

[jabjoint]

'Che 2 "oo" è possibile che invia i dati fino ad un ceto punto?
'Uso la stessa procedura tratta da questo codice che mi sembrava
'bello trovato da qualche parte non ricordo dove:

'qua inizia la procedura di SEND: (dopo essere già connesso)

Private Sub cmdMessaggio_Click()

DatiInv = "HELO SMTPClient"
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False

If AuthCheck.Value = 1 Then

'Se selezioni autentifichi vai all' authentificazione altrimenti
'salta al mittente

GoTo Auth
Else
GoTo Mittente
End If

Auth:
If Ric = True Then
DatiInv = "AUTH LOGIN"
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Utente
Else
DoEvents
GoTo Auth
End If

Utente:
If Ric = True Then
DatiInv = "nomeutentecryptato"
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Password
Else
DoEvents
GoTo Utente
End If

Password:
If Ric = True Then
DatiInv = "passwordcryptata"
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Mittente
Else
DoEvents
GoTo Password
End If

Mittente:
If Ric = True Then
DatiInv = "MAIL FROM: " & Trim(Mittente)
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Destinatario
Else
DoEvents
GoTo Mittente
End If

Destinatario:
If Ric = True Then
DatiInv = "RCPT TO: " & Trim(Destinatario)
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Check
Else
DoEvents
GoTo Destinatario
End If

Check:
If Ric = True Then
DatiInv = "DATA"
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Display_Mittente
Else
DoEvents
GoTo Check
End If

:master:
********************* QUI C'E L' ERRORE ************************
:master:

'QUA MI SI BLOCCA FA COMPARIRE "FROM: ilmionome" nel log e basta
'Cioè dovrebbe continuare come ha fatto fin' ora no??????
'Ditemi se vedete qualche errore perchè sto impazzendo grazie.

Display_Mittente:
If Ric = True Then
DatiInv = "FROM: " & Trim(Display_Mittente)
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Oggetto
Else
DoEvents
GoTo Display_Mittente
End If

Oggetto:
If Ric = True Then
DatiInv = "SUBJECT: " & Trim(Oggetto)
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Messaggio
Else
DoEvents
GoTo Oggetto
End If

Messaggio:
If Ric = True Then
DatiInv = Messaggio
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False
GoTo Chiudi
Else
DoEvents
GoTo Messaggio
End If

Chiudi:
DatiInv = "."
Winsock.SendData (DatiInv) + vbCrLf
Log = Log + DatiInv + vbCrLf
Ric = False

Verifica:
If Ric = True Then
MsgBox " Operazione completata." & Chr(13) & Chr(13) & _
" Verificare il log per accertarsi" & Chr(13) & _
"che tutto sia andato a buon fine.", vbInformation, "Ok"
Ric = False
Disconnetti
Exit Sub
Else
DoEvents
GoTo Verifica
End If
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Winsock.GetData DatiRic
Log = Log + DatiRic + vbCrLf
Ric = True
End Sub

'SPERO L' ABBIATE LETTO. CMQ AIUTATEMI VI PREGO!!!!!!!!!
'DOV' E L' ERRORE???????????

[jabjoint]

Porca di quella ......
Grazie ho risolto il problema stava nella ricezione.
dovevo togliere gli "IF rec = True"
Perchè dopo data non riceve + nulla il bastardo fino a dopo il "."
Grazie cmq ciao a tutti!