ASP 使用 CDOSYS 发送电子邮件

CDOSYS คือคอมโพเนนต์ที่ฝั่งในของ ASP ซึ่งถูกใช้เพื่อส่งอีเมลผ่าน ASP

การส่งอีเมลด้วย CDOSYS

CDO (Collaboration Data Objects) คือเทคโนโลยีของ Microsoft ที่ถูกออกแบบมาเพื่อระบบความสะดวกในการสร้างโปรแกรมการสื่อสาร

CDOSYS คือคอมโพเนนต์ที่ฝั่งในของ ASP จะเน้นไปที่การแสดงถึงวิธีการใช้คอมโพเนนต์นี้เพื่อส่งอีเมล

CDONTs มีที่ยอมรับมากไหม?

ไม่ว่าทาง Microsoft ได้เอา CDONTs ออกจาก Windows 2000, Windows XP และ Windows 2003 แล้ว หากคุณยังใช้ CDONTs ในโปรแกรมของตัวเอง คุณจะต้องปรับปรุงโค้ด และใช้เทคโนโลยี CDO ใหม่

ใช้ตัวตัวอย่าง CDOSYS

ส่งอีเมล์

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
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="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

ส่งอีเมล์ HTML ที่มาจากไฟล์ในคอมพิวเตอร์

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
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="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
ที่อยู่ IP หรือชื่อของบริการ SMTP ทางหลัง
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
ทางการตั้งค่าบริการบอกเลขประจำประเทศ
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>