In D1: =LEFT(A2;FIND("*at";A2)-1)
In E1: =RIGHT(A2;9) (assuming all email numbers are 9 characters long)

Let me know if my assumptions are wrong, then I can come up with another formula for you