---------------------------------------------------------------
下面是3个流行的发信组件的发信函数。看看吧。
根据英文，各自的方法，属性应该都可以看得懂
1
2sub Jmail(email)
3Dim JMail,SendMail
4Set JMail=Server.CreateObject("JMail.SMTPMail")
5JMail.Logging=True
6JMail.Charset="gb2312"
7JMail.ContentType = "text/html"
8JMail.ServerAddress=SMTPServer
9JMail.Sender=SystemEmail
10JMail.Subject=topic
11JMail.Body=mailbody
12JMail.AddRecipient email
13JMail.Priority=3
14JMail.Execute
15Set JMail=nothing
16if err then
17SendMail=err.description
18err.clear
19else
20SendMail="OK"
21end if
22end sub
23
24sub Cdonts(email)
25dim objCDOMail
26Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
27objCDOMail.From =SystemEmail
28objCDOMail.To =email
29objCDOMail.Subject =topic
30objCDOMail.BodyFormat = 0
31objCDOMail.MailFormat = 0
32objCDOMail.Body =mailbody
33objCDOMail.Send
34Set objCDOMail = Nothing
35if err then
36SendMail=err.description
37err.clear
38else
39SendMail="OK"
40end if
41end sub
42
43sub aspemail(email)
44Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
45recipient=email
46sender=SystemEmail
47subject=topic
48message=mailbody
49mailserver=SMTPServer
50result=mailer.SendMail(mailserver, recipient, sender, subject, message)
51if err then
52SendMail=err.description
53err.clear
54else
55SendMail="OK"
56end if
57end sub
---------------------------------------------------------------