helpf.pro
Регистрация
 0 
Распечатать

1С 8.2 УП : Проверка на корректность адреса Электронной Почты, e-mail

Каким образом можно организовать проверку на корректность адреса электронной почты?

Код 1C v 8.х
 Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресу

СтрокаАдреса = "ivanov@mail.com"; // проверяемый адрес
//CтрокаАдреса = ЭлементыФормы.ПолеВводаАдреса.Значение; //проверяемый адрес для элемента формы

RegExp = Новый COMОбъект("VBScript.RegExp"); // создаем объект для работы с регулярными выражениями
RegExp.MultiLine = Ложь; // истина — текст многострочный, ложь — одна строка
RegExp.Global = Истина; // истина — поиск по всей строке, ложь — до первого совпадения
RegExp.IgnoreCase = Истина; // истина — игнорировать регистр строки при поиске
RegExp.Pattern = Шаблон; // шаблон (регулярное выражение) для проверки корректности e-mail
Если RegExp.Test(СтрокаАдреса) Тогда
Сообщить("Корректный адрес");
Иначе
Сообщить("Некорректный адрес");
КонецЕсли;



Для 7.7 в вышеуказанном коде заменить создание объекта на:
Код 1C v 7.x
 RegExp = CreateObject("VBScript.RegExp");
Разместил:   Версии: | 7.x | 8.x | 8.2 УП |  Дата:   Прочитано: 12451
 0 
Распечатать
Возможно, вас также заинтересует
SMTP greeting failure: 421 SMTP connection broken (reply) 2
Опи­са­ние ошиб­ки: С сен­тяб­ря 2014 Ян­декс.Почта, Mail.ru пе­ре­шли на про­то­кол SSL, что сде­ла­ло их еще более без­опас­ны­ми. Чтобы и даль­ше ра­бо­тать с пись­ма­ми через 1С, Вам нужно из­ме­нить их на­строй­ки и...
Двухсторонний обмен с 1C – WEB вариант решения через XML файл 0
В 1с пишется следующая процедура: // Автор elena777 Процедура 1с_обмен_с_WEB() //отдает файл на сайт и забирает ответ СтруктураАдреса= ЭлектронныеДокументы.РазобратьАдрес(" http://site.ru/index.php" ); ОбменПорт = СтруктураАдреса.HTTPПорт; ...
Как в 1С проложить маршрут используя GoogleMaps API V3 3
Клиенты частенько просят настроить отображение маршрутов перемещения по разным адресам в 1С, например для курьеров и т.д. В примере описан способ отражения карт GoogleMaps в 1С: Для Каждого Стр Из НаВходе Цикл нСтр =...
Как организовать работу с электронной почтой через установленного почтового клиента? 0
// Отправка почты Почта = Новый Почта; Почта.Подключиться(" login" , " password" ); Сообщ = Новый ПочтовоеСообщение; Сообщ.Текст = " Вот файл!" ; Сообщ.Тема = " Срочно!!!" ; Данные = Новый ДвоичныеДанные(" c:file.txt" ); ...
Как переименовать файл или каталог? 0
ПереместитьФайл( ИмяФайлаИсточника , ИмяФайлаПриемника ) Параметры: ИмяФайлаИсточника (обязательный) - Полное имя файла-источника (полное исходное имя файла). ИмяФайлаПриемника (обязательный) - Полное имя...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.