إرسال بريد إلكتروني باستخدام CDOSYS في ASP

CDOSYS هو مكون مدمج في ASP. تستخدم هذه المكونة لإرسال البريد الإلكتروني عبر ASP.

إرسال البريد الإلكتروني باستخدام CDOSYS

CDO (مكتبات بيانات التعاون) هي تقنية من ميكروسوفت مصممة لتبسيط إنشاء برامج التواصل.

CDOSYS هو مكون مدمج في ASP. سنقوم بشرح كيفية استخدام هذا المكون لإرسال البريد الإلكتروني.

كيف هي CDONTs؟

ميكروسوفت قد أزالت CDONTs من Windows 2000، Windows XP و Windows 2003. إذا كنت لا تزال تستخدم CDONTs في تطبيقك، فإنه يجب عليك تحديث الكود واستخدام تقنية CDO الجديدة.

استخدام مثال CDOSYS

إرسال بريد إلكتروني:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="إرسال بريد إلكتروني باستخدام CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="هذا رسالة."
myMail.Send
set myMail=nothing
%>

إرسال بريد نصي يحتوي على حقل CC و Bcc:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="إرسال بريد إلكتروني باستخدام CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="هذا رسالة."
myMail.Send
set myMail=nothing
%>

إرسال بريد إلكتروني HTML:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="إرسال بريد إلكتروني باستخدام CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>" 
myMail.Send
set myMail=nothing
%>

إرسال بريد إلكتروني يحتوي على صفحة الويب من الموقع:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="إرسال بريد إلكتروني باستخدام CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

إرسال بريد إلكتروني يحتوي على صفحة الويب من ملف على الكمبيوتر:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="إرسال بريد إلكتروني باستخدام 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="إرسال بريد إلكتروني باستخدام CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="هذا رسالة."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

إرسال بريد نصي باستخدام الخادم بعيد:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="إرسال بريد إلكتروني باستخدام CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="هذا رسالة."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'عنوان أو اسم الخادم 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
%>