ASP ส่งอีเมลด้วยCDOSYS
CDOSYS เป็นองค์ประกอบในตัวใน ASP ส่วนประกอบนี้ใช้เพื่อส่งอีเมลด้วย ASP
การส่งอีเมลด้วย CDOSYS
CDO (Collaboration Data Objects) เป็นเทคโนโลยีของ Microsoft ที่ออกแบบมาเพื่อลดความซับซ้อนในการสร้างแอปพลิเคชันการส่งข้อความ
CDOSYS เป็นองค์ประกอบในตัวใน ASP เราจะแสดงวิธีใช้ส่วนประกอบนี้เพื่อส่งอีเมลด้วย ASP
แล้ว CDONT ล่ะ?
Microsoft ได้ยุติการใช้ CDONT บน Windows 2000, Windows XP และ Windows 2003 หากคุณเคยใช้ CDONT ในแอปพลิเคชัน 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
%>
การส่งอีเมลข้อความพร้อมช่อง Bcc และ 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 "https://www.w3schools.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
%>