Функция Отправка(Имя, Адрес, Фирма, ИмяФайла)
//Профиль = Новый ИнтернетПочтовыйПрофиль;
//Профиль.АдресСервераSMTP = "smtp.rambler.ru";
//Профиль.ПользовательSMTP = "ttn.out@rambler.ru";
//Профиль.ПарольSMTP = "1q2w3e$R5t6y7u";
//Профиль.ИспользоватьSSLSMTP = Истина;
//Профиль.ПортSMTP = 465;
//Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УчетныеЗаписиЭлектроннойПочтыДоступКУчетнойЗаписи.Ссылка КАК УчетнаяЗапись
|ИЗ
| Справочник.УчетныеЗаписиЭлектроннойПочты.ДоступКУчетнойЗаписи КАК УчетныеЗаписиЭлектроннойПочтыДоступКУчетнойЗаписи
|ГДЕ
| УчетныеЗаписиЭлектроннойПочтыДоступКУчетнойЗаписи.Пользователь = &Пользователь";
Запрос.УстановитьПараметр("Пользователь", ПользователиКлиентСервер.ТекущийПользователь());
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
УчетнаяЗапись = Выборка.УчетнаяЗапись;
КонецЦикла;
Если НЕ УчетнаяЗапись = НЕопределено Тогда
Профиль = УправлениеЭлектроннойПочтой.ПолучитьИнтернетПочтовыйПрофиль(УчетнаяЗапись);
Письмо = Новый ИнтернетПочтовоеСообщение;
Стр = "Отправка " + Имя;
Сообщить(Стр);
Текст = Письмо.Тексты.Добавить(Стр);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = Имя;
Сообщить(Имя);
Письмо.Отправитель = УчетнаяЗапись.АдресЭлектроннойПочты;
Письмо.ИмяОтправителя = Фирма;
Сообщить(Фирма);
Письмо.Получатели.Добавить(Адрес);
Сообщить(Адрес);
Для каждого зн из ИмяФайла Цикл
Письмо.Вложения.Добавить(зн);
КонецЦикла;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Подключено");
Исключение
Сообщить("Не удалось подключиться к серверу", СтатусСообщения.Внимание);
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено");
Исключение
Сообщить("Не удалось отправить письмо", СтатусСообщения.Внимание);
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
Иначе
Сообщить("Не указана учетная запись электронной почты у пользователя", СтатусСообщения.Внимание);
КонецЕсли;
КонецФункции
Друзья не отправляйте пожалуйтса меня сразу курить мануалы, я лишь хочу узнать как добавить сюда функцию что бы в письмо можно было вписать простой текст? Он отправляет все хорошо, но хочется иногда в самом теле письма был текст. Всех с наступающими праздниками! Заранее спасибо за ответ!
//Профиль = Новый ИнтернетПочтовыйПрофиль;
//Профиль.АдресСервераSMTP = "smtp.rambler.ru";
//Профиль.ПользовательSMTP = "ttn.out@rambler.ru";
//Профиль.ПарольSMTP = "1q2w3e$R5t6y7u";
//Профиль.ИспользоватьSSLSMTP = Истина;
//Профиль.ПортSMTP = 465;
//Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| УчетныеЗаписиЭлектроннойПочтыДоступКУчетнойЗаписи.Ссылка КАК УчетнаяЗапись
|ИЗ
| Справочник.УчетныеЗаписиЭлектроннойПочты.ДоступКУчетнойЗаписи КАК УчетныеЗаписиЭлектроннойПочтыДоступКУчетнойЗаписи
|ГДЕ
| УчетныеЗаписиЭлектроннойПочтыДоступКУчетнойЗаписи.Пользователь = &Пользователь";
Запрос.УстановитьПараметр("Пользователь", ПользователиКлиентСервер.ТекущийПользователь());
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
УчетнаяЗапись = Выборка.УчетнаяЗапись;
КонецЦикла;
Если НЕ УчетнаяЗапись = НЕопределено Тогда
Профиль = УправлениеЭлектроннойПочтой.ПолучитьИнтернетПочтовыйПрофиль(УчетнаяЗапись);
Письмо = Новый ИнтернетПочтовоеСообщение;
Стр = "Отправка " + Имя;
Сообщить(Стр);
Текст = Письмо.Тексты.Добавить(Стр);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = Имя;
Сообщить(Имя);
Письмо.Отправитель = УчетнаяЗапись.АдресЭлектроннойПочты;
Письмо.ИмяОтправителя = Фирма;
Сообщить(Фирма);
Письмо.Получатели.Добавить(Адрес);
Сообщить(Адрес);
Для каждого зн из ИмяФайла Цикл
Письмо.Вложения.Добавить(зн);
КонецЦикла;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Подключено");
Исключение
Сообщить("Не удалось подключиться к серверу", СтатусСообщения.Внимание);
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено");
Исключение
Сообщить("Не удалось отправить письмо", СтатусСообщения.Внимание);
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
Иначе
Сообщить("Не указана учетная запись электронной почты у пользователя", СтатусСообщения.Внимание);
КонецЕсли;
КонецФункции
Друзья не отправляйте пожалуйтса меня сразу курить мануалы, я лишь хочу узнать как добавить сюда функцию что бы в письмо можно было вписать простой текст? Он отправляет все хорошо, но хочется иногда в самом теле письма был текст. Всех с наступающими праздниками! Заранее спасибо за ответ!