HoldingLeft := @Left(HoldName; " ");
HoldingRight := @Right(HoldName; " ");
CompleteName := (HoldingLeft + "." + HoldingRight + "@newplace.com");
CompleteName

@If(FieldWithNames = "";
     "";
     @Replace(@Name([CN]; FieldWithNames); " "; ".") + "@newplace.com")

@If(FieldWithNames = "";
     "";
     @NameLookup([Exhaustive]; FieldWithNames; 'InternetAddress'))