POP3 examle

  Dim st As Integer
  Dim t As Integer, s As String
  Dim MailList As String[]
  Dim a As Integer, m As Integer

  Pop3C.Encrypt = Net.SSL
  Pop3C.Host = "pop.mail.ru"
  Pop3C.User = "test-pop-up-mail@mail.ru"
  Pop3C.Password = "Ololo-test"
  Pop3C.Port = 995

  Pop3C.Open
  st = Pop3C.Status
  If st = Net.Connected Then
    Print "Connected"
    Print Pop3C.Count
    MailList = Pop3C.ListUniqueID()
    m = MailList.Max
    For a = 0 To m
      Print MailList[a]
    Next
    s = Pop3C.Exec("RETR 1", True)
    Print "----"
    Print s
    Print "----"
  Else
    Print "Failed"
  Endif

  Pop3C.Close
  Print "Close"