就是用我的QQ邮箱自动给text1里输入的邮箱发送邮件^v^

类似asp，你可以下载Jmail组件，注册后在vb中引用，利用里面的对象发送邮件。

Public Function 发送邮件(ByVal 收件地址 As String, ByVal 标题 As String, ByVal 内容 As String) As Long
Dim Flags As Long
Dim Result As Boolean
Result = InternetGetConnectedState(Flags, 0)
If Result Then
Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.Subject = 标题 '邮件标题
'objEmail.To = InputBox("请修改接收数据的邮箱名", "调查系统", "[email protected]")
objEmail.To = 收件地址
objEmail.Textbody = 内容 '邮件内容
' objEmail.AddAttachment App.Path & "\上机人数.txt" '附件内容，不要可删掉
' objEmail.AddAttachment App.Path & "\下载测速.txt" '附件内容，不要可删掉
' objEmail.AddAttachment App.Path & "\ping.txt" '附件内容，不要可删掉
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "elcasyc530"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "elcasyc"
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
发送邮件 = True
Else
发送邮件 = False
End If
End Function
希望能帮上你