[VB6] ottenere numero di mail

[c-enrico]

 Dim myData As String
    

    ws.Close
        
            
    ws.Connect "pop.tiscali.it", 110
     
      
 Do
  DoEvents
  If ws.State = sckConnected Then Exit Do ' se è collegato
  If ws.State = sckError Then Exit Do ' se non si è collegato
 Loop

      
      
  Text1.Text = ws.State


  'e in Text1 ottengo 7 che vuol dire che è connesso
  
      
  ws.SendData "USER " & "contenti@tiscali.it" & vbCrLf
  DoEvents
  ws.SendData "PASS " & "mia password" & vbCrLf
  DoEvents
  ws.SendData "STAT" + vbCrLf
  DoEvents
  'ws.SendData "RETR 1"
      
             
      ws.GetData myData
      
      Text2.Text = myData
     
          
End Sub

in text2 vorrei ottenere il numero di mail
ma non ottengo niente come devo fare?

[c-enrico]

Ringrazio tantissimo chi mi volesse aiutare

Saluti a tutti

[LeleFT]

Originariamente inviato da c-enrico
Ringrazio tantissimo chi mi volesse aiutare

Saluti a tutti

Magari postando nella sezione corretta si avrebbero maggiori possibilità di ricevere aiuti.
Il linguaggio Visual Basic (in tutte le sue forme e versioni) viene trattato nel forum "Visual Basic e .NET Framework".

Sposto.

Certo che sollecitare dopo soli 10 minuti, è decisamente eccessivo: questo è un forum, non un servizio di assistenza.


Ciao.

[c-enrico]

non era un sollecito invece era per scusarmi che non avevo ringraziato

prima tutti voi

adesso però ho capito come fare

devo cliccare sul winsock e scegliere

DataArrival

poi lì aggiungere

Dim myData As String

ws.GetData myData

Text2.Text = Text2.Text & myData

poi in command2

Private Sub Command2_Click()


ws.Close

End Sub