|
Включить шифрование 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
|
Друзья, не ужели никто не знает?????
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |