多谢大家帮忙，现在手头没有书，只能上这里来，靠大家，靠朋友咧~
可用分实在不多了，所以只能委屈大家，50分了
---------------------------------------------------------------
给你一个例子参考：
1
2dim objCDOMail
3Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
4objCDOMail.From ="[email protected]"
5objCDOMail.To [email protected]
6objCDOMail.Subject ="邮件发送测试"
7body="这里可写HTML代码！" & chr(10)
8objCDOMail.Body =body
9objCDOMail.BodyFormat=1 '设置为HTML格式
10objCDOMail.AttachFile "c:\fujian\abc.gif" '发送附件
11objCDOMail.Send
12Set objCDOMail = Nothing