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