请问？VB如何把文本发送到邮件上
各位哥哥姐姐好~!我是小菜一名，不知道如果在VB里利用代码把文本文档发送到邮箱里，我的邮箱是163的还请各位哥哥姐姐讲解详细一小点.
使用JMail组件。
[CODE]Private Sub Form_Load()
Dim JMail As New JMail.Message
Dim i As Long, j As Long
Dim strHtml As String
JMail.Charset = "gb2312"
'来自
JMail.From = "purana@126.com"
JMail.FromName = "purana"
'主题
JMail.Subject = "test"
'验证用户名
JMail.MailServerUserName = "purana@126.com"
'验证密码
JMail.MailServerPassWord = "xxxxxx"
JMail.Priority = 3
'JMail.HTMLBody = "<html><head><body BORDER=1><table><tr><td>ddd</td><tr></table></body></head></html>"
Open "d:\backup.sql" For Input As #1
strHtml = Input$(LOF(1), 1)
Close
JMail.Body = strHtml
'发送到
JMail.AddRecipient ("purana@126.com")
'服务器主机
JMail.Send ("smtp.126.com")
JMail.Close
Set JMail = Nothing
End Sub[/CODE]
害怕了吧