per sapere quante mail ci sono sul server
uso questo programmino che funziona con

Tiscali
i dati sono
Porta 110
Server pop.tiscali.it
User contenti
Pass .....


con

Yahoo va,

ma bisogna prima sbloccare
nel server il libero accesso con pop
i dati sono questi
Porta 110
Server pop: pop.mail.yahoo.it
User enrico.contenti
pass ......


invece con Hotmail si connette ma
non va più avanti
in Hotmail metto questi dati
Porta 995
Server pop: pop3.live.com
User qenrico
Pass .......

Se c'è qualcuno che mi può aiutare lo ringrazio tanto.


codice:
Dim sPorta As String
Dim nPorta As Integer
Dim sServer As String
Dim sUser As String
Dim sPass As String
Dim aa, bb As String
Dim TestPos As Integer

Private Sub Command2_Click()

  ws.Close
  
 End
 
End Sub

Private Sub Form_Load()


 Open App.Path & "\Dati\Dati.txt" For Input As 1
 
  Line Input #1, aa
  v = InStr(aa, " ")
  sPorta = Mid(aa, v + 1)
  nPorta = Val(sPorta)
 
  Line Input #1, aa
  v = InStr(aa, " ")
  sServer = Mid(aa, v + 1)
  
  Line Input #1, aa
  v = InStr(aa, " ")
  sUser = Mid(aa, v + 1)
  
  Line Input #1, aa
  v = InStr(aa, " ")
  sPass = Mid(aa, v + 1)
  
  
 Close #1

End Sub

Private Sub Command1_Click()

 Connetti
  
End Sub


Private Sub Connetti()

 ws.Close
            
 ws.Connect sServer, nPorta  'Server

 Do
  DoEvents
  If ws.State = sckConnected Then Exit Do ' se è collegato
  If ws.State = sckError Then Exit Do ' se non si è collegato
 Loop

 If ws.State = 7 Then
  Text2.Text = "Connesso" 'se in State ottengo 7 che vuol dire che è connesso
 Else
  Text2.Text = "Non va"
 End If
 
 ws.SendData "USER " & sUser & vbCrLf
 DoEvents
 ws.SendData "PASS " & sPass & vbCrLf
 DoEvents
 ws.SendData "STAT" + vbCrLf
 DoEvents
 
  
End Sub


Private Sub ws_DataArrival(ByVal bytesTotal As Long)

 Dim myData As String
 
 ws.GetData myData
   
 Text1.Text = Text1.Text & myData
  
End Sub