g.Items.Add(RdStrm.ReadLine()) 
　　''发送主题 
　　sendData = "SUBJECT: " + txtsub.Text + CRLF 
　　''发送内容 
　　sendData = sendData + txtmsg.Text + CRLF 
　　''结束发送 
　　sendData = sendData + "." + CRLF 
　　szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray()) 
　　.NetStrm.Write(szData, 0, szData.Length) 
　　lstlog.Items.Add(RdStrm.ReadLine()) 
　　''退出 
　　sendData = "QUIT " + CRLF 
　　szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray()) 
　　.NetStrm.Write(szData, 0, szData.Length) 
　　lstlog.Items.Add(RdStrm.ReadLine()) 
　　''关闭连接 
　　.NetStrm.Close() 
　　RdStrm.Close() 
　　lstlog.Items.Add("连接关闭") 
　　lstlog.Items.Add("发送成功") 
　　大家还可以参考：使用C# 创建邮件发送组件(SMTP)  


　　4、IIS SMTP自带的基本的发信组件CDONTS

　　你不必专门下载，微软已经提供了这个组件，只要安装了2000，NT的SMTP就会有的。

　　优点：组件由操作系统自带

　　缺点：功能比较差，可扩展性不强

　　Mymail = CreateObject("CDONTS.NewMail")

　　Mymail.From = *** ''信件发送者信箱

　　Mymail.To = *** ‘信件接收者信箱

　　Mymail.CC = *** ''抄送

　　Mymail.BCC = *** ’密件发送

　　Mymail.Subject = *** ‘信件主题

　　Mymail.Body = *** ’信件正文

　　''设置优先级，0-不重要，1-一般，2-重要。

　　Mymail.Importance = 2

　　Mymail.Send()

　　Mymail = Nothing

　　5、使用JMail组件

　　Jmail具有以下特点：

　　(1)可以发送附件;

　　(2)详细日志能力，便于你查看问题所在;

　　(3)设置邮件发送的优先级;

　　(4)支持多种格式的邮件发送，比如说以HTML或者TXT的方式发送邮件。这是个免费的组件。

　　(5)密件发送/(CC)抄送/紧急信件发送能力;

　　(6)最关键的就是--免费的组件，不必发钱，所以非常值得使用。

　　网站：/uploadfile/201210/15/F292610957.gif") 
　　JMail.Priority = 3 
　　JMail.Execute() 
　　JMail = Nothing 


　　总结：选择何种方案，视程序的用途和需求而定，本文例出的几种方案，供大家参考。例如用友软件U8，调用outlook组件，一样整合到自己的软件中。我编写的管理系统，自己写组件(SMTP)，功能同样强大，不过Coding的时间就长了!