Если СтрНайти(Адрес, "@") = 0 ИЛИ СтрНайти(Адрес, ".") = 0 Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Необходимо ввести адрес электронной почты'"));
Отказ = Истина;
Возврат;
КонецЕсли;
С учётом сложного условия по поводу маски ввода можно воспользоваться проверкой регулярных выражений из 1С, взяв отсюда (https://infostart.ru/1c/articles/464971/) функцию и сделав проверку с помощью её вызова.
Или аналогично воспользоваться встроенной возможностью платформы 1С 8.3.23 при её наличии.