ฟังก์ชันการส่งส่วนประกอบอีเมลที่ใช้กันทั่วไป

-
ย่อย Jmail (อีเมล)
Dim JMail, SendMail
ตั้งค่า JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=จริง
JMail.Charset="gb2312"
JMail.ContentType = "ข้อความ/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=หัวข้อ
JMail.Body=เมลบอดี้
JMail.AddRecipient อีเมล
JMail.ลำดับความสำคัญ=3
JMail.ดำเนินการ
ตั้ง JMail=nothing
ถ้าทำผิด
SendMail=err.คำอธิบาย
ผิดพลาดชัดเจน
อื่น
SendMail = "ตกลง"
สิ้นสุดถ้า
สิ้นสุด

ย่อย Cdonts ย่อย (อีเมล)
objCDOMail.สลัว
ตั้งค่า objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To = อีเมล
objCDOMail.Subject =หัวข้อ
objCDOMail.Body = mailbody
objCDOMail ส่ง
ตั้ง objCDOMail = ไม่มีเลย
ถ้าทำผิด
SendMail=err.คำอธิบาย
ผิดพลาดชัดเจน
อื่น
SendMail = "ตกลง"
สิ้นสุดถ้า
สิ้นสุดย่อย

ย่อย aspemail (อีเมล)
ตั้งค่าจดหมาย=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
ผู้รับ=อีเมล
ผู้ส่ง=SystemEmail
หัวเรื่อง=หัวข้อ
ข้อความ=เมล์บอดี้
เมลเซิร์ฟเวอร์=SMTPServer
result=mailer.SendMail(เมลเซิร์ฟเวอร์, ผู้รับ, ผู้ส่ง, หัวเรื่อง, ข้อความ)
ถ้าทำผิด
SendMail=err.คำอธิบาย
ผิดพลาดชัดเจน
อื่น
SendMail = "ตกลง"
สิ้นสุดถ้า
จบย่อย
-