ASP إرسال البريد الإلكتروني مع CDOSYS
CDOSYS هو مكون مدمج في ASP. يستخدم هذا المكون لإرسال رسائل البريد الإلكتروني مع ASP.
إرسال بريد إلكتروني مع CDOSYS
CDO (كائنات بيانات التعاون) هي إحدى تقنيات Microsoft المصممة لتبسيط إنشاء تطبيقات المراسلة.
CDOSYS هو مكون مدمج في ASP. سنوضح لك كيفية استخدام هذا المكون لإرسال البريد الإلكتروني مع ASP.
ماذا عن CDONTs؟
توقفت Microsoft عن استخدام 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
%>
إرسال بريد إلكتروني نصي يحتوي على حقلي نسخة مخفية الوجهة ونسخة نسخة:
<%
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
%>