()эм, серьёзно что ли?
я в шоке, вот держите на отправку писем по текущему сеансу пользователя:
//Оповещение ответственных лиц о попытке изменения справочника физ лица
СУ = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;
Письмо = Новый ИнтернетПочтовоеСообщение;
Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПользователь.ПолноеНаименование();
Письмо.Отправитель = СУ.АдресЭлектроннойПочты;
Получатель = Письмо.Получатели.Добавить();
Получатель.Адрес = "саппорт1с@нашдомен.ru";
Письмо.Тема = "Обращение в службу поддержки 1С";
Текст = Письмо.Тексты.Добавить("тутсамипридумаетекакполучитьизформы");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
ПрофильОтправки.АдресСервераSMTP = СУ.СерверИсходящейПочты;
ПрофильОтправки.ПортSMTP = СУ.ПортСервераИсходящейПочты;
ПрофильОтправки.ИспользоватьSSLSMTP = Истина;
ПрофильОтправки.ПользовательSMTP = СУ.ПользовательSMTP;
ПрофильОтправки.ПарольSMTP = "тутпароль";
ПрофильОтправки.Пользователь = СУ.Пользователь;
ПрофильОтправки.Пароль = "тутпароль";
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(ПрофильОтправки);
Исключение
ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
Показать