Try
            Dim Smtp_Server As New SmtpClient("ololo.company.com")
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.EnableSsl = True
            Smtp_Server.Credentials = New Net.NetworkCredential("me@company.com", "123456")


            e_mail = New MailMessage()
            e_mail.From = New MailAddress("me@company.com")
            e_mail.To.Add("me@company.com")
            e_mail.Subject = "Test"
            e_mail.IsBodyHtml = False
            e_mail.Body = "Email send"
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")

        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try