Имя: Пароль:
1C
1С v8
Включить шифрование SSL
,
0 Алоха
 
12.08.15
17:29
Всем привет.
Помогите пожалуйста включить ssl шифрование в конфигурации 1С Консолидация ПРОФ. Если правильно понимаю то вот это:

Профиль.ИспользоватьSSLSMTP = истина;
Профиль.ИспользоватьSSLPOP3 = истина;

нужно вставить куда-то сюда :

// Устанавливает соединение с сервером электронной почты
// Параметры:
// Профиль - ИнтернетПочтовыйПрофиль - профиль учетной записи электронной
// почты, через который необходимо установить соединение
//
// Возвращаемое значение:
// Соединение (тип ИнтернетПочта)
//
Функция УстановитьСоединениеССерверомЭлектроннойПочты(Профиль) Экспорт

    Соединение = Новый ИнтернетПочта;
        Соединение.Подключиться(Профиль);

Возврат Соединение;

КонецФункции

////////////////////////////////////////////////////////////­////////////////////
// Блок системных и вспомогательных функций подсистемы
//

// По переданной ссылке на учетную запись формирует профиль почтового соединения
//
// Параметры
// УчетнаяЗапись - СправочникСсылка.УчетнаяЗаписьЭлектроннойПочты -
// параметры профиля в виде соответствия
//
// Возвращаемое значение
// Почтовый профиль (тип ИнтернетПочтовыйПрофиль)
//
Функция СформироватьИнтернетПрофиль(знач УчетнаяЗапись,
знач Пароль = Неопределено,
знач ФормироватьSMTPПрофиль = Истина,
знач ФормироватьPOP3Профиль = Истина) Экспорт

    Профиль = Новый ИнтернетПочтовыйПрофиль;

Профиль.Пользователь = УчетнаяЗапись.Пользователь;

Профиль.ВремяОжидания = УчетнаяЗапись.ВремяОжидания;

Если ЗначениеЗаполнено(Пароль) Тогда
    Профиль.Пароль = Пароль;
Иначе
    Профиль.Пароль = УчетнаяЗапись.Пароль;
КонецЕсли;

Если ФормироватьSMTPПрофиль Тогда
    Профиль.АдресСервераSMTP = УчетнаяЗапись.SMTPСервер;
Профиль.ПортSMTP = УчетнаяЗапись.ПортSMTP;

Если УчетнаяЗапись.SMTPАутентификация = Перечисления.ВариантыSMTPАутентификации.АналогичноPOP3 Тогда
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
Профиль.ПользовательSMTP = УчетнаяЗапись.Пользователь;
Профиль.ПарольSMTP = УчетнаяЗапись.Пароль;
ИначеЕсли УчетнаяЗапись.SMTPАутентификация = Перечисления.ВариантыSMTPАутентификации.ЗадаетсяПараметрами Тогда

    Если УчетнаяЗапись.СпособSMTPАутентификации = Перечисления.СпособыSMTPАутентификации.CramMD5 Тогда
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.CramMD5;
ИначеЕсли УчетнаяЗапись.СпособSMTPАутентификации = Перечисления.СпособыSMTPАутентификации.Login Тогда
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
ИначеЕсли УчетнаяЗапись.СпособSMTPАутентификации = Перечисления.СпособыSMTPАутентификации.Plain Тогда
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Plain;
ИначеЕсли УчетнаяЗапись.СпособSMTPАутентификации = Перечисления.СпособыSMTPАутентификации.БезАутентификации Тогда
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
Иначе
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
КонецЕсли;

Профиль.ПользовательSMTP = УчетнаяЗапись.ПользовательSMTP;
Профиль.ПарольSMTP = УчетнаяЗапись.ПарольSMTP;

ИначеЕсли УчетнаяЗапись.SMTPАутентификация = Перечисления.ВариантыSMTPАутентификации.POP3ПередSMTP Тогда
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
Профиль.POP3ПередSMTP = Истина;
Иначе
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
КонецЕсли;
КонецЕсли;

Если ФормироватьPOP3Профиль Тогда
    Профиль.АдресСервераPOP3 = УчетнаяЗапись.POP3Сервер;
Профиль.ПортPOP3 = УчетнаяЗапись.ПортPOP3;

Если УчетнаяЗапись.СпособPOP3Аутентификации = Перечисления.СпособыPOP3Аутентификации.APOP Тогда
    Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.APOP;
ИначеЕсли УчетнаяЗапись.СпособPOP3Аутентификации = Перечисления.СпособыPOP3Аутентификации.CramMD5 Тогда
    Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.CramMD5;
Иначе
    Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
КонецЕсли;
КонецЕсли;

Возврат Профиль;

КонецФункции
1 Алоха
 
13.08.15
08:38
Друзья, не ужели никто не знает?????
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.