Ciao a tutti

facendo la ricerca nel forum ho trovato questo
codice:
Dim sRes As String
Private Sub Command1_Click()
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = your_mail_server_here
    'usa il tuo mail server
    Winsock1.Connect
    Do Until Winsock1.State = 7 '7=connected
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "MAIL FROM: " & your_email_here & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "RCPT TO: " & someone_email_here & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    sRes = "0"
    Winsock1.SendData "DATA" & vbCrLf
    Do Until sRes = "354"
        DoEvents
    Loop
    Winsock1.SendData "FROM: " & your_name_here & vbCrLf
    Winsock1.SendData "SUBJECT: " & subject_here & vbCrLf
    Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
    Do Until sRes = "250"
        DoEvents
    Loop
    Winsock1.Close
    MsgBox "Mail sent!"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    Dim Length As Long
    Winsock1.GetData Data
    Length = Len(Data)
    sRes = Left$(Data, 3)
End Sub
il problema è questo
Chi mi spiega a cosa servono tutti quei loop?
grazie
ah e poi anche la parter relativa al dat string
dimenticavo non conoscendo il significato li ho eliminati.inoltre provo ad inviare una mail ma non mi funziona come mai?