param ($i,$f,$mail)
$match = [regex]::Match($mail,"^([a-z]+\.[a-z]+)@.+$")
$alias = $match.groups[1].value
New-MailContact -ExternalEmailAddress SMTP:$mail -Name "$i $f" -Alias $alias -FirstName "$i" -Initials '' -LastName "$f" -OrganizationalUnit 'Domen/Mail_contacts/OU'