Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement