1
D_E_S_131
20.05.15
✎
11:44
|
// Архивирование и отправка файла с данными
Если ОтправитьПоЭлектроннойПочте Тогда
ФайлНаДиске = Новый Файл(ИмяФайлаДанных);
ИмяАрхива = ФайлНаДиске.Путь + "data_rtu.zip";
Архив = Новый ЗаписьZipФайла(ИмяАрхива);
Архив.Добавить(ИмяФайлаДанных);
Архив.Записать();
// Отправка письмом на e-mail основного контактного лица контрагента
Если НЕ Покупатель.Пустая() И НЕ Покупатель.ОсновноеКонтактноеЛицо.Пустая() Тогда
ОтборДанных = Новый Структура;
ОтборДанных.Вставить("Объект", Покупатель.ОсновноеКонтактноеЛицо);
ОтборДанных.Вставить("Тип", Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
ОтборДанных.Вставить("Вид", Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтактногоЛицаКонтрагента);
ДанныеСтруктура = РегистрыСведений.КонтактнаяИнформация.ПолучитьПоследнее(, ОтборДанных);
ЭлАдрес = ДанныеСтруктура.Представление;
ЭлПочтаПользователя = РегистрыСведений.НастройкиПользователей.Получить(Новый Структура("Пользователь, Настройка", ПараметрыСеанса.ТекущийПользователь, ПланыВидовХарактеристик.НастройкиПользователей.ОсновнаяУчетнаяЗапись));
Если ЭлПочтаПользователя = Неопределено ИЛИ НЕ ЗначениеЗаполнено(ЭлПочтаПользователя.Значение) Тогда
ЗаписьЖурналаРегистрации("Обмен с покупателями", УровеньЖурналаРегистрации.Предупреждение,, УзелОбменаСтороннейИБ, "СТОП (не указан e-mail для отправки данных)");
Возврат;
КонецЕсли;
УчетнаяЗапись = ЭлПочтаПользователя.Значение;
Профиль = УправлениеЭлектроннойПочтой.ПолучитьИнтернетПочтовыйПрофиль(УчетнаяЗапись);
ИнтернетПочта = Новый ИнтернетПочта;
Попытка
ИнтернетПочта.Подключиться(Профиль);
Исключение
ЗаписьЖурналаРегистрации("Обмен с покупателями", УровеньЖурналаРегистрации.Предупреждение,, УзелОбменаСтороннейИБ, "СТОП (ошибка подключения e-mail: " + ОписаниеОшибки() + ")");
Возврат;
КонецПопытки;
ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
КодировкаСообщения = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "КодировкаПисьмаЭлектроннойПочтыПоУмолчанию");
Если Не ЗначениеЗаполнено(КодировкаСообщения) Тогда
КодировкаСообщения = "utf-8";
КонецЕсли;
ПочтовоеСообщение.Кодировка = КодировкаСообщения;
ПочтовоеСообщение.Вложения.Добавить(Новый ДвоичныеДанные(ИмяАрхива), "data_rtu.zip");
ПочтовоеСообщение.ИмяОтправителя = "Обмен данными Бина Групп";
ПочтовоеСообщение.Отправитель = УчетнаяЗапись.АдресЭлектроннойПочты;
ПочтовоеСообщение.Тема = "Выгрузка документов";
Получатель = ПочтовоеСообщение.Получатели.Добавить();
Получатель.Адрес = ЭлАдрес;
Получатель.ОтображаемоеИмя = "" + Покупатель.ОсновноеКонтактноеЛицо;
Получатель.Кодировка = КодировкаСообщения;
Попытка
ИнтернетПочта.Послать(ПочтовоеСообщение);
Исключение
ЗаписьЖурналаРегистрации("Обмен с покупателями", УровеньЖурналаРегистрации.Предупреждение,, УзелОбменаСтороннейИБ, "СТОП (ошибка отправки e-mail: " + ОписаниеОшибки() + ")");
Возврат;
КонецПопытки;
ИнтернетПочта.Отключиться();
КонецЕсли;
КонецЕсли;
|
|