邮件到底如何发送？

邮件到底怎么发送？？？！！！！！！！！
Private   Sub   cmdSend_Click()  
With   MAPIMessages1  
.MsgIndex   =   -1  
.RecipDisplayName   =   txtSendTo.Text  
.MsgSubject   =   txtSubject.Text  
.MsgNoteText   =   txtMessage.Text  
.SessionID   =   MAPISession1.SessionID  
.Send  
End   With  
MsgBox   "邮件发送完毕！ ",   ,   "发送邮件 "  
End   Sub  


网上有很多类似这样的代码，我在VB6.0中实验的时候，从没有成功过，老是跳出
微软的一个网站要用户名和密码，

请教各位技术前辈，我到底该怎么办才能发出邮件啊？？？？？不用MAPI的也行！！

[解决办法]
找了个例子
http://dev-club.esnai.com/club/bbs/showEssence.asp?id=17002
如果用JMail组件的话会比较简单
[解决办法]
建议用JMail
[解决办法]
cdo
[解决办法]
用JMail组件很方便！