11-16-2019, 04:07 PM
(This post was last modified: 11-16-2019, 04:10 PM by cprmlao@hotmail.com.)
This is not a IW question.
But you can try:
But you can try:
Code:
var input, s:string;
valid_email:boolean;
begin
s := '^(([^<>()\[\]\.,;:\s@\"]+(\.[^<>()\[\]\.,;:\s@\"]+)*)|(\".+\"))@(([^<>()[\]\.,;:\s@\"]+\.)+[^<>()[\]\.,;:\s@\"]{2,})$';
input:='MSG-8b17fa92-7b35-4fdb-9f18-f8a69252e019+BR-999999999@expmessaging.tripadvisor.com';
valid_email:=TRegEx.IsMatch(input, s, [roIgnoreCase])
end;