Yes this could be done as 
select 
replace('james.vh@naturescomfortllc.com',
       substring_index(substring_index('james.vh@naturescomfortllc.com','@',-1),'.',1),
       concat(substring_index(substring_index('james.vh@naturescomfortllc.com','@',-1),'.',1),'1')
)
Here are few tests
mysql> select 
    -> replace('james.vh@naturescomfortllc.com',
    ->        substring_index(substring_index('james.vh@naturescomfortllc.com','@',-1),'.',1),
    ->        concat(substring_index(substring_index('james.vh@naturescomfortllc.com','@',-1),'.',1),'1')
    -> ) as result ;
+---------------------------------+
| result                          |
+---------------------------------+
| james.vh@naturescomfortllc1.com |
+---------------------------------+
1 row in set (0.00 sec)
mysql> select 
    -> replace('rskidmore@soundviewprep.org',
    ->        substring_index(substring_index('rskidmore@soundviewprep.org','@',-1),'.',1),
    ->        concat(substring_index(substring_index('rskidmore@soundviewprep.org','@',-1),'.',1),'1')
    ->        
    -> ) as result ;
+------------------------------+
| result                       |
+------------------------------+
| rskidmore@soundviewprep1.org |
+------------------------------+
mysql> select 
    -> replace('rskid.mo.re@soundviewprep.co.uk',
    ->        substring_index(substring_index('rskid.mo.re@soundviewprep.co.uk','@',-1),'.',1),
    ->        concat(substring_index(substring_index('rskid.mo.re@soundviewprep.co.uk','@',-1),'.',1),'1')
    ->        
    -> ) as result ;
+----------------------------------+
| result                           |
+----------------------------------+
| rskid.mo.re@soundviewprep1.co.uk |
+----------------------------------+
1 row in set (0.00 sec)
So here is the update command
update your_table set email = 
replace(
 email,
 substring_index(substring_index(email,'@',-1),'.',1),
 concat(substring_index(substring_index(email,'@',-1),'.',1),'1')
) ;