vb自动后台发送邮件

我做了一个VB应用程序，里面需要将顾客信息表单中的各项信息在顾客点提交时自动在后台以邮件的形式发送到服务器指定的邮箱内，请高手指点下该怎么实现，最好有详细注释，以供学习，谢谢！！

答案：On Error Goto ErrInfo Dim Email As Object     Const NameSpace = " http://schemas.microsoft.com/cdo/configuration/"     Set Email = CreateObject("CDO.Message")     Email.From = "test@126.com" '你的邮箱地址     Email.To = "test2@126.com"  '要发往的地址     Email.Subject = "你好这是测试" '主题     Email.Textbody = "这只是一个测试" '正文     Email.AddAttachment "E:\Test.txt" '附件，可以添加多个     Email.AddAttachment "D:\Test.EXE"     With Email.Configuration.Fields         .Item(NameSpace & "sendusing") = 2         .Item(NameSpace & "smtpserver") = "smtp.126.com" '发送邮件服务器         .Item(NameSpace & "smtpserverport") = 25         .Item(NameSpace & "smtpauthenticate") = 1         .Item(NameSpace & "sendusername") = "test" '邮箱用户名         .Item(NameSpace & "sendpassword") = "******"  '密码         .Update     End With     Email.Send     MsgBox "发送成功" Exit Sub  ErrInfo: Msgbox "发送失败！"http://hi.zhaoxi.net/liugai522008我的博客里有一篇你去找找几句话说不清楚。但是思路就是通过smtp协议发送邮件。这方面的控件很多，但是基本都是要注册的，这就增添了麻烦。我用过的，就下面这个还行吧。比较绿色，直接调用dll 不用注册。我试了，能发。但不知道你可不可以了！我看行！源码地址： http://www.ibiancheng.cn/Soft/othercode/200811/81.htmlDim NameS As String            NameS = " http://schemas.microsoft.com/cdo/configuration/"            With CreateObject("CDO.Message")                .From = "****@163.com"                .To = "****@163.com"                .Subject = Mail1.Text                .Textbody = Mail2.Text                With .Configuration.Fields                    .Item(NameS & "sendusing") = 2                    .Item(NameS & "smtpserver") = "smtp.163.com"                    .Item(NameS & "smtpserverport") = 25                    .Item(NameS & "smtpauthenticate") = 1                    .Item(NameS & "sendusername") = "*******"                    .Item(NameS & "sendpassword") = "*******"                    .Update                End With                .Send
我有一个控件，是发邮件的
如果用EMAIL发送的话，你得考虑别人是不是有防火墙，有防火墙程序的发送可能会被屏蔽，现在用网页直接提交到服务器比邮箱发送效率更高，如果需要的话可以找我给你代码

上一个：谁可以教我用VB？
下一个：怎样学好C++以及vb