Автоматизация директ-маркетинга (на примере ООО "Дело Системы")
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ент;
Текст.ДобавитьСтроку("Создано: " + Объект.Дата);
Текст.ДобавитьСтроку("Отправлено: " + Объект.ДатаОтправления);
Текст.ДобавитьСтроку("");
Текст.ДобавитьСтроку("");
Текст.ДобавитьСтроку("-------------------------------------------------");
Текст.ДобавитьСтроку("Идентификатор сообщения: " + Объект.ИдентификаторСообщения);
Текст.ДобавитьСтроку("Идентификатор основания: " + Объект.ИдентификаторОснования);
Текст.ДобавитьСтроку("Идентификаторы оснований: " + ПолучитьПредставлениеИдентификаторовОснований(Объект.ИдентификаторыОснований));
Текст.Показать();
КонецПроцедуры
&НаКлиенте
Процедура ОтработатьПослеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ВзаимодействияКлиент.ОбработатьВыборВПолеОтработатьПосле(
Объект.ОтработатьПосле, ВыбранноеЗначение, СтандартнаяОбработка, Модифицированность);
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеОтправителяОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Объект.УчетнаяЗапись = ВыбранноеЗначение;
ЭлементСписка = Элемент.СписокВыбора.НайтиПоЗначению(ВыбранноеЗначение);
Если ЭлементСписка <> Неопределено Тогда
СтандартнаяОбработка = Ложь;
Объект.ОтправительПредставление = ЭлементСписка.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура "оженияВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
ОткрытьВложениеВыполнить();
КонецПроцедуры
&НаКлиенте
Процедура СписокПолучателейПисьмаПриИзменении(Элемент)
ПреобразоватьИменаПолучателей(Объект.СписокПолучателейПисьма, "ПолучателиПисьма");
КонецПроцедуры
&НаКлиенте
Процедура СписокПолучателейКопийПриИзменении(Элемент)
ПреобразоватьИменаПолучателей(Объект.СписокПолучателейКопий, "ПолучателиКопий");
КонецПроцедуры
&НаКлиенте
Процедура СписокПолучателейСкрытыхКопийПриИзменении(Элемент)
ПреобразоватьИменаПолучателей(Объект.СписокПолучателейСкрытыхКопий, "ПолучателиСкрытыхКопий");
КонецПроцедуры
&НаКлиенте
Процедура ПодобратьКонтактыВыполнить()
РедактироватьСписокПолучателей(Истина);
КонецПроцедуры
&НаКлиенте
Процедура УточнитьКонтактыВыполнить()
РедактироватьСписокПолучателей(Ложь);
КонецПроцедуры
&НаКлиенте
Процедура "оженияПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Отказ = Истина;
ДобавитьВложениеВыполнить();
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьВложениеВыполнить()
#Если Не ВебКлиент Тогда
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.МножественныйВыбор = Истина;
Если Не Диалог.Выбрать() Тогда
Возврат;
КонецЕсли;
Для Каждого ВыбранныйФайл Из Диалог.ВыбранныеФайлы Цикл
новСтр = "ожения.Добавить();
новСтр.Расположение = 2;
новСтр.ИмяФайлаНаКомпьютере = ВыбранныйФайл;
ИмяФайла = "";
Расширение = "";
ВзаимодействияКлиентСервер.ПолучитьКаталогИИмяФайла(ВыбранныйФайл, "", ИмяФайла);
новСтр.ИмяФайла = ИмяФайла;
Расширение = ВзаимодействияКлиентСервер.ПолучитьРасширениеФайла(ИмяФайла);
новСтр.ИндексКартинки = ФайловыеФункции КлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение);
КонецЦикла;
#Иначе
Адрес = "";
ВыбранныйФайл = "";
Если Не ПоместитьФайл(Адрес, "", ВыбранныйФайл, Истина, УникальныйИдентификатор) Тогда
Возврат;
КонецЕсли;
новСтр = "ожения.Добавить();
новСтр.Расположение = 4;
новСтр.ИмяФайлаНаКомпьютере = Адрес;
новСтр.ИмяФайла = ВыбранныйФайл;
Расширение = ВзаимодействияКлиентСервер. ПолучитьРасширениеФайла(ВыбранныйФайл);
новСтр.ИндексКартинки = ФайловыеФункцииКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение);
ОбновитьОтображениеДанных();
#КонецЕсли
КонецПроцедуры
&НаКлиенте
Процедура УдалитьВложениеВыполнить()
ДобавитьВложениеВСписокУдаленных();
текДанные = Элементы.Вложения.ТекущиеДанные;
Если текДанные <> Неопределено Тогда
Индекс = "ожения.Индекс(текДанные);
Вложения.Удалить(Индекс);ОбновитьОтображениеДанных();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьВложениеВыполнить()
текДанные = Элементы.Вложения.ТекущиеДанные;
Если текДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Если (текДанные.Расположение = 0) ИЛИ (текДанные.Расположение = 1) Тогда
УправлениеЭлектроннойПочтойКлиент.ОткрытьВложение(текДанные.Ссылка,УникальныйИдентификатор);
ИначеЕсли текДанные.Расположение = 2 Тогда
#Если Не ВебКлиент Тогда
ЗапуститьПриложение("""" + текДанные.ИмяФайлаНаКомпьютере + """");
#КонецЕсли
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ВыполнитьОтправкуПисьма()
ПараметрыПисьма = Новый Структура;
ДобавитьВПараметрАдресатов(ПараметрыПисьма, "Кому", "ПолучателиПисьма");
ДобавитьВПараметрАдресатов(ПараметрыПисьма, "Копии", "ПолучателиКопий");
ДобавитьВПараметрАдресатов(ПараметрыПисьма, "СкрытыеКопии", "ПолучателиСкрытыхКопий");
ПараметрыПисьма.Вставить("Тема", Объект.Тема);
ПараметрыПисьма.Вставить("Тело", Объект.Текст);
ПараметрыПисьма.Вставить("Кодировка", Объект.Кодировка);
ПараметрыПисьма.Вставить("Важнос?/p>