CDOSYS เป็นส่วนประกอบในตัวใน ASP ส่วนนี้จะใช้ในการส่งอีเมลที่มี ASP
การส่งอีเมลที่มี CDOSYS
CDO (Collaboration Data Objects) เป็นเทคโนโลยีที่ไมโครซอฟท์ที่ถูกออกแบบมาเพื่อให้ง่ายต่อการสร้างโปรแกรมการส่งข้อความ
CDOSYS เป็นส่วนประกอบในตัวใน ASP เราจะแสดงวิธีการใช้งานส่วนนี้ในการส่งอีเมลที่มี ASP
วิธีการเกี่ยวกับ CDONTS?
ไมโครซอฟท์ได้มีการยกเลิกการใช้ CDONTS บน Windows 2000, Windows XP และ Windows 2003 ถ้าคุณได้ใช้ CDONTS ในการใช้งาน ASP ของคุณคุณควรปรับปรุงโค้ดและใช้เทคโนโลยีใหม่ CDO
ตัวอย่างการใช้ CDOSYS
การส่งข้อความอีเมล:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>การส่งข้อความอีเมลที่มีสำเนาลับและ CC สาขา:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.Bcc = "[email protected]"
myMail.Cc = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>ส่งอีเมลแบบ HTML:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail = nothing
%>ส่งอีเมลแบบ HTML ที่ส่งหน้าเว็บจากเว็บไซต์:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To ="[email protected]"
myMail.CreateMHTMLBody = "http://www.w3ii.com/asp/"
myMail.Send
set myMail = nothing
%>ส่งอีเมลแบบ HTML ที่ส่งหน้าเว็บจากไฟล์ในคอมพิวเตอร์ของคุณ:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.CreateMHTMLBody = "file://c:/mydocuments/test.htm"
myMail.Send
set myMail = nothing
%>การส่งข้อความอีเมลที่มีสิ่งที่แนบ:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.AddAttachment = "c:\mydocuments\test.txt"
myMail.Send
set myMail = nothing
%>การส่งข้อความอีเมลโดยใช้เซิร์ฟเวอร์ระยะไกล:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
set myMail = nothing
%>