Использование протокола POP3 (Post Office Protocol третьей версии).


Давайте начнем с начала POP3 является третье версией POP (Post Office Protocol). 
Он (вместе с IMAP) является стандартным почтовым протоколом для получения почты через Сеть. 
Вам нужно знать только несколько вещей: имя пользователя, пароль, и адрес вашего почтового сервера. 
Для тех, кто использует dial-up подключение этот адрес выглядит приблизительно так: pop.ispname.com, где ispname -- имя вашего провайдера. 
Это все, что вам нужно знать для использования почты, но если вы хотите что-то написать свое , вам нужно понять, как это все работает.

Сначала вам нужно подсоединиться к правильному порту. Обычно это порт 110. Если вы знаете, что ваша ЛС (локальная сеть) использует другой порт, 
вам нужно использовать именно его, чтобы все работало.
Для этой статьи я использовал контрол Winsock. Теперь я расскажу в деталях про то, что делает Winsock.
 Winsock не предоставляет нам богатство свойств, но те, что он имеет, плюс методы и события делают его очень мощным контролом. В этой статья я опишу, 
как нужно подсоединяться к серверу через Winsock, но для этого вам нужно понимание всех комманд, которые я привожу.
Неплохой идеей для изучения комманд POP
 сервера является загрузка пробной версии MDaemon (http://mdaemon.com). Это очень неплохая программа,
 которая позволит вам изучить все комманды при работе с почтовым сервером.
Команды Перед тем, как отсылать данные,
 вам нужно послать ключевое слово, например USER, потом значение, а потом vbCrlf. 

Вот список доступных комманд:

USER - отсылает имя пользователя
PASS - отсылает пароль
QUIT - завершает сессию соединения

DELE - удаляет сообщение с сервера
RSET - отменяет все изменения, созданные за эту сессию
STAT - получает количество сообщений на сервере

RETR - получает содержимое сообщения

Если комманда проходит успешно, то вы получите ответ +OK от сервера. Если были какие-либо проблемы, 
то вы получите сообщение -ER. Вот пример кода, который отсылает имя пользователя:

Winsock1.SendData "USER Bob" & vbCrlf

Теперь, чтобы определить, 
что же мы получили от сервера, нам надо использовать событие Winsock1_DataArrival. Это событие не доставляет нам никаких данных, оно просто показывает нам, 
пришло ли какие данные и их размер. Мы должны использовать метод Winsock1.
GetData чтобы получить данные:

Private Sub WInsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

Winsock1.GetData strData, 
vbString
WholeThing = WholeThing & strData
ResponseState = Left$(WholeThing, 3)

End Sub

Ошибки

Winsock также предоставляет событие Winsock1_Error. 
Это событие предоставляет огромное количество информации про ошибки, помогающие нам сказать пользователю, что же произошло. 
Вот пример события Winsock1_Error event:

Private Sub Winsock1_Error(ByVal Number As Integer, _
Description As String, ByVal Scode As Long, _
ByVal Source As String, 
ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)

Msgbox "Error number: " & Number & vbCrlf & _
"Error Description: " & 
Description

End Sub

Что мне нравится в идеи написания собственного почтового клиента, так это то, что можно оставлять сообщения на сервере . 
Это может выглядить так: вы в дороге, проверяете почту и читаете ее, ответить на важные сообщения и/или удалить ненужные сообщения на сервере и 
отсоединиться, оставив остальную часть почты нетронутой. Это позволит вам загрузить все сообщения позже, на работе/дома. Вы можете даже расширить 
функциональность своей программы, добавив возможность сохранять вашу почту на HDD, для последующего ее прочтения.

Соединение

Теперь давайте проверим 
все на практике. Вставьте нижеприведенный код; я объясню, что он делает:

Private Function ConnectToPOP(strServer As String, _
strUser As String, strPwd
 As String)As Boolean

Dim strOut As String

ConnectToPOP = False

Winsock1.Connect strServer, 110 ' Измените порт, если это необходимо
WaitFor 1,
 strOut

If strOut = "+OK" Then
Winsock1.SendData "USER " & strUser & vbCrlf
Else
ConnectToPOP = False
Exit Function
End If

WaitFor 1, strOut

If strOut = "+OK"
 Then
Winsock1.SendData "PASS " & strPwd & vbCrlf
Else
ConnectToPOP = False
Exit Function
End If

WaitFor 1, strOut

If strOut = "+OK" 
Then
ConnectToPOP = True
Else
ConnectToPOP = False
End If

End Function

Запомните, после того, как мы отправим какие-либо данные, нам нужно подождать ответа. 
Я использовал для этого процедуру WaitFor. Сначала мы подсоединяемся, используя метод Winsock1.Connect, указывая имя сервера и порт.
 Потом мы ждем ответа, и проверим, чтобы ответ был +OK. Если ответ +OK, то мы отсылаем имя пользователя, используя комманду USER. И наконец, если ответ +OK,
 то мы отсылаем пароль. И если все это прошло успешно, то мы подключились к серверу!