I wrote a quick UDF for him which did the job. I am sharing same with you as you may find it use full.
Sample of the data and mail IDs extracted with the UDF is as below
Here is the VBA code to Email Address Extract from String. You will need to copy this code to regular VBA module of your workbook