Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Добавить фильтр сообщений по тексту вложения #519

Merged
merged 1 commit into from
Aug 9, 2019
Merged

Добавить фильтр сообщений по тексту вложения #519

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
70 changes: 70 additions & 0 deletions ...ны/step_definitions/Фича_ИнтернетПочта/Фича_ИнтернетПочта/Forms/Форма/Ext/Form/Module.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -112,6 +112,13 @@
"И текстом сообщения 'Текст'",
"Используется для уточения отбора по Тексту сообщения",
"Плагины.ИнтернетПочта");

Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,
"ТекстомВложенияСообщения(Парам01)",
"ТекстомВложенияСообщения",
"И текстом вложения сообщения 'Текст'",
"Используется для уточения отбора по Тексту вложения",
"Плагины.ИнтернетПочта");

Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,
"СообщенияОт(Парам01)",
Expand Down Expand Up @@ -391,6 +398,32 @@

КонецПроцедуры

&НаКлиенте
Процедура ОтфильтроватьПисьмаПоТекстуВложенияСообщения(Текст)

ИмяВременногоФайла = ПолучитьИмяВременногоФайла();

ЗаголовкиПисем = Контекст.ЗаголовкиПисем;

Сч = 0;
Пока Сч < ЗаголовкиПисем.Количество() Цикл
ТекЗаголовок = ЗаголовкиПисем.Получить(Сч);

Если ТекстНайденВоВложенииСообщения(ТекЗаголовок, Текст, ИмяВременногоФайла) Тогда
Сч = Сч + 1;
Иначе
ЗаголовкиПисем.Удалить(Сч);
КонецЕсли;
КонецЦикла;

Попытка
УдалитьФайлы(ИмяВременногоФайла);
Исключение
// Специальная обработка не требуется
КонецПопытки;

КонецПроцедуры

&НаКлиенте
// Здесь идёт запрос к IMAP-серверу, т.к. в заголовках не содержится текст письма
Функция ТекстНайденВПисьме(ЗаголовокПисьма, Текст)
Expand All @@ -408,7 +441,34 @@
Возврат Истина;
КонецЕсли;
КонецЦикла;

Возврат Ложь;

КонецФункции

&НаКлиенте
Функция ТекстНайденВоВложенииСообщения(ЗаголовокПисьма, Текст, ИмяВременногоФайла)

ПараметрЗаголовки = Новый Массив;
ПараметрЗаголовки.Добавить(ЗаголовокПисьма);

ПочтовоеСообщение = Контекст.ИнтернетПочта.Выбрать(Ложь, ПараметрЗаголовки);
Если Не ЗначениеЗаполнено(ПочтовоеСообщение) Тогда
Возврат Ложь;
КонецЕсли;

Для Каждого ТекВложение Из ПочтовоеСообщение[0].Вложения Цикл
ТекВложение.Данные.Записать(ИмяВременногоФайла);
ЧтениеТекста = Новый ЧтениеТекста(ИмяВременногоФайла);
ТекСтрока = ЧтениеТекста.ПрочитатьСтроку();
Пока ТекСтрока <> Неопределено Цикл
Если Найти(ТекСтрока, Текст) > 0 Тогда
Возврат Истина;
КонецЕсли;
ТекСтрока = ЧтениеТекста.ПрочитатьСтроку();
КонецЦикла;
КонецЦикла;

Возврат Ложь;

КонецФункции
Expand Down Expand Up @@ -578,6 +638,16 @@

КонецПроцедуры

&НаКлиенте
//И текстом вложения сообщения 'Текст'
//@ТекстомВложенияСообщения(Парам01)
Процедура ТекстомВложенияСообщения(Парам01) Экспорт

ОтфильтроватьПисьмаПоТекстуВложенияСообщения(Парам01);
Ванесса.ПроверитьБольше(Контекст.ЗаголовкиПисем.Количество(), 0);

КонецПроцедуры

&НаКлиенте
//И сообщения от 'Отправитель'
//@СообщенияОт(Парам01)
Expand Down