Отправка писем на электронную почту типовой функцией 1С

&НаКлиенте
Процедура ОтправитьПисьмаПоАдресам(Команда)
	АдресаКоторымОтправляемПисьма = "";
	Для каждого Строка из АдресаОтправки Цикл
		АдресаКоторымОтправляемПисьма = АдресаКоторымОтправляемПисьма + Строка.АдресОтправки + ",";
	КонецЦикла;
	Если АдресаКоторымОтправляемПисьма = "" Тогда
		Сообщить("Не введено ни одного адреса для отправки");
		Возврат;
	КонецЕсли;
	Если не ЗначениеЗаполнено(ПочтаОтправителя) Тогда
		Сообщить("Не заполнено почта отправителя");
		Возврат;
	КонецЕсли;
	ПараметрыПисьма = СформироватьПараметрыПисьма(АдресаКоторымОтправляемПисьма);
	Попытка	
		ОтправитьПочтовоеСообщениеСервер(ПараметрыПисьма);
	Исключение	
		Сообщить("Не удалось отправить письма по причине " + ОписаниеОшибки());
	КонецПопытки;
	
КонецПроцедуры

&НаСервере
 //Параметры:
 //УчетнаяЗапись - СправочникСсылка.УчетныеЗаписиЭлектроннойПочты - ссылка на
 //                учетную запись электронной почты.
 //ПараметрыПисьма - структура - содержит всю необходимую информацию о письме:
 //                  содержит следующие ключи:
 //   Кому*      - Массив структур, строка - Интернет адрес получателя письма.
 //                Адрес         - строка - почтовый адрес.
 //                Представление - строка - имя адресата.
 //   Копии      - массив структур, строка - Интернет адреса получателей письма
 //                используется при формировании письма для поля копий
 //                в случае массива структур, формат каждой структуры:
 //                Адрес         - строка - почтовый адрес (должно быть обязательно заполнено).
 //                Представление - строка - имя адресата.
 //   СлепыеКопии - массив структур, строка - Интернет адреса получателей письма
 //                используется при формировании письма для поля скрытых копий
 //                в случае массива структур, формат каждой структуры:
 //                Адрес         - строка - почтовый адрес (должно быть обязательно заполнено).
 //                Представление - строка - имя адресата.
 //
 //   Тема*      - Строка - тема почтового сообщения.
 //   Тело*      - тело почтового сообщения (простой текст в кодировке win-1251).
 //   Важность   - ВажностьИнтернетПочтовогоСообщения
 //   Вложения   - Соответствие
 //                ключ     - наименованиеВложения - строка - наименование вложения
 //                значение - ДвоичныеДанные,Структура - либо двоичные данные вложения, либо структура,
 //                           содержащая следующие свойства:
 //                           "ДвоичныеДанные" - ДвоичныеДанные - двоичные данные вложения
 //                           "Идентификатор" - Строка - идентификатор вложения, используется для хранения картинок,
 //                                                      отображаемых в теле письма.
 //
 //Дополнительные ключи структуры, которые могут использоваться:
 //   АдресОтвета - Соответствие - см. такие же поля как и кому.
 //   ИдентификаторыОснований - строка - идентификаторы оснований данного письма.
 //   ОбрабатыватьТексты  - Булево - необходимость обрабатывать тексты письма при отправке.
 //   УведомитьОДоставке  - Булево - необходимость запроса уведомления о доставке.
 //   УведомитьОПрочтении - Булево - необходимость запроса уведомления о прочтении.
 //   ТипТекста   - Строка / Перечисление.ТипыТекстовЭлектронныхПисем/ТипТекстаПочтовогоСообщения  определяет тип
 //                 переданного теста допустимые значения:
 //                 HTML/ТипыТекстовЭлектронныхПисем.HTML - текст почтового сообщения в формате HTML.
 //                 ПростойТекст/ТипыТекстовЭлектронныхПисем.ПростойТекст - простой текст почтового сообщения.
 //                                                                         Отображается "как есть" (значение по
 //                                                                         умолчанию).
 //                 РазмеченныйТекст/ТипыТекстовЭлектронныхПисем.РазмеченныйТекст - текст почтового сообщения в формате
 //   Rich Text.  
Функция СформироватьПараметрыПисьма(АдресаКоторымОтправляемПисьма)
	

	
	ПараметрыПисьма = Новый Структура;
	ПараметрыПисьма.Вставить("Кому", АдресаКоторымОтправляемПисьма);
	ПараметрыПисьма.Вставить("УчетнаяЗапись", ПочтаОтправителя);                                                               
	ПараметрыПисьма.Вставить("АдресОтвета", АдресаКоторымОтправляемПисьма);
	ПараметрыПисьма.Вставить("Тема", ТемаПисьма);	
	ПараметрыПисьма.Вставить("Тело", ТекстПисьма);
	ПараметрыПисьма.Вставить("ТипТекста", "ПростойТекст");
	
	
	Возврат ПараметрыПисьма;
	
КонецФункции