🚀 go-pugleaf

ciao a tutti,
sono alle prime armi con il vb e ho provato a scrivere un client email, il
problema � che si connette al server ma poi non manda i comandi come HELO,
MAIL FROM ecc...

help me ditemi come posso fare! =) grazie!!!

Private Sub Command1_Click()

If sock.State = 7 Then

sock.SendData "HELO " & Text1.Text & vbCrLf

sock.SendData "MAIL FROM: <anonimailer@" & Text1.Text & ">" & vbCrLf

sock.SendData "RCPT TO: <" & Text2.Text & ">" & vbCrLf

sock.SendData "DATA" & vbCrLf & vbCrLf & vbCrLf & Text3.Text

sock.SendData vbCrLf & vbCrLf & vbCrLf & "." & vbCrLf

sock.SendData "QUIT" & vbCrLf
sock.Close
Text7.Visible = True
Text7.Text = "EMAIL SPEDITA!!!!"
Else
Text7.Visible = True
Text7.Text = "ERRORE, EMAIL NON INVIATA"
End If


End Sub

Private Sub Command2_Click()

Unload Form1

End Sub

Private Sub Command3_Click()

sock.Close

End Sub

Private Sub Command4_Click()
sock.Close
sock.RemoteHost = Text4.Text
sock.RemotePort = Text5.Text
sock.Connect

End Sub

Private Sub Form_Load()

End Sub

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
sock.GetData dati
Text6.Text = Text6.Text & dati & vbCrLf

End Sub




Private Sub Text6_Change()
Text6.SelStart = Len(Text6.Text)
End Sub