Протокол шифрования SSL/TLS и получение почты - как?

[qwertyhp]

Здравствуйте.
До сегодняшнего дня у меня на получение почты с MAIL.RU работала несложная программа на VB6, начинающая работать со строк вида

Код: Выделить всё

m_State = POP3_Connect
Winsock1.Close
Winsock1.LocalPort = 0                                  '
Winsock1.Connect pop.mail.ru, 110

Далее получался ответ сервера - слался логин - ответ сервера - слался пароль, и т.д.
Но с сегодняшнего дня MAIL.RU работает через шифрование данных по SSL/TLS. Порт 995. Ссылка на все настройки
https://help.mail.ru/mail-help/mailer/popsmtp
Тупая замена номера порта и уточнение логина ничего не дали - соединение не устанавливается, а ошибка не выдается.
Понимаю, что программе на VB6 нужно указать, что работа ведется через безопасное соединение (TLS).
А как это сделать?
Возможно, нужно что-то еще?
В Internet искал, но там не просто на английском, а, похоже, еще и на разговорном английском, слэнге...
Подскажите и покажите, пожалуйста. Предположу, что не мне одному это будет нужно.
Спасибо.

[Хакер]

Понимаю, что программе на VB6 нужно указать, что работа ведется через безопасное соединение (TLS).

Нет. Исходя из того, как работаешь с сервером, тебе придётся не указать, а реализовать протокол SSL/TLS.

[qwertyhp]

Тяяяккк... Порывшись в InterNet, спрособ ОТПРПАВКИ почты с использованием SLL я нашел, smtp.mail.ru не возражает...
Для нуждающихся привожу код:

Код: Выделить всё

Private Sub Form_Load()
'Задаем переменные и присваиваем им созданный объект CDO.Message и конфиг
    Dim o_Mess As Object
    Dim v_Conf As String
    Set o_Mess = CreateObject("CDO.Message")

    v_Conf = "http://schemas.microsoft.com/cdo/configuration/"

With o_Mess
    .To = "user@mail.ru"                                'e-mail, кому придут данные
    .From = "user@mail.ru"                              'e-mail, от кого придут данные
    .Subject = "Subject = " & Date                      'тема сообщения
    .TextBody = "Message here = " & Time                'текст сообщения
    '.AddAttachment "C:\document.doc"                           'добавляем вложение (если нужно)
    With .Configuration.Fields
        .Item(v_Conf & "sendusing") = 2
        .Item(v_Conf & "smtpserver") = "smtp.mail.ru"           'используем сервер
        .Item(v_Conf & "smtpserverport") = 465                  'порт, SSL использует 465, если без - 25
        .Item(v_Conf & "smtpauthenticate") = 1
        .Item(v_Conf & "sendusername") = "user@mail.ru" 'логин
        .Item(v_Conf & "sendpassword") = "userpass"             'пароль
        .Item(v_Conf & "smtpusessl") = True                     'если True, то используем SSL, False - нет
        .Item(v_Conf & "smtpconnectiontimeout") = 60
        .Update
    End With
    .send
End With
    Set o_Mess = Nothing
End Sub


А вот с получением почты по-прежнему висяк. На реализацию протокола SSL/TLS потребуется время, а его маловато.
Пожалуйста, подскажите - а как еще (помимо моего способа) можно работать с сервером в контексте получения почты?
Сторонние компоненты в конечном счете платные, так что это не подходит.
Спасибо.
Да, еще.
Код отправки содержит ссылку

Код: Выделить всё

"http://schemas.microsoft.com/cdo/configuration/"

А как (чем) заменить эту ссылку для выполнения кода на случай, если вдруг российский сегмент InterNet отгрызут от этого самого microsoft.com?

[Хакер]

Google: MAPI

[Qwertiy]

Google: MAPI

Оно же только для гугла?

[Хакер]

Оно же только для гугла?

Щито? Мой пост — призыв гуглить по фразе «MAPI».

[Qwertiy]

Щито?

Упс.. Я подумал про Gmail API.

[qwertyhp]

Пока не изваял ничего сам - прикрутил EAGetMail.
http://www.emailarchitect.net
Инсталлятор содержит примеры на разных языках программирования (в т.ч. и на VB6), проверил - работает.
На офф.сайте есть ТРИАЛ для скачивания, продолжительность его не указана.
Инсталлятор весит 3,5 Мег., поэтому присоединить к письму не получается.
Но так хочется решить проблему в исходном коде...
Спасибо авторам программы EAGetMail. Надеюсь, триал не очень хитрый......

[kuhtiov]

Пока не изваял ничего сам - прикрутил EAGetMail.
http://www.emailarchitect.net
Инсталлятор содержит примеры на разных языках программирования (в т.ч. и на VB6), проверил - работает.
На офф.сайте есть ТРИАЛ для скачивания, продолжительность его не указана.
Инсталлятор весит 3,5 Мег., поэтому присоединить к письму не получается.
Но так хочется решить проблему в исходном коде...
Спасибо авторам программы EAGetMail. Надеюсь, триал не очень хитрый......

Триал побежден?