Из Розницы
[code] АдресПартнера=УчетнаяЗапись.АдресЭлектроннойПочты;//адрес для отправки сообщения
НаименованиеПартнера = УчетнаяЗапись.Наименование;//наименование партнера
АдресСервераSMTP=УчетнаяЗапись.SMTPСервер;//smtp сервер для отправки сообщения
ПортSMTP=УчетнаяЗапись.ПортSMTP;//smtp порт
ПользовательSMTP= УчетнаяЗапись.ЛогинSMTP; //пользователь почты
ПарольSMTP=УчетнаяЗапись.ПарольSMTP;//пароль почты
Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8);
Текст.ЗаписатьСтроку("текст вложения");
Текст.Закрыть();
Попытка
ПочтовыйПрофиль=Новый ИнтернетПочтовыйПрофиль;
ПочтовыйПрофиль.АдресСервераSMTP=АдресСервераSMTP;
ПочтовыйПрофиль.ПортSMTP=ПортSMTP;
ПочтовыйПрофиль.ПользовательSMTP=ПользовательSMTP;
ПочтовыйПрофиль.ПарольSMTP=ПарольSMTP;
ПочтовыйПрофиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
НовоеСообщение = Новый ИнтернетПочтовоеСообщение;
НовоеСообщение.Кодировка = "utf-8";
НовоеСообщение.Отправитель.Адрес = АдресПартнера;
НовоеСообщение.Отправитель.ОтображаемоеИмя = НаименованиеПартнера;
НовоеСообщение.Отправитель.Кодировка = "utf-8";
НовоеСообщение.Получатели.Добавить(АдресДляОбмена);
НовоеСообщение.Вложения.Добавить(Путь);
НовоеСообщение.Тема = "Выгрузка";
НовоеСообщение.УведомитьОДоставке=УведомитьОДоставке;
Почта=Новый ИнтернетПочта;
Почта.Подключиться(ПочтовыйПрофиль);
Почта.Послать(НовоеСообщение);
Почта.Отключиться();
Исключение
Инфо = ИнформацияОбОшибке();
Сообщить(Инфо.Описание);
Сообщить("Выгрузка не была отправлена!!! Необходимо в ручную отправить файл:" + Путь + ", на адрес:" + АдресДляОбмена,СтатусСообщения.ОченьВажное);
КонецПопытки;
[/code]
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн