ການສົ່ງອີເມວດ້ວຍ CDOSYS ASP

CDOSYS ແມ່ນຊັບສິນຄອມທີ່ລວມເອງໃນ ASP. ຊັບສິນຄອມນີ້ນຳໃຊ້ເພື່ອສົ່ງອີເມວຜ່ານ ASP.

ສົ່ງອີເມວທີ່ນຳໃຊ້ CDOSYS

CDO (Collaboration Data Objects) ແມ່ນເຕັກໂນໂລຊີຂອງ Microsoft, ເລື່ອງການອອກແບບຂອງພວກເຂົາແມ່ນເພື່ອຫຼອກຫຼາຍຂອງການສ້າງໂຄງສະນະການສື່ສານ.

CDOSYS ແມ່ນຊັບສິນຄອມທີ່ລວມເອງໃນ ASP. ພວກເຮົາຈະສະແດງໃຫ້ເຈົ້າຫາກວດກາວິທີທີ່ນຳໃຊ້ຊັບສິນຄອມນັ້ນເພື່ອສົ່ງອີເມວ.

CDONTs ມັນຈະເປັນແນວໃດ?

Microsoft ໄດ້ຖອນ CDONTs ໃນ Windows 2000, Windows XP ແລະ Windows 2003. ຖ້າເຈົ້າຍັງນຳໃຊ້ CDONTs ໃນການສະແດງ, ເຈົ້າຕ້ອງປັບປຸງລະບຸດຄວາມສະບາຍ, ແລະນຳໃຊ້ ເຕັກໂນໂລຊີ CDO (Collaboration Data Objects) ອີກຢ່າງໜຶ່ງ.

ສົ່ງອີເມວທີ່ມີອຸປະກອນ 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
%>