如何将VB中text文件发送到指定邮箱 [100分求助]

安装一个jmail组件,代码:

Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)

Dim jmail
Set jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312"
jmail.Silent = False

jmail.MailServerUserName = "123@sohu.com " 'Email帐号
jmail.MailServerPassWord = "****" 'Email密码

jmail.FromName = "123@sohu.com" '发信人姓名
jmail.From = "123@sohu.com " '发邮件地址地址

jmail.Subject = "来信了" '主题
jmail.AddRecipient "690642614@qq.com" '收信人地址
jmail.Body = Text1.Text & Text2.Text

jmail.Send ("smtp.sohu.com") 'SMTP服务器，如smtp.sohu.com

Set jmail = Nothing
End Sub

Private Sub Command1_Click()

SendMail "测试", "test"

End Sub

安装一个jmail组件
使用帮助：google一下