اليوم أقوم بتطوير رسائل المستخدم. يتم تخزين نسخة واحدة في قاعدة البيانات، ويجب إرسال النسخة الأخرى إلى صندوق بريد محدد، ولا أعرف ما إذا كان الخادم يدعمها، فسيتم إرسال معلومات الرسالة إلى البريد الإلكتروني. أولاً، يجب أن يكون هناك عبارة On Error Resume Next
ثم حاول استئناف مثال jmail:
خافت JMail
تعيين JMail=Server.CreateObject(JMail.Message)
قم بالحكم على المثيل إذا لم يتم تثبيت المكون بنجاح، فلن يتم إنشاء أي مثيل:
إذا كان JMail لا شيء إذن
الاستجابة.الكتابة غير مدعومة
آخر
الرد.اكتب الدعم
نهاية إذا
تتم معالجة المكونات الأخرى بنفس الطريقة، وهي بسيطة جدًا.
من الأفضل التعامل معه في الملف العمومي، لذلك لا داعي للقلق بشأنه عند استخدامه.
أفضل طريقة هي وضع إنشاء البريد الإلكتروني في جدول ثم التحدث عن إرساله.
انسخ رمز الكود كما يلي:
الدالة IsObjInstalled(strClassString)
على خطأ استئناف التالي
IsObjInstalled = خطأ
الخطأ = 0
DimxTestObj
تعيين xTestObj = Server.CreateObject(strClassString)
إذا كان 0 = خطأ، فإن IsObjInstalled = صحيح
تعيين xTestObj = لا شيء
الخطأ = 0
وظيفة النهاية
رمز الحكم:
إذا IsObjInstalled(JMail.Message)=صحيح ثم{
إذا IsObjInstalled(JMail.Message) = صحيح إذن
SendStat = Jmail(***@vevb.com، رسالة العميل من الإنترنت، <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>رسالة مستخدم موقع الويب</title></head><body>شخص الرسالة: &txtname&<br>الجنس: &xingbie&<br>موقع الويب الاستشاري: &txtweb&<br>معلومات الاتصال: &txttel&<br>محتوى الرسالة :&تابع ent&<br>عنوان IP:&ipaddress&<br>وقت الرسالة:&now()&<br><br>يتم إرسال هذا البريد الإلكتروني تلقائيًا بواسطة النظام، ولا يلزم الرد<!--Script Home www.vevb.com-- <br><br></body></html>،GB2312، نص/html)
نهاية إذا
}
وظيفة ارسال جيميل
انسخ رمز الكود كما يلي:
' ==================================================================================================
"يرسل jmail بريدًا إلكترونيًا
' ==================================================================================================
وظيفة Jmail (mailTo، mailTopic، mailBody، mailCharset، mailContentType)
'معلمات الإدخال:
' mailTo عنوان البريد الإلكتروني للمستلم
'mailTopic موضوع البريد
' mailBody نص البريد الإلكتروني (المحتوى)
مجموعة أحرف البريد mailCharset، مثل GB2312 أو US-ASCII
' تنسيق نص البريد الإلكتروني mailContentType، مثل نص/عادي أو نص/html
"قيمة الإرجاع:
' سيتم إرجاع السلسلة، OK بعد الإرسال الناجح، وسيتم إرجاع رسالة خطأ في حالة عدم النجاح.
'الاستخدام:
'1) قم بتعيين الثابت، أي المتغير الذي يبدأ بـ Const
'2) استخدم رمزًا مشابهًا لما يلي لإرسال رسالة
'خافت SendStat
'SendStat = Jmail([email protected]، اختبار Jmail، هذه رسالة اختبار!، GB2312، نص/html)
'الاستجابة.اكتب SendStat
'******************قم بتعيين الثوابت حسب الحاجة للبدء******************
خافت ConstFromNameCn،ConstFromNameEn،ConstFrom،ConstMailDomain،ConstMailServerUserName،ConstMailServerPassword
ConstFromNameCn = الاسم الصيني للمرسل في شبكة اليانصيب (يستخدم عند إرسال رسائل البريد الإلكتروني الصينية)، مثل "Zhang San"
ConstFromNameEn = bc5'الاسم الإنجليزي للمرسل (يستخدم عند إرسال رسائل البريد الإلكتروني باللغة الإنجليزية)، مثل 'zhangsan'
ConstFrom = [email protected] عنوان البريد الإلكتروني للمرسل، مثل "[email protected]"
ConstMailDomain = عنوان خادم smtp.163.com'smtp، مثل smtp.163.com
ConstMailServerUserName = [email protected] اسم تسجيل الدخول لصندوق بريد خادم smtp، مثل "zhangsan". تأكد من مطابقة عنوان البريد الإلكتروني للمرسل!
ConstMailServerPassword = كلمة مرور تسجيل الدخول لصندوق بريد خادم www.vevb.com'smtp
'******************قم بتعيين الثوابت حسب الحاجة للنهاية****************
'--------------------------------المحتوى التالي لا يحتاج إلى تغيير-------- -------- --------------- ----------
على خطأ استئناف التالي
خافت myJmail
اضبط myJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = False'Logging
myJmail.ISOEncodeHeaders = رؤوس False'Mail لا تستخدم ترميز ISO-8859-1
myJmail.ContentTransferEncoding = base64'تم ضبط تشفير البريد على base64
أولوية myJmail.AddHeader،3'أضف رأس البريد، لا تغيره!
myJmail.AddHeader MSMail-Priority,Normal'أضف رأس البريد، لا تغيره!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'أضف رأس البريد، لا تغيره!
myJmail.AddHeader MimeOLE,من إنتاج Microsoft MimeOLE V6.00.2800.1441'أضف رأس البريد، لا تغيره!
myJmail.Charset = mailCharset
myJmail.ContentType = mailContentType
إذا كان UCase(mailCharset) = GB2312 إذن
myJmail.FromName = ConstFromNameCn
آخر
myJmail.FromName = ConstFromNameEn
نهاية إذا
myJmail.From = ConstFrom
myJmail.Subject = mailTopic
myJmail.Body = mailBody
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
myJmail.Close
اضبط myJmail=لا شيء
إذا أخطأت ثم
Jmail=Err.Description
خطأ.واضح
آخر
جميل=حسنا
نهاية إذا
على خطأ انتقل إلى 0
وظيفة النهاية