Formula field that extracts the domain name from an email address

Here's what I've tried...

Right ([From], "@")

And it works except for one important detail. It doesn't always give me only the domain. For example, no-reply@accounts.domainname.com gives me accounts.domainname.com but I need it to give me domainname.com