Постановка задачи
Необходимо включить шифрование для протокола POP3.
Программный код
// Создать почтовую фабрику.
MailFactory = CreateObject("SBUM.MailFactory")
// Запросить у фабрики сервер типа "POP3".
Server = MailFactory.GetServer("POP3")
// Создать и установить параметры входа на сервер.
Credentials = MailFactory.CreateParamList()
Credentials.Items("User") = "user1"
Credentials.Items("Password") = "user1password"
Credentials.Items("Server") = "pop.mymail.ru"
// Создать и установить параметры шифрования для протокола POP3
Credentials.Items("EncryptionMode") = "Implicit"
Credentials.Items("EncryptionVersion") = "TLSv1"
// Выполнить вход на сервер.
Server.Logon(Credentials)
//...
// Выполнить выход с сервера.
Server.Logoff()
© Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |