[VB6] Winsock e lettura messaggi da casella di posta

[marco.agelao]

Salve, devo utilizzare il winsock per leggere i messaggi da una casella di posta.
Mi collego correttamente (wskClient.connect), ricevo la risposta positiva, con DataArrival(ByVal bytesTotal As Long) vedo ciò che il server mi risponde, ma poi come vedo il numero dei messaggi e come ne leggo il contenuto?
Ho un form con un pulsante per la connessione che prende host e porta come parametri da due textbox chiamate host e porta, poi ho una terza textbox in cui visualizzo quanto il server mi risponde e vorrei asociare all'evento click di un pulsante "LIST" la visualizzazione del numero dei messaggi nella terza textbox ed in ultimo vorrei associare all'evento click di un altro pulsante "Vedi Messaggi" il contenuto dei messaggi, da visualizzare poi sempre nella terza textbox. Il problema è che non so come. Non trovo i metodi relativi al "list" ed al "retr" del telnet. Spero di essere stato chiaro.
Grazie in anticipo a tutti.

Ecco il listato:
'pulsante connetti
Private Sub Command1_Click()
wskClient.Connect host.Text, porta.Text
End Sub

'pulsante disconnetti
Private Sub Command2_Click()
wskClient.Close
End Sub


Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim a As String
wskClient.GetData a
txtReply = a & vbCrLf
End Sub

[oregon]

Intanto devi indicare il linguaggio (e la versione) nel titolo del thread.

Detto questo, per il problema, saprai che il server utilizza il protocollo POP3 e che dovrai inviare i comandi opportuni leggendo il risultato nella DataArrival. Una sessione POP3, ad esempio, la vedi in

http://it.wikipedia.org/wiki/Post_Office_Protocol

[marco.agelao]

OK. Intanto grazie. Parlo di VB6.
Ora leggo quello che mi hai linkato. Spero di risolvere.

[marco.agelao]

Allora, ho letto.
Però non ho risolto.... con list ho l'elenco dei messaggi...ok. Ma come do il list tramite il mio programma vb6?

[oregon]

Lo invii tramite il Winsock con il metodo SendData

http://msdn.microsoft.com/en-us/library/aa228112(VS.60).aspx

Ma se queste cose non ti sono chiarissime, ti consiglio di studiare *prima* le funzionalità del controllo Winsock

http://msdn.microsoft.com/en-us/library/aa228025(VS.60).aspx

cosa che non va fatta durante una discussione in un forum, ma prima, con il tempo adeguato e un libro (o della documentazione ...).

[marco.agelao]

Hai ragione. Lo so che ti può sembrare che non l'abbia fatto, ma ho cercato materiale, solo che non sono riuscito a trovare quello che mi serviva. Grazie alle tue indicazioni ora leggerò qualcosa e spero sia esaustiva.
Ti ringrazio per l'aiuto.
Spero di non dover disturbare oltre.

[oregon]

Originariamente inviato da marco.agelao
... ma ho cercato materiale...

Per quanto riguarda il controllo Winsock (la cui conoscenza, ti ripeto, viene prima del problema del POP3 ...), in rete esiste veramente tanto. Basta cercare

vb6 winsock

con google ...

[marco.agelao]

OK. Ho letto ed ho provato.
Ho usato senddata per inviare la richiesta di connessione ed è andato tutto ok.... poi ho usato lo stesso sistema per inviare "list" e "retr"... nessun errore, però non visualizzo risultati nella textbox..... comemai?

[oregon]

Scusa, ma senza vedere il codice che usi, come si fa a rispondere?

[marco.agelao]

Il listato è lo stesso di prima, con poche righe in più.

Private Sub Command1_Click()
wskClient.Connect host.Text, porta.Text
End Sub

Private Sub Command2_Click()
wskClient.Close
End Sub

Private Sub Invia_Click()
wskClient.SendData Testodainviare.Text
End Sub

Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim a As String
wskClient.GetData a
txtReply = a & vbCrLf

End Sub