|
Функция ЭтоАдресЭлектроннойПочты(Знач
вхПочта) Экспорт
Если
( ПустаяСтрока(АдресЭП) )
ИЛИ ( Найти(АдресЭП, " ") > 0 )
Тогда
Возврат
Ложь;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст
=
"ВЫБРАТЬ
| ВЫБОР
| КОГДА &Почта
ПОДОБНО &Шаблон
| ТОГДА
ИСТИНА
| ИНАЧЕ ЛОЖЬ
| КОНЕЦ КАК Результат";
Запрос.УстановитьПараметр("Почта",
вхПочта);
Запрос.УстановитьПараметр("Шаблон",
"_%[@]_%[.]_%");
Возврат Запрос.Выполнить().Выгрузить()[0][0];
КонецФункции
|