Отправка почты из 1С V 77

Процедура глОтправитьПисьмо(АдресОтправителя, АдресПолучателя, Тема, ТекстСообщения, Вложение = "") Экспорт
	
	objEmail = CreateObject("CDO.Message");
	objEmail.BodyPart.Charset = "windows-1251"; //кодировка тела сообщения
	
	Если ПустаяСтрока(АдресОтправителя) = 0 Тогда
		objEmail.From = АдресОтправителя;
	КонецЕсли;
	
	objEmail.To = АдресПолучателя;
	objEmail.Subject = СтрЗаменить(Тема, "№", "N");
	objEmail.Textbody = СтрЗаменить(ТекстСообщения, "№", "N");
	
	Если ПустаяСтрока(Вложение) = 0 Тогда
		objEmail.AddAttachment(Вложение)
	КонецЕсли;
	
	objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing",2); //2-удаленный SMTP сервер, 1-локальный SMTP сервер
	objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver","1.1.1.1"); //SMTP-сервер, IP
	objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport",5); //порт сервера
	// objEmail..configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1; //включить аутентификацию
	// objEmail..configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="login"; //Логин
	// objEmail..configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="password"; //Пароль
	objEmail.Configuration.Fields.Update();
	objEmail.Send();
	
КонецПроцедуры // глОтправитьПисьмо