ASP CDOSYS ဖြင့် အီးမေးလ်ပို့ခြင်း ။
CDOSYS သည် ASP တွင် ပါ၀င်သော အစိတ်အပိုင်းတစ်ခုဖြစ်သည်။ ASP ဖြင့် အီးမေးလ်များ ပေးပို့ရန် ဤအစိတ်အပိုင်းကို အသုံးပြုသည်။
CDOSYS ဖြင့် အီးမေးလ်ပို့ခြင်း။
CDO (Collaboration Data Objects) သည် စာတိုပေးပို့ခြင်း အပလီကေးရှင်းများ ဖန်တီးမှုကို ရိုးရှင်းစေရန် ဒီဇိုင်းထုတ်ထားသည့် Microsoft နည်းပညာတစ်ခုဖြစ်သည်။
CDOSYS သည် ASP တွင် ပါ၀င်သော အစိတ်အပိုင်းတစ်ခုဖြစ်သည်။ ASP ဖြင့် အီးမေးလ်ပေးပို့ရန် ဤအစိတ်အပိုင်းကို အသုံးပြုနည်းကို သင့်အား ပြသပါမည်။
CDONT တွေကော ဘယ်လိုလဲ။
Microsoft သည် Windows 2000၊ Windows XP နှင့် Windows 2003 တွင် CDONTs များအသုံးပြုမှုကို ရပ်ဆိုင်းလိုက်ပြီဖြစ်သည်။ သင့် ASP အပလီကေးရှင်းများတွင် CDONTs ကိုအသုံးပြုပါက၊ သင်သည် ကုဒ်ကိုမွမ်းမံပြီး 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
%>