Send emails in visual vasic

See more:

VB

Windows

email

I have made a form and I want to send emails with it, I have name subject email and password but it wont send... could anyone help tell me why? all I get is 'Failed to send message'
*(in the code I have removed the emails and changed them to example it was not like that when I was testing*
sorry this is a long message DX

Dim OMail As New MailMessage()
        Dim oServer As New SmtpClient
        Dim name As String
        Dim theCredential As System.Net.NetworkCredential = New System.Net.NetworkCredential(Email.Text, Password.Text)
        oServer.Credentials = theCredential
        name = FName.Text + Lname.Text

        ' Set recipient email address, please change it to yours
        OMail.From = New MailAddress(Email.Text)

        ' Set recipient email address, please change it to yours
        OMail.To.Add("Example@outlook.com")

        ' Set email subject
        OMail.Subject = Subject.Text

        ' Set email body
        OMail.Body = Template.Text + Message.Text + "This message was sent by " + name + " @ " + Email.Text

        ' Your Office 365 SMTP server address, 
        ' You should get it from outlook web access.
        oServer.Host = "smpt.live.com"

        ' user authentication should use your 
        'Email address as the user name. 
        oServer.Credentials = New Net.NetworkCredential(My.Settings.Email, My.Settings.Emailpass)

        ' Set 587 port
        oServer.Port = 587

        Try
            strMsg = "start to send Feedback..." & vbCrLf & "Please wait"
            strTitle = "Sending Email"
            Ret_type = MsgBox(strMsg, vbOKOnly + vbInformation, strTitle)
            '
            oServer.Send(OMail)
            '
            strMsg = "email was sent successfully!" & vbCrLf & "If a reply is needed you sould get one in the next few days!"
            strTitle = "Email sent"
            Ret_type = MsgBox(strMsg, vbOKOnly + vbInformation, strTitle)

        Catch ex As Exception

            strMsg = "failed to send email with the following error:" & vbCrLf & vbCrLf & "'" & ex.Message & "'"
            strTitle = "Critical Error Encountered"
            Ret_type = MsgBox(strMsg, vbOKOnly + vbCritical, strTitle)
        End Try

What I have tried:

I have tried other peoples code, but none got as far as this one did so I think this is my best bet.