Работа с почтой и ICQ

[areostar]

Народ кoму не жалко! Подкиньте пожалуйста рабочий код или ссылку на ПОДРОБНОЕ обьяснение как реализовать рассылку мейлoв и сообщений на аську На С# ИЛИ VB.NET

Для отсылки письма написал следуюший код:

 

Код:

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

Комп в ответ  указывает на clint.Send(message)

и пишет SmtpExeption was unhandled Failure sending mail. В чем ошибка!!

в общем помогите очень надо!