WINSOCK X EMAIL

  Dim received As Boolean
Dim Message$
Dim sckError


Private Sub Form_Load()
[ô] LogIn to the server ~ get settings from outlook express
  Winsock1.Connect [Ô]imap.bittencourtcardoso.com[Ô], 110
    
  Do Until received: DoEvents: Loop

  If sckError Then MsgBox [Ô]An error occured trying to connect to server[Ô]: Exit Sub

  sendMsg [Ô]USER promocao@bittencourtcardoso.com[Ô]  [ô] Send UserName
  If sckError Then MsgBox [Ô]Error with username[Ô]: Exit Sub

  sendMsg [Ô]PASS 123456[Ô]   [ô] Send Password
  If sckError Then MsgBox [Ô]Error with password[Ô]: Exit Sub
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Winsock1.GetData Message$
    
  Select Case Winsock1.Tag
  Case [Ô]RETR[Ô]
      Put #1, , Message$
        
      If InStr(Message$, vbLf + [Ô].[Ô] + vbCrLf) Then
          Close 1
          received = True
      End If
    
  Case Else
      sckError = (Left$(Message$, 3) = [Ô]-ER[Ô])
      received = True
  End Select
End Sub

Private Sub Winsock1_Close()
  Winsock1.Close
End Sub

Private Sub cmdCheckMail_Click()
[ô] Get Number of Messages and total size in bytes
  sendMsg [Ô]STAT[Ô]
  x = InStr(Message$, [Ô] [Ô]): b = InStrRev(Message$, [Ô] [Ô])
  Messages = Val(Mid$(Message$, x + 1, b - x))
  Size = Val(Mid$(Message$, b + 1))

  MsgBox [Ô]Number of messages to download [Ô] & Messages

[ô] Download all messages
  For a = 1 To Messages
    
  [ô] Winsock1_DataArrival will save message as [Ô]Email-1.eml[Ô], [Ô]Email-2.eml[Ô] etc
      Winsock1.Tag = [Ô]RETR[Ô]
      Open [Ô]C:\Windows\Temp\eMail-[Ô] & a & [Ô].eml[Ô] For Binary Access Write As #1
        
      sendMsg [Ô]RETR [Ô] & a
      List1.AddItem [Ô]eMail [Ô] & a & [Ô]: Downloaded[Ô]
  Next

  Winsock1.Tag = [Ô][Ô]
End Sub

Sub sendMsg(m$)
  Winsock1.SendData m$ + vbCrLf
    
  received = False
  Do Until received
      DoEvents
  Loop
End Sub