Imports System.Net.Mail
'*************
Dim mail As New Net.Mail.MailMessage
                mail.From = New MailAddress("mamonov_nikolay@mail.ru")
                mail.To.Add("mamonov_nikolay@mail.ru")
                mail.Subject = "Тема"
                mail.Body = "Сообщение"
                mail.IsBodyHtml = False

                Dim smtp As New Net.Mail.SmtpClient
                smtp.Host = "smtp.mail.ru"
                smtp.Port = 25
                Dim SmtpUser As New System.Net.NetworkCredential()
                SmtpUser.UserName = "mamonov_nikolay@mail.ru"
                SmtpUser.Password = "change_password_here"
               
                smtp.UseDefaultCredentials = False
                smtp.Credentials = SmtpUser
                smtp.DeliveryMethod = SmtpDeliveryMethod.Network
                smtp.Send(mail)

                mail.Dispose()
'*************