Подключение к почтовому серверу mail.ru

&НаКлиенте
Функция ПолучитьПрофиль(ПрофильПользователя) Экспорт 
	// Создать почтовый профиль.
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераSMTP	= ПрофильПользователя.АдресСервераSMTP;
	Профиль.ПользовательSMTP	= ПрофильПользователя.ПользовательSMTP;
	Профиль.ПарольSMTP			= ПрофильПользователя.ПарольSMTP;
	Профиль.ТолькоЗащищеннаяАутентификацияSMTP = ПрофильПользователя.ТолькоЗащищеннаяАутентификацияSMTP;
	Профиль.ИспользоватьSSLSMTP = ПрофильПользователя.ИспользоватьSSLSMTP;
	Профиль.ИспользоватьSSLPOP3 = ПрофильПользователя.ИспользоватьSSLPOP3;
	Профиль.ТолькоЗащищеннаяАутентификацияPOP3 = ПрофильПользователя.ТолькоЗащищеннаяАутентификацияPOP3;
	Профиль.АдресСервераPOP3	= ПрофильПользователя.АдресСервераPOP3;
	Профиль.Пользователь		= ПрофильПользователя.ПользовательPOP3;
	Профиль.Пароль				= ПрофильПользователя.ПарольPOP3;
	Профиль.АдресСервераIMAP	= ПрофильПользователя.АдресСервераIMAP;
	Профиль.ПользовательIMAP	= ПрофильПользователя.ПользовательIMAP;
	Профиль.ПарольIMAP			= ПрофильПользователя.ПарольIMAP;
	Профиль.ПортPOP3			= ПрофильПользователя.ПортPOP3;
	Профиль.ПортSMTP			= ПрофильПользователя.ПортSMTP;

	Если ПрофильПользователя.АутентификацияPOP3="CramMD5" Тогда 
		Профиль.АутентификацияPOP3 	= СпособPOP3Аутентификации.CramMD5;
	ИначеЕсли ПрофильПользователя.АутентификацияPOP3="APOP" Тогда 
		Профиль.АутентификацияPOP3 	= СпособPOP3Аутентификации.APOP;
	Иначе 
		Профиль.АутентификацияPOP3 	= СпособPOP3Аутентификации.Обычная;
	КонецЕсли;
	
	Если ПрофильПользователя.АутентификацияSMTP="CramMD5" Тогда 
		Профиль.АутентификацияSMTP 	= СпособSMTPАутентификации.CramMD5;
	ИначеЕсли ПрофильПользователя.АутентификацияSMTP="Login" Тогда 
		Профиль.АутентификацияSMTP 	= СпособSMTPАутентификации.Login;
	ИначеЕсли ПрофильПользователя.АутентификацияSMTP="Plain" Тогда 
		Профиль.АутентификацияSMTP 	= СпособSMTPАутентификации.Plain;
	ИначеЕсли ПрофильПользователя.АутентификацияSMTP="БезАутентификации" Тогда 
		Профиль.АутентификацияSMTP 	= СпособSMTPАутентификации.БезАутентификации;
	Иначе 
		Профиль.АутентификацияSMTP 	= СпособSMTPАутентификации.ПоУмолчанию;
	КонецЕсли;
	Возврат Профиль;
КонецФункции
....
	ПрофильПользователя	= Новый Структура("АутентификацияPOP3,ИспользоватьSSLPOP3,ИспользоватьSSLSMTP,ТолькоЗащищеннаяАутентификацияPOP3,ИспользоватьIMAP,АдресСервераSMTP,ПользовательSMTP,ПарольSMTP,ТолькоЗащищеннаяАутентификацияSMTP,АдресСервераPOP3,ПользовательPOP3,ПарольPOP3,АдресСервераIMAP,ПользовательIMAP,ПарольIMAP,ПортPOP3,ПортSMTP,АутентификацияSMTP");
	
		ПрофильПользователя.АдресСервераSMTP 	= "smtp.mail.ru";
		ПрофильПользователя.ПользовательSMTP 	= "user@mail.ru";
		ПрофильПользователя.ПарольSMTP 		 	= "123456";
		ПрофильПользователя.ТолькоЗащищеннаяАутентификацияSMTP = Ложь;
		ПрофильПользователя.ТолькоЗащищеннаяАутентификацияPOP3 	=Ложь3;
		ПрофильПользователя.АдресСервераPOP3 	= "pop.mail.ru";
		ПрофильПользователя.ПользовательPOP3 	= "user@mail.ru";
		ПрофильПользователя.ПарольPOP3		 	=  "123456";
		ПрофильПользователя.АдресСервераIMAP 	= "imap.mail.ru";
		ПрофильПользователя.ПользовательIMAP 	=  "user@mail.ru";
		ПрофильПользователя.ПарольIMAP 		 	=  "123456";
		ПрофильПользователя.ИспользоватьIMAP 	= Ложь;
		ПрофильПользователя.ПортPOP3 			= 995;
		ПрофильПользователя.ПортSMTP 			= 465;
		ПрофильПользователя.АутентификацияSMTP 	=  Истина;
		ПрофильПользователя.ИспользоватьSSLSMTP =  Истина;
		ПрофильПользователя.ИспользоватьSSLPOP3 =  Истина;
		ПрофильПользователя.АутентификацияPOP3	=  Истина;

	Профиль = ПолучитьПрофиль(ПрофильПользователя);
	Сообщ = Новый СообщениеПользователю();
	Почта = Новый ИнтернетПочта;
	Попытка
		Если ПрофильПользователя.ИспользоватьIMAP Тогда
			Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP);
		Иначе
			Почта.Подключиться(Профиль, ПротоколИнтернетПочты.POP3);
		КонецЕсли;
	Исключение
		// Вывести сообщение об ошибке при подключении к серверу.
		Сообщ.Текст = "Ошибка при подключении или приеме" + ОписаниеОшибки();
		Сообщ.Сообщить();
		Возврат;
	КонецПопытки;
	// Получить заголовки сообщений с отбором из почтового ящика.
	ПараметрыОтбораIMAP = Новый Структура;
	ПараметрыОтбораIMAP.Вставить("Прочитанные", Ложь);
	ЗаголовкиСообщений = Почта.ПолучитьЗаголовки(ПараметрыОтбораIMAP);
	КоличествоСообщений = ЗаголовкиСообщений.Количество();
	Если КоличествоСообщений = 0 Тогда
		Сообщ.Текст = "Сообщений в почтовом ящике нет.";
		Сообщ.Сообщить();
		Почта.Отключиться();   
		Возврат;
	КонецЕсли;

Ошибка при вызове метода контекста (Подключиться): Сервис отключен с разрывом канала (SMTP error code 421 SMTP connection broken (reply)
)