วันนี้ฉันกำลังพัฒนาข้อความของผู้ใช้ สำเนาหนึ่งถูกเก็บไว้ในฐานข้อมูล และอีกสำเนาหนึ่งต้องถูกส่งไปยังกล่องจดหมายที่ระบุ ฉันไม่รู้ว่าเซิร์ฟเวอร์รองรับหรือไม่ หากรองรับ ข้อมูลข้อความจะถูกส่งไป ส่งอีเมล ขั้นแรกจะต้องมีข้อความ On Error Resume Next
จากนั้นลองดำเนินการต่อตัวอย่าง jmail:
ดิม เจเมล
ตั้งค่า JMail=Server.CreateObject(JMail.Message)
ตัดสินอินสแตนซ์ หากติดตั้งส่วนประกอบไม่สำเร็จ จะไม่มีการสร้างอินสแตนซ์:
ถ้า JMail ไม่มีอะไรแล้ว
ไม่รองรับการตอบกลับการเขียน
อื่น
ตอบกลับสนับสนุนการเขียน
สิ้นสุดถ้า
ส่วนประกอบอื่นๆ ได้รับการประมวลผลในลักษณะเดียวกัน ซึ่งง่ายมาก
ทางที่ดีควรจัดการมันในไฟล์โกลบอล ดังนั้นคุณไม่ต้องกังวลกับมันเมื่อใช้งาน
วิธีที่ดีที่สุดคือการวางการสร้างอีเมลไว้ในตารางแล้วพูดคุยเกี่ยวกับการส่ง
คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชัน IsObjInstalled (strClassString)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
IsObjInstalled = เท็จ
ผิดพลาด = 0
DimxTestObj
ตั้งค่า xTestObj = Server.CreateObject(strClassString)
ถ้า 0 = ผิดพลาด ดังนั้น IsObjInstalled = True
ตั้งค่า xTestObj = ไม่มีเลย
ผิดพลาด = 0
ฟังก์ชันสิ้นสุด
รหัสการตัดสิน:
ถ้า IsObjInstalled(JMail.Message)=True แล้ว{
ถ้า IsObjInstalled(JMail.Message) =True แล้ว
SendStat = Jmail(***@vevb.com, ข้อความจากลูกค้าทางอินเทอร์เน็ต, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>ข้อความของผู้ใช้เว็บไซต์</title></head><body>ผู้ส่งข้อความ: &txtname&<br>เพศ: &xingbie&<br>เว็บไซต์ที่ปรึกษา: &txtweb&<br>ข้อมูลติดต่อ: &txttel&<br>เนื้อหาข้อความ :&ต่อ ent&<br>ที่อยู่ IP:&ipaddress&<br>เวลาข้อความ:&now()&<br><br>ระบบส่งอีเมลนี้โดยอัตโนมัติ ไม่จำเป็นต้องตอบกลับ<!--Script Home www.vevb.com-- <br ><br></body></html>,GB2312,ข้อความ/html)
สิ้นสุดถ้า
-
ฟังก์ชั่นการส่ง jmail
คัดลอกรหัสรหัสดังต่อไปนี้:
-
' jmail ส่งอีเมล
-
ฟังก์ชั่น Jmail (mailTo, mailTopic, mailBody, mailCharset, mailContentType)
'พารามิเตอร์รายการ:
' อีเมลถึงที่อยู่อีเมลของผู้รับ
'หัวข้อเมล หัวข้อเมล'
' mailBody เนื้อความอีเมล (เนื้อหา)
' ชุดอักขระเมล mailCharset เช่น GB2312 หรือ US-ASCII
' รูปแบบเนื้อหาอีเมลของ mailContentType เช่น ข้อความ/ธรรมดา หรือ ข้อความ/html
'มูลค่าส่งคืน:
' สตริง OK จะถูกส่งกลับหลังจากการส่งข้อมูลสำเร็จ ข้อความแสดงข้อผิดพลาดจะถูกส่งกลับหากไม่สำเร็จ
'การใช้งาน:
' 1) ตั้งค่าคงที่ นั่นคือ ตัวแปรที่ขึ้นต้นด้วย Const
'2) ใช้โค้ดที่คล้ายกับข้อความต่อไปนี้เพื่อส่งข้อความ
'ดิม SendStat
'SendStat = Jmail([email protected], ทดสอบ Jmail นี่คือจดหมายทดสอบ!, GB2312, ข้อความ/html)
'การตอบสนองเขียน SendStat'
'****************** ตั้งค่าคงที่ตามต้องการเพื่อเริ่มต้น ******************
ติ่ม ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword
ConstFromNameCn = ชื่อผู้ส่งเป็นภาษาจีนของ Lottery Network (ใช้เมื่อส่งอีเมลภาษาจีน) เช่น 'จางซาน'
ConstFromNameEn = bc5'ชื่อภาษาอังกฤษของผู้ส่ง (ใช้เมื่อส่งอีเมลภาษาอังกฤษ) เช่น 'zhangsan'
ConstFrom = [email protected]' ที่อยู่อีเมลของผู้ส่ง เช่น '[email protected]'
ConstMailDomain = ที่อยู่เซิร์ฟเวอร์ smtp.163.com'smtp เช่น smtp.163.com
ConstMailServerUserName = ชื่อเข้าสู่ระบบกล่องจดหมายของเซิร์ฟเวอร์ [email protected]'smtp เช่น 'zhangsan' อย่าลืมตรงกับที่อยู่อีเมลของผู้ส่ง!
ConstMailServerPassword = รหัสผ่านเข้าสู่ระบบกล่องจดหมายของเซิร์ฟเวอร์ www.vevb.com'smtp
'****************** ตั้งค่าคงที่ตามต้องการเพื่อสิ้นสุด ****************
'-------------------------------- เนื้อหาต่อไปนี้ไม่จำเป็นต้องเปลี่ยนแปลง --------- --------- ---------------
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ติ่ม myJmail
ตั้งค่า myJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = False'การบันทึก
myJmail.ISOEncodeHeaders = ส่วนหัว False'Mail ไม่ได้ใช้การเข้ารหัส ISO-8859-1
myJmail.ContentTransferEncoding = base64'การเข้ารหัสเมลถูกตั้งค่าเป็น base64
myJmail.AddHeader Priority,3'เพิ่มส่วนหัวของเมล อย่าเปลี่ยน!
myJmail.AddHeader MSMail-Priority,Normal'เพิ่มส่วนหัวของเมล อย่าเปลี่ยน!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'เพิ่มส่วนหัวของเมล ไม่ต้องเปลี่ยน!
myJmail.AddHeader MimeOLE ผลิตโดย Microsoft MimeOLE V6.00.2800.1441'เพิ่มส่วนหัวของเมล อย่าเปลี่ยน!
myJmail.Charset = เมลชาร์เซต
myJmail.ContentType = เมลContentType
ถ้า UCase(mailCharset) = GB2312 แล้ว
myJmail.FromName = ConstFromNameCn
อื่น
myJmail.FromName = ConstFromNameEn
สิ้นสุดถ้า
myJmail.From = ConstFrom
myJmail.Subject = เมลหัวข้อ
myJmail.Body = เมลบอดี้
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
myJmail.ปิด
ตั้งค่า myJmail=nothing
หากผิดพลาดแล้ว
Jmail=ข้อผิดพลาดคำอธิบาย
ผิดพลาด.เคลียร์
อื่น
เจเมล=ตกลง
สิ้นสุดถ้า
เมื่อเกิดข้อผิดพลาดไปที่ 0
ฟังก์ชันสิ้นสุด