继克仔修改了我的RssReader后，添加了的用mail发送文章的功能！

修改后的源代码下载：
http://files.cnblogs.com/aowind/RssReader2.rar

主要添加了一个mail.vb的窗体:
源代码如下：

Imports System.web.mail

在菜单内加入“发送文章给朋友”选项，name=FileSendMail, enabled=false
在loadhtml()过程里加上
FileSendMail.Enabled = True

再在主窗体上加上下面事件处理过程

Private Sub FileSendMail_Click()Sub FileSendMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileSendMail.Click
Dim smail As New mail
smail.stand(cbii.TopicContents, cbii.TopicTitle)
smail.ShowDialog()

End Sub
唉！下午公司网络出了问题，去买了一个MODEM，带路由功能，用起来还没有原来的不带路由功能的好用！
浪费了一下午时间，这个功能也就勿勿而就