Private Sub Form_Load()
    Dim NameS As String
    Dim Email As Object
    
    NameS = "http://schemas.microsoft.com/cdo/configuration/"
    
    Set Email = CreateObject("CDO.Message")
    Email.From = "abc@163.com"
    Email.To = "cba@163.com"
    Email.Subject = "用VB代码发的邮件！"
    Email.Textbody = "你收到用VB代码发送的邮件了！"
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.163.com"
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "abc"
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "123456"
    Email.Configuration.Fields.Update
    Email.Send
End Sub

“今天就要代码”——2007-7-18 20:33:00
阿远迟了阿，嘿嘿
不过阿远的代码，我要学学。哈哈哈

学习学习

啊远果然是雷锋

呵呵！ 迟了是他的过失！大家可以相互学习讨论！呵呵！

其实回答问题的人并非什么都会！ 只是他们经验我理解能力稍强！ 如果不懂的！
能在网上查下资料看一下就知道了！ 就搬过来了！ 因为有太多人会问你想都没有想过后问题！ 当然了！ 问的还是你碰到过的问题多！

但问题是，有很多人体的问题水平及其高。看来就不是庸手，但他们注册就是为了提问，从不回答别人的问题。唉~

我试了下，结果是：
实时错误： '-2147220975 (80040211)':

邮件无法发送到STMP服务器。 传输错误代码为： 0X80040217。
服务器响应为：not available

==========
还有就是在代码中哪个是邮件的内容，为什么找不到字符串AnswerX 。。
==========
麻烦各位高手了！

谢谢大家~~~~

TO 8 楼:
把代码全部复制过去,把其中的发送方和接收方的邮件地址改为你自己的,当然,密码也得改,smtp也得改.再试.

啊远的代码不错,够简单.可以很轻松地加到自己的程序里.
不过,有个问题不懂,请讲讲.
NameS = "http://schemas.microsoft.com/cdo/configuration/"
这个地址后面都用到.这个是做什么用的???

PS:懂了.参考http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey1129.mspx
用这种方法还可以发送附件.
Email.AddAttachment "C:\work.txt"

试了，真不错，就是不知道能否发送超大附件呢？家里的网不好，明天去单位试试发个40M的文件，呵呵，网易才能发30M的附件，有时感觉真不方便。（提示存储空间不够）
还有，怎么同时发给两个邮箱呢？（邮箱之间加逗号）
还有，怎么判断邮件已经发送完毕？（提问中）
别嫌我烦，这几个问题解决了，就能做一个挺不错的邮件发送器哦。