Отправка почты через CDO

Функция глОтправитьПисьмо(Кому, Тема, Текст, ОтКого="", знач Вложения="", HTML=0) Экспорт

	//	Кому - ЭлектронныеАдреса
	//	Тема - тема сообщения
	//	Текст - текст сообщения

	cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword";
	cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress";
	cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ;
	cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword" ;
	cdoSendUserName              = "http://schemas.microsoft.com/cdo/configuration/sendusername" ;
	cdoSendUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/sendusing" ;
	cdoSMTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname" ;
	cdoSMTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ;
	cdoSMTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ;
	cdoSMTPServer                = "http://schemas.microsoft.com/cdo/configuration/smtpserver";
	cdoSMTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";
	cdoSMTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";


	Если СокрЛП(Кому)="" Тогда
		Возврат 0;
	КонецЕсли;

	Если ПустаяСтрока(ОтКого)=1 Тогда
	    //берем адрес текущего пользователя...
		ОтКого = Пользователь.email;
		Если ПустаяСтрока(ОтКого)=1 Тогда
			//берем адрес фирмы
			ОтКого = Константа.ОснФирма.e_mail;
		КонецЕсли;
	КонецЕсли;

	//устанавливаем параметры соединения
	MailConfig = createObject("CDO.Configuration");
	MailConfig.fields(cdoSendUsingMethod).value    = 2;  //Send the message using the network (SMTP protocol over th enetwork).
	MailConfig.fields(cdoSMTPServer).value         = СокрЛП(Константа.SmtpСервер);
	MailConfig.fields(cdoSMTPServerPort).value	   = Константа.SmtpПорт;
	MailConfig.fields(cdoSMTPAuthenticate).value   = Константа.SmtpАвторизация;
	MailConfig.fields(cdoSendUserName).value       = СокрЛП(Константа.SmtpПользователь);
	MailConfig.fields(CdoSendPassword).value       = СокрЛП(Константа.SmtpПароль);
	MailConfig.fields(cdoSMTPUseSSL).value         = Константа.SmtpSSL;  //Secure Sockets Layer
	MailConfig.fields.update();

    //создаем сообщение
	Msg = createObject("CDO.Message");
	Msg.configuration = MailConfig;

	Msg.to = Кому;
	Msg.from = ОтКого;
	Msg.subject = Тема;

	Если HTML = 1 then
		Msg.HTMLBody = Текст;
	Иначе
		Msg.textBody = Текст;
		Msg.textBodypart.charset = "iso-8859-5";  //либо "koi8-r"
	КонецЕсли;


	Если ТипЗначенияСтр(Вложения) = "СписокЗначений" Тогда
		//список файлов

		Для сч=1 по Вложения.РазмерСписка() Цикл
			ИмяФайла = Вложения.ПолучитьЗначение(сч);
		    Msg.addAttachment("""" + ИмяФайла + """");
		КонецЦикла;

	ИначеЕсли ПустоеЗначение(Вложения) = 0 Тогда
		Msg.addAttachment("""" + Вложения + """");
	КонецЕсли;

	Попытка
		Состояние("Отправка сообщения...");
		Msg.send();
		Отправлено = 1;
	Исключение
		Отправлено = 0;
	КонецПопытки;

	Если Отправлено = 0 Тогда
		Сообщить("Ошибка при отправке письма ("+ОписаниеОшибки()+")");
		ЗаписьЖурналаРегистрации(ОписаниеОшибки(),"Почта","Отправка",,5);
	Иначе
		Сообщить("Сообщение отправлено");
		Коммент = "Кому:"+СокрЛП(Кому)+", от кого: "+СокрЛП(ОтКого)+" Тема: "+Тема+" Текст: "+Текст+" Файлы: " + Вложения;
		ЗаписьЖурналаРегистрации(Коммент, "Почта" ,"Отправка",,3);
	КонецЕсли;

	Возврат Отправлено;

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