Работа с почтой и ICQ - Visual Basic .NET - Ответ 136518

Private Sub Send_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send_button.Click 
        from = From_textBox.Text 
        address = Address_textBox.Text 
        subject = Subject_textBox.Text 
        body = TextrichTextBox.Text 
 
        Dim clint As New System.Net.Mail.SmtpClient("mail.yandex.ru") 
        Dim FromAdr As New System.Net.Mail.MailAddress(from, "Mail System", System.Text.Encoding.UTF8) 
        Dim toAdr As New System.Net.Mail.MailAddress(address) 
        Dim message As New System.Net.Mail.MailMessage(from, address) 
        message.Subject = subject 
        message.SubjectEncoding = System.Text.Encoding.UTF8 
        message.Body = body 
        message.BodyEncoding = System.Text.Encoding.UTF8 
        clint.Send(message) 
 
        message.Dispose() 
    End Sub