Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=71584&view=findpost&p=502042 Thu, 04 Nov 2004 22:10:56 +0000 Почтовый клиент https://forum.sources.ru/index.php?showtopic=71584&view=findpost&p=502042
Начало оригинального текста (автора тоже не знаю).
______________________________________________

Делаем почтовую программу
опубликовано: 09.12.2003 20:04

Использование протокола 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, то мы отсылаем пароль. И если все это прошло успешно, то мы подключились к серверу!


_________________________
конец оригинального текста.

пользуйтесь наздоровье! :)]]> SO Сети, Интернет, почта