[VB6] WinSock con Hotmail non mi funziona

[c-enrico]

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.

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

[MItaly]

Il fatto che sia su porta 995 è indice del fatto che non è POP3 "normale", ma POP3 su SSL (POP3/S); suppongo esistano diverse librerie per VB6 per l'accesso a POP3/S, in alternativa puoi usare un programma tipo stunnel per fare gestire a lui la parte di SSL.

[oregon]

Dai un'occhiata a

http://www.emailarchitect.net/eagetmail/ex/b/9.aspx

[c-enrico]

grazie mille a MItataly

adesso cerco

librerie di VB6 per accesso a POP3S su internet

A Oregon dico che ho provato a mettere anche

come user "qenrico@hotmail.com" ma non va

allora dovrei scaricare quell' OCX di cui si parla nel sito che mi hai

mandato?

Grazie

Ciao

[oregon]

A Oregon dico che ho provato a mettere anche

come user "qenrico@hotmail.com" ma non va

Ok anche se non te l'avevo chiesto ...

allora dovrei scaricare quell' OCX di cui si parla nel sito che mi hai

mandato?

Sì ... che poi è la stessa cosa che ti ha suggerito MItaly ... non devi cercare ma usare l'ocx ...

[c-enrico]

ringrazio molto Oregon e MItaly

ho provato e funziona proprio bene

Ciao

Grazie ancora