emailcheckВо время работы с контактными данными покупателей часто обрабатываются email адреса.

Программная проверка правильности заполнения email во время заполнения пользователем уменьшит риск невозможности отправки уведомлений клиенту. Для проверки можно использовать механизм регулярных выражений.

Код проверки:


Функция ПроверкаКорректностиЭлектроннойПочты()
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.MultiLine = Ложь;
RegExp.Global = Истина;
RegExp.IgnoreCase = Истина;
RegExp.Pattern="^[a-zA-Z0-9_'+*/^&=?~{}\-](\.?[a-zA-Z0-9_'+*/^&=?~{}\-])*\@((\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}(\:\d{1,3})?)||(((([a-zA-Z0-9][a-zA-Z0-9\-]+[a-zA-Z0-9])|([a-zA-Z0-9]{1,2}))[\.]{1})+([a-zA-Z]{2,6})))$";
Если RegExp.Test(Адрес) Тогда
Сообщить("Адрес корректный!!!");
Иначе
Сообщить("Адрес не корректный!!!");
КонецЕсли;
КонецФункции // ПроверкаКорректностиЭлектроннойПочты()