codice:
Dim ricevi As String
Private Sub spedisci()
   tcp1.Connect "smtp.libero.it", 25
   delay
   tcp1.SendData "RSET" & vbCrLf
   delay
   tcp1.SendData "HELO ciao" & vbCrLf
   delay
   tcp1.SendData "MAIL FROM: <goku65@libero.it>" & vbCrLf
   delay
   tcp1.SendData "RCPT TO: <lollandia@libero.it>" & vbCrLf
   delay
   tcp1.SendData "DATA" & vbCrLf
   delay
   tcp1.SendData "Subject: PROVA" & vbCrLf
   delay
   tcp1.SendData "CIAO PANINO!" & vbCrLf
   delay
   tcp1.SendData "." & vbCrLf
   delay
End Sub

Private Sub Command1_Click()
tcp1.Close
spedisci
End Sub

Private Sub TCP1_DataArrival(ByVal bytesTotal As Long)
  tcp1.GetData Dalserver, vbString
  ricevi = Dalserver
  List1.AddItem ricevi & vbCrLf
End Sub

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

Private Sub tcp1_SendComplete()
MsgBox "FUNZICA"
End Sub
sto cercando di mandare emails da vb, ho provato con questo codice, ke dovrebbe essere corretto, però non lo è perchè non le manda le email, dove sbaglio?