Sub sendOutlookEmail()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")

Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "To create a new account, send your name with the functional code"
oMail.Subject = "Create Account"
oMail.To = "Email@!!!!.!!!"
oMail.Display
Set oMail = Nothing
Set oApp = Nothing

End Sub
