常用Email组件发送函数

 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.Body =mailbody   
31objCDOMail.Send   
32Set objCDOMail = Nothing   
33if err then   
34SendMail=err.description   
35err.clear   
36else   
37SendMail="OK"   
38end if   
39end sub 
40
41sub aspemail(email)   
42Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")   
43recipient=email   
44sender=SystemEmail   
45subject=topic   
46message=mailbody   
47mailserver=SMTPServer   
48result=mailer.SendMail(mailserver, recipient, sender, subject, message)   
49if err then   
50SendMail=err.description   
51err.clear   
52else   
53SendMail="OK"   
54end if   
55end sub