Долго отправляется почтовое сообщение из 1С

Функция ОтправитьНаЭлектроннуюПочту(Получатели, Тема, Текст, ДополнительныеПараметры = Неопределено, ИмяОтправителя = "1с-Зарплата и Управление Персоналом") Экспорт 
	
	Если ДополнительныеПараметры = Неопределено Тогда
		ДополнительныеПараметры = Новый Структура;
	КонецЕсли;
	
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
	Профиль.АдресСервераSMTP   = "адрес";
	Профиль.ПортSMTP           = 25;
	Профиль.Пользователь       = "Пользователь";
	Профиль.ПользовательSMTP   = "Пользователь";
	
	ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
	ПочтовоеСообщение.Тема                        = Тема;
	ПочтовоеСообщение.Отправитель.Адрес           = "Пользователь";
	ПочтовоеСообщение.Отправитель.ОтображаемоеИмя = ИмяОтправителя;
	ПочтовоеСообщение.ИмяОтправителя              = ИмяОтправителя;
	
	ПолучателиТип = ТипЗнч(Получатели);
	Если ТипЗнч(Получатели) = Тип("Массив") Тогда
		Для Каждого Адрес Из Получатели Цикл
			ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Адрес));
		КонецЦикла;
	ИначеЕсли ПолучателиТип = Тип("Строка") Тогда 
		ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатели));
	Иначе 
		Возврат Ложь;
	КонецЕсли;
	//
	//
	Если ДополнительныеПараметры.Свойство("Вложения") Тогда
		НомерФайла = 1;
		Для Каждого Файл из ДополнительныеПараметры.Вложения Цикл
			Если ТипЗнч(Файл) = Тип("ДвоичныеДанные") Тогда
				ПочтовоеСообщение.Вложения.Добавить(Файл, УниверсальныеМеханизмы.ПолучитьИмяФайлаИзПолногоПути(Файл)); //Файл, Наименование
			ИначеЕсли ТипЗнч(Файл) = Тип("Строка") Тогда
				ПочтовоеСообщение.Вложения.Добавить(Новый ДвоичныеДанные(Файл), УниверсальныеМеханизмы.ПолучитьИмяФайлаИзПолногоПути(Файл)); //Файл, Наименование
			Иначе 
				Вложение = ПочтовоеСообщение.Вложения.Добавить(Файл.ДвоичныеДанные, ?(Файл.Свойство("НаименованиеВложения"), Файл.НаименованиеВложения, Неопределено));
				Файл.Свойство("CID"           , Вложение.Идентификатор);
				Файл.Свойство("ТипСодержимого", Вложение.ТипСодержимого);
			КонецЕсли;
			НомерФайла = НомерФайла + 1;
		КонецЦикла;
	КонецЕсли;
	
	ПочтовоеСообщение.Тексты.Добавить(Текст, ?(Найти(Текст, "html") > 0, ТипТекстаПочтовогоСообщения.HTML, ТипТекстаПочтовогоСообщения.ПростойТекст));
	ПочтовоеСообщение.ОбработатьТексты();
	
	Попытка
		Почта = Новый ИнтернетПочта;
		Почта.Подключиться(Профиль);
		Почта.Послать(ПочтовоеСообщение);
		Почта.Отключиться();
		Возврат Истина;
	Исключение
		Комментарий = "Ошибка при отправке сообщения на электронную почту:" + Символы.ПС + ОписаниеОшибки();
		ЗаписьЖурналаРегистрации("Ошибка выполнения", УровеньЖурналаРегистрации.Ошибка, , , Комментарий);
		ОбщегоНазначения.СообщитьОбОшибке(Комментарий);
	КонецПопытки;
	
	Возврат Ложь;
	
КонецФункции

Функция ОтправитьПисьмо()
	
	ИмяФайла = "C:Test.xml";	
	Сервер = "smtp.mail.ru";
	Порт = "465";
	Получатель = "@";
	Отправитель = "@";
	Пароль = "";	
		
	Попытка
		CDO = Новый COMОбъект("CDO.Message");  
	Исключение
		Сообщить("Ошибка: объект CDO.Message не создан");
		Возврат Ложь;
	КонецПопытки;
		
	CDO.From = Отправитель;
	CDO.To = Получатель;
	CDO.Subject = "ТемаПисьма";
	CDO.textbody = "Текстовое письмо";
	CDO.BodyPart.Charset = "windows-1251";
	CDO.HTMLBody = "HTML-письмо"; 
	CDO.HTMLBodyPart.Charset = "windows-1251";
	CDO.AddAttachment(ИмяФайла);
	
	//По умолчанию 1-использовать каталог Pickup
	Item = "http://schemas.microsoft.com/cdo/configuration/sendusing";
	CDO.Configuration.Fields.Item(Item).Value = 2;
	
	//Адрес SMTP сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpserver";
	CDO.Configuration.Fields.Item(Item).Value = Сервер;
	
	//0-без утентификации
	//1-базовая аутентификация
	//2-аутентификация NTLM 	
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";
	CDO.Configuration.Fields.Item(Item).Value = 1;
	
	//Использовать SSL
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";	
	CDO.Configuration.Fields.Item(Item).Value = 1;
	
	//Имя пользователя SMTP сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/sendusername";	
	CDO.Configuration.Fields.Item(Item).Value = Отправитель;
	
	//Пароль пользователя SMTP сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/sendpassword";	
	CDO.Configuration.Fields.Item(Item).Value = Пароль;
	
	//Порт сервера
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";	
	CDO.Configuration.Fields.Item(Item).Value = Порт;
	
	//Таймаут
	Item = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";
	CDO.Configuration.Fields.Item(Item).Value = 60;	
	
	//Обновление настроек	
	CDO.Configuration.Fields.Update();
	
	Попытка
 		CDO.Send();
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
		
КонецФункции