'''''отправляем письмо
            Dim smtpclient As New SmtpClient
            With (smtpclient)
                .Host = "111.11.1.1"
                .Port = 25
                .EnableSsl = False
                .Credentials = New NetworkCredential("no_reply@mail.ru", "11111")
            End With

            Try
                smtpclient.Send("no_reply@mail.ru", "reply@mail.ru", "Тема", "Тестовое_3_письмо")
            Catch ex As Exception
                MsgBox("Сообщение не отправлено")
            End Try

            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field

            iConfg = oMsg.Configuration
            oFields = iConfg.Fields

            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort

            ' TODO: Replace with the port that you want to use . It must be the same
            ' port that the SMTP server is using.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25

            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "111.11.1.1"

            oFields.Update()
            oMsg.Configuration = iConfg

            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "no_reply@mail.ru"
            oMsg.To = "reply@mail.ru"

            oMsg.Send()

            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing

smtpclient.Send