مشاركة الكود لإرسال رسائل البريد الإلكتروني بانتظام في ASP

يتطلب هذا المشروع الآن تسليم البريد الإلكتروني المحدد باستخدام ASP ، ويقول الكثير من الناس أن ASP ليس لديه مثل هذه الوظيفة.

في الواقع ، لقد شرحت ذلك بالتفصيل في مقال سابق ، ولكن هذه مهمة محددة ، والفكرة الأساسية هي نفسها.

المرجع: طرق لتنفيذ مهام التوقيت في ASP

هنا نستخدم مكون Jmail للقيام بذلك. محتوى البريد الإلكتروني هو صفحة ويب واحدة ويمكن تخصيصها بحرية.

دعونا نلقي نظرة على رمز إرسال البريد الموقوت:

نسخة الكود كما يلي:

وظيفة gethttppage (url)

dimpjxml

SET OBJXML = createObject ("msxml2.serverxmlhttp.3.0") "استدعاء مكون XMLHTTP لاختبار ما إذا كانت المساحة تدعم XMLHTTP

OBJXML.OPEN "GET" ، url ، وسائل خاطئة خاطئة "للحصول على رمز الويب بطريقة متزامنة ، فهم ما هو التزامن؟ ما هو غير متزامن؟

OBJXML.SEND () 'إرسال

gethttppage = bbytestobstr (OBJXML.ResponseBody) 'إرجاع المعلومات ، واستخدم الوظيفة لتحديد الترميز.

تعيين OBJXML = لا شيء

وظيفة نهاية

وظيفة bbytestobstr (الجسم)

قاتمة objstream

تعيين OBJStream = createObject ("Adodb.stream") '// استدعاء مكون ADODB.Stream

objstream.type = 1

objstream.mode = 3

objstream.Open

objstream.write الجسم

objstream.position = 0

objstream.type = 2

objstream.charset = "GB2312"

"قم بتحويل الترميز الافتراضي الأصلي UTF-8 إلى ترميز GB2312 ، وإلا فسوف تحصل على رمز مشوه عن طريق الاتصال مباشرة بصفحة ويب بأحرف صينية مع XMLHTTP.

bbytestobstr = objstream.readtext

objstream.close

اضبط OBJStream = لا شيء

وظيفة نهاية

Sub SendAction (الموضوع ، MailAddress ، Tomail ، المرسل ، المحتوى ، Fromail ، Fromer ، اسم المستخدم ، كلمة المرور)

Set Ojmail = createObject ("jmail.message")

ojmail.logging = false

ojmail.silent = صحيح

Ojmail.Priority = 3

ojmail.fromName = فروم

ojmail.from = fromeMail

Ojmail.charset = "GB2312"

Ojmail.mailserverusername = اسم المستخدم

ojmail.mailserverpassword = كلمة المرور

Ojmail.ContentTransferencoding = "BASE64"

Ojmail.htmlbody = محتوى البريد "محتوى البريد

ojmail.body = content '"رسائل البريد الإلكتروني الخاصة بنا بتنسيق HTML ، لكن برنامج عرض البريد الإلكتروني الخاص بك قد لا يدعمهم"

Ojmail.addrecipient عنوان المستلم

Ojmail.subject = عنوان "الموضوع"

Ojmail.send (MailAddress)

نهاية الفرعية

موضوع خافت ، MailAddress ، Toemail ، المرسل ، FromeMail ، Fromer ، كلمة المرور ، Ojmail ، أسماء المستخدمين ، Tomail