ASP menghantar e-mel
CDOSYS ialah komponen terbina dalam ASP. Komponen ini digunakan untuk menghantar e-mel melalui ASP.
Hantar E-mel Menggunakan CDOSYS
CDO (Collaboration Data Objects) ialah teknologi Microsoft yang direka untuk memudahkan penciptaan aplikasi komunikasi.
CDOSYS ialah komponen terbina dalam dalam ASP. Kami akan menunjukkan kepada anda cara menggunakan komponen ini dengan ASP untuk menghantar e-mel.
Bagaimana pula dengan CDONT?
Microsoft telah menghentikan penggunaan CDONT dalam Windows 2000, Windows XP dan Windows 2003. Jika anda sudah menggunakan CDONT dalam aplikasi ASP anda, anda perlu mengemas kini kod anda dan menggunakan teknologi CDO baharu.
Menggunakan instance CDOSYS
Hantar e-mel teks:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Menghantar e-mel dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="Ini adalah mesej ."
myMail.Send
set myMail=nothing
%>
Hantar e-mel teks dengan medan Bcc dan CC:
Tetapkan myMail=CreateObject("CDO.Message")
myMail.Subject="Menghantar e-mel dengan CDO"
myMail.From="mymail@mydomain.com"
myMail To ="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="Ini ialah mesej. "
myMail.Send
set myMail=nothing
%>
Hantar e-mel HTML:
Set myMail= CreateObject("CDO.Message")
myMail.Subject="Menghantar e-mel dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com "
myMail.HTMLBody = "<h1>Ini ialah mesej.</h1>"
myMail.Send
set myMail=nothing
%>
Hantar e-mel HTML dengan kandungan halaman web pada tapak web:
Set myMail=CreateObject("CDO.Message")
myMail e-mel dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3cschool .cc/asp /"
myMail.Send
set myMail=nothing
%>
Menghantar halaman web yang kandungannya ialah fail pada komputer anda e-mel HTML:
Tetapkan myMail=CreateObject("CDO.Message")
myMail.Subject="Menghantar e-mel dengan CDO"
myMail.From ="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%> ;
Hantar e-mel teks dengan lampiran:
Set myMail=CreateObject("CDO.Message")
myMail.Subject= "Menghantar e-mel dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail. AddAttachment "c:mydocumentstest.txt"
myMail.Send
set myMail=nothing
%>
Hantar e-mel teks menggunakan pelayan jauh:
Tetapkan myMail=CreateObject("CDO.Message")
myMail.Subject="Menghantar e-mel dengan 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
'Nama atau IP pelayan SMTP jauh
myMail.Configuration.Fields.Item _
("http://schemas.microsoft. com/cdo/ configuration/smtpserver")="smtp.server.com"
'Port pelayan
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo /configuration/smtpserverport ")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
