في الواقع، يمكن لـ ASP القيام بأشياء كثيرة، لكن الناس لا يعرفون كيفية استخدامها. توفر Microsoft الكثير من المكونات الجاهزة والمفيدة لـ ASP، لكن لا أحد يعرف عن هذه المكونات، مثل استخدام CDO.Message لإرسال رسائل البريد الإلكتروني.
ما هو CDO.Message؟ لإرسال رسائل البريد الإلكتروني ضمن winnt وwin2k، تحتاج إلى استخدام CDONTS.NewMail. يجب تسجيل مكون CDONTS.NewMail، وهو أمر بسيط للغاية، ما عليك سوى تشغيل سطر الأوامر regsvr32 Cdonts.dll على الخادم والتأكيد في النافذة المنبثقة مربع الحوار استخدم CDONTS تحتاج خدمة NewMail أيضًا إلى تثبيت SMTP الذي يأتي مع iis. مع نظام التشغيل Windows 2003، لم يعد النظام مزودًا بملف Cdonts.dll، ولم يتبق سوى ملف مماثل cdosys.dll. بالطبع، هذا الملف متوفر أيضًا في win2k (يتطلب تسجيل المكونات)، ولكن ما هو الجيد في 2003؟ لا يلزم تسجيل هذا المكون يدويًا، فقد قام النظام بتسجيله تلقائيًا. الآن دعونا نرى كيفية استخدام هذا المكون.
<%
سم خافت
تعيين cm=Server.CreateObject("CDO.Message")
"إنشاء كائن."
سم.من = " من@test.com "
"قم بتعيين عنوان البريد الإلكتروني للمرسل
cm.To = " [email protected] "
"قم بتعيين عنوان البريد الإلكتروني للمستلم."
cm.Subject="لقد عثرت على موقع ويب يسمح لك بالاشتراك في خدمة RSS عبر الإنترنت. لا داعي لتثبيت أي برنامج في المستقبل."
"قم بتعيين موضوع البريد الإلكتروني."
'cm.TextBody=" http://www.downcodes.com/rss/ "
'يستخدم ما ورد أعلاه تنسيقًا نصيًا عاديًا لإرسال رسائل البريد الإلكتروني، ويمكن أن يكون نصًا فقط ولا يمكنه دعم HTML، لذلك لا يتم استخدامه هنا
cm.HtmlBody="قارئ موجزات RSS عبر الإنترنت هو نظام لقراءة أخبار RSS عبر الإنترنت."&_
"ليست هناك حاجة للتنزيل والتثبيت. طالما قمت بالتسجيل، يمكنك الحصول على اشتراك RSS عبر الإنترنت ونظام تجميع الأخبار الذي لا يقل قوة عن البرنامج."&_
"بغض النظر عن مكان وجودك، طالما أن لديك إمكانية الوصول إلى الإنترنت، يمكنك قراءة اشتراكاتك المفضلة."&_
"أسرع وقم بالتسجيل: <a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"
'ما ورد أعلاه هو نص HTML الذي قمت بإنشائه، تبدو رسائل البريد الإلكتروني التي ترسلها أفضل بكثير من تلك التي تحتوي على نص فقط. لا تقل أنك لا تعرف html'cm.AddAttachment
Server.MapPath("test.zip")
'إذا كنت بحاجة إلى إرسال مرفق، استخدم الطريقة المذكورة أعلاه لإرفاق الملف.
سم.إرسال
"أخيرًا، بالطبع، قم بتنفيذ الإرسال."
تعيين سم = لا شيء
'حرر الكائن فورًا بعد إرساله بنجاح
Response.Write("أرسل البريد الإلكتروني بنجاح.")
%>