Username:
Password:
 Log me on automatically each visit
 
Aeroion.Ru
Форумы сервера Aeroion.Ru
Welcome

Aeroion.Ru Forum Index
  » Технические форумы
   » 1Сv8: Программирование, отчёты, обработки, статьи
    » Функция. Формирование и заполнение структуры вложения электронного письма (УТ 10.3)
   Управление торговлей 10.3
printer-friendly view
AuthorФункция. Формирование и заполнение структуры вложения электронного письма (УТ 10.3)
Sergey Gender:Male


Местный босс - администратор


Joined: 06 Jan 2005
Location: Оренбург
Posts: 1127
Last Visited: Today at 01:43
Кредиты: 3594
Reputation: 47
Age: 41
Zodiac: Aquarius Pig

Эту функцию я применяю в своих обработках для УТ 10.3 при отсылке писем. Сформированная структура предназначается для списка файлов вложений при передаче в функцию УправлениеЭлектроннойПочтой.НаписатьПисьмо()

Code:
// Функция формирует и заполняет структуру вложения для электронного письма
//
// Параметры:
//  ПолноеИмяФайла  - строка - полное имя файла на диске
//  ИмяФайла  - строка - имя файла для вложения
//  НаименованиеФайла  - строка - наименование файла для вложения
//
// Возвращаемое значение:
//   Если файл существует и размер больше нуля, сформированная структура с заполненными значениями полей:
//      Наименование
//      ИмяФайла
//      Хранилище
//
//   Если файл не существует или размер равен нулю - Неопределено
//
Функция СформироватьСтруктуруВложенияДляЭлектронногоПисьма(Знач ПолноеИмяФайла, Знач ИмяФайла = "", Знач НаименованиеФайла = "") Экспорт

   
СтруктураВложения = Неопределено;

   
// проверка наличия файла
   
Файл = Новый Файл(ПолноеИмяФайла);
   Если
Файл.Существует() И Файл.Размер() > 0 Тогда
     
// заполнение полей по умолчанию
     
Если НЕ ЗначениеЗаполнено(ИмяФайла) Тогда
         
ИмяФайла = РаботаСФайлами.ПолучитьИмяФайлаИзПолногоПути(ПолноеИмяФайла);
      КонецЕсли;
      Если НЕ
ЗначениеЗаполнено(НаименованиеФайла) Тогда
         
НаименованиеФайла = ИмяФайла;
      КонецЕсли;

     
СтруктураВложения = Новый Структура("Наименование, ИмяФайла, Хранилище");
     
СтруктураВложения.ИмяФайла          = ИмяФайла;
     
СтруктураВложения.Наименование      = НаименованиеФайла;
     
СтруктураВложения.Хранилище = Новый ДвоичныеДанные(ПолноеИмяФайла);
   КонецЕсли;

   Возврат
СтруктураВложения;

КонецФункции
// СформироватьСтруктуруВложенияДляЭлектронногоПисьма()


Пример использования (выдран из одного проекта автора).

Code:
   //Формируем данные для отправки вложений
   //Инициализируем структуру вложений и заполняем список для электронного письма
   
Если СписокВложенийПисьма = Неопределено Тогда
     
СписокВложенийПисьма = Новый СписокЗначений;
   КонецЕсли;

   
Вложение = СформироватьСтруктуруВложенияДляЭлектронногоПисьма(ПолноеИмяФайлаОбмена, ИмяФайлаОбмена);
   
СписокВложенийПисьма.Добавить(Вложение);

   
//Формируем список адресов получателей
   
СписокАдресов = Новый СписокЗначений;
   
СписокАдресов.Добавить(ЭлектронныйАдресКонтрагента, ЭлектронныйАдресКонтрагента);

   
//Формируем структуру для письма
   
СтруктураНовогоПисьма                      = Новый Структура("Тело, Тема, СписокФайловВложений, Кому, УчетнаяЗапись, ВидТекста");
   
СтруктураНовогоПисьма.Тело                 = ТекстПисьма;
   
СтруктураНовогоПисьма.Тема                 = ТемаПисьма;
   
СтруктураНовогоПисьма.Кому                 = СписокАдресов;
   
СтруктураНовогоПисьма.УчетнаяЗапись       = УчетнаяЗаписьЭлектроннойПочты;
   
СтруктураНовогоПисьма.ВидТекста            = Перечисления.ВидыТекстовЭлектронныхПисем.Текст;
   Если
СписокВложенийПисьма.Количество() > 0 Тогда
     
СтруктураНовогоПисьма.СписокФайловВложений = СписокВложенийПисьма;
   КонецЕсли;

   
//Формируем письмо на основании переданной структуры
   
СтруктураПисьма = УправлениеЭлектроннойПочтой.НаписатьПисьмо(ПользовательДляОбмена, СтруктураНовогоПисьма, , , , , , , Ложь);

_________________
Профессионал - это тот же дилетант, только знающий где ошибется. Генератор db_update.php для phpBB2 с некоторыми удобствами.
Как ставить моды. Что такое [SQL] и с чем его едят | Как правильно задавать вопросы и получать адекватные ответы | Правила форума
Бесплатная техподдержка только на форуме! Не надо стучаться в аську, слать емайлы, пытаться писать в приват. Спасибо за понимание.
Please do not PM, ICQ or email me for support help - you won't get any reply. If you have a question or issue, post it in the appropriate forum/topic. Thanks!
Back to topOffline View user's profile Skype Name
Display posts from previous:   

Summary Rating For >> Функция. Формирование и заполнение структуры вложения электронного письма (УТ 10.3)
Average Rating: 0.00 :: Min Rating: 0 :: Max Rating: 0 :: Number of Ratings: 0
Choose Rating: 1   2   3   4   5  

Similar Topics
Topic Author Forum Replies Last Post
No new posts Функция. Сортировка табличной части д...
Управление торговлей 10.3
Sergey 1Сv8: Программирование, отчёты, обработки, статьи 0 Sat 03 Apr, 2010 01:41 View latest post
Sergey
No new posts Мод Prune Searchs Tables
управление и оптимизация поисковых та...
Sergey Поддержка и моды для phpBB2 0 Mon 27 Feb, 2006 17:38 View latest post
Sergey
No new posts Функция. Определение размера данных д... Sergey 1Сv8: Программирование, отчёты, обработки, статьи 0 Tue 06 Oct, 2009 02:55 View latest post
Sergey
No new posts Функция. Чтение значений реквизитов о...
1С: Предприятие 8.Х
Sergey 1Сv8: Программирование, отчёты, обработки, статьи 0 Sun 25 Jul, 2010 23:17 View latest post
Sergey
No new posts Функция. Добавление колонки данных в ...
для конфигураций 1C: Предприятия 8.1
Sergey 1Сv8: Программирование, отчёты, обработки, статьи 0 Sat 03 Apr, 2010 01:38 View latest post
Sergey




All times are UTC + 3 Hours
All times are synchronized with the forum server time
Users browsing this topic:1 Guest
Registered Users: None

Jump to:   
printer-friendly view
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum