CDOSYS هو مكون المضمنة في ASP. ويستخدم هذا المكون لإرسال رسائل البريد الإلكتروني مع ASP.
إرسال البريد الإلكتروني مع CDOSYS
CDO (Collaboration Data Objects) هي تقنية مايكروسوفت التي تم تصميمها لتبسيط عملية إنشاء تطبيقات التراسل.
CDOSYS هو مكون المضمنة في ASP. ونحن سوف تظهر لك كيفية استخدام هذا المكون لإرسال البريد الإلكتروني مع ASP.
ماذا عن CDONTS؟
مايكروسوفت قد توقف استخدام CDONTS على نظام التشغيل Windows 2000 و Windows XP و Windows 2003. إذا كنت قد استخدمت CDONTS في تطبيقات 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
%>إرسال البريد الإلكتروني النص مع حقول مخفية و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 = "http://www.w3ii.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
%>