SHARE
TWEET

POP3 examle

a guest Aug 14th, 2017 604 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   Dim st As Integer
  2.   Dim t As Integer, s As String
  3.   Dim MailList As String[]
  4.   Dim a As Integer, m As Integer
  5.  
  6.   Pop3C.Encrypt = Net.SSL
  7.   Pop3C.Host = "pop.mail.ru"
  8.   Pop3C.User = "test-pop-up-mail@mail.ru"
  9.   Pop3C.Password = "Ololo-test"
  10.   Pop3C.Port = 995
  11.  
  12.   Pop3C.Open
  13.   st = Pop3C.Status
  14.   If st = Net.Connected Then
  15.     Print "Connected"
  16.     Print Pop3C.Count
  17.     MailList = Pop3C.ListUniqueID()
  18.     m = MailList.Max
  19.     For a = 0 To m
  20.       Print MailList[a]
  21.     Next
  22.     s = Pop3C.Exec("RETR 1", True)
  23.     Print "----"
  24.     Print s
  25.     Print "----"
  26.   Else  
  27.     Print "Failed"
  28.   Endif
  29.  
  30.   Pop3C.Close
  31.   Print "Close"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top