Шифрование для протокола POP3

Contents

Постановка задачи

Необходимо включить шифрование для протокола 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()