Функция для 1С Предприятие 8.х проверки правильности e-mail

&НаСервере
Функция ПроверитьEmail(СтрокаПочты)
                  Pattern = "^[-a-z0-9!#$%&'*+/=?^_`{|}~]+(?:\.[-a-z0-9!#$%&'*+/=?^_`{|}~]+)*@(?:[a-z0-9]([-a-z0-9]{0,61}[a-z0-9])?\.)*";
                  RegExp = Новый COMОбъект("VBScript.RegExp");
                  RegExp.IgnoreCase = Истина;
                  RegExp.Global = Истина;
                  RegExp.MultiLine = Ложь;
                  RegExp.Pattern = Pattern;
                  Возврат RegExp.Test(СтрокаПочты);
КонецФункции