مثال على وظيفة لإرسال رسائل البريد الإلكتروني مع CDO في ASP

آسيا والمحيط الهادئ / by admin / July 04, 2021

لقد أنشأت هذه الوظيفة لإرسال رسائل بريد إلكتروني باستمرار من نماذج صفحاتي في ASP ، لذلك لا يتعين علي سوى إنشاء ملف وإدراجه لإرسال رسائل البريد الإلكتروني في ASP.

وظيفة إرسال البريد (مرسل fname ، مرسل femail ، fmessage ، femailpara ، fasunto ، fadjoint)
خطأ في الصفحة، إذهب للتالي

أرسل بريدًا نصيًا باستخدام المصادقة على خادم SMTP

Const cdoSendUsingPickup = 1 'أرسل رسالة باستخدام خدمة التقاط الدليل المحلي SMTP
Const cdoSendUsingPort = 2 'إرسال باستخدام الشبكة ، SMTP عبر الشبكة

Const cdoAnonymous = 0 'عدم المصادقة
Const cdoBasic = 1 'مصادقة أساسية (نص عادي)
Const cdoNTLM = 2 'NTLM

اضبط objMessage = CreateObject ("CDO.Message")
objMessage. الموضوع = المشكلة
objMessage. من = f اسم المرسل & ""
objMessage. إلى = فيميلبارا
objMessage. نسخة مخفية الوجهة = fbcc
objMessage. TextBody = fmessage
إذا fadjoint <> "" ثم
objMessage. AddAttachment fadjoint
إنهاء إذا

'== تم تكوين خادم SMTP هنا.

objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

اسم أو IP لخادم SMTP البعيد
objMessage. إعدادات. مجالات. العنصر _
("

instagram story viewer

https://schemas.microsoft.com/cdo/configuration/smtpserver") =" مضيف محلي "

نوع المصادقة ، لا شيء ، أساسي (بتشفير Base64) ، NTLM
objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

"معرف المستخدم الخاص بك على خادم SMTP
objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" USER "

كلمة المرور الخاصة بك على خادم SMTP
objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" كلمة المرور "

منفذ الخادم (عادة 25)
objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

استخدام SSL للاتصال (خطأ أو صحيح)
objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = خطأ

"مهلة بالثواني ، الحد الأقصى للوقت الذي سيحاول فيه CDO إنشاء اتصال مع SMTP
objMessage. إعدادات. مجالات. العنصر _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. إعدادات. مجالات. تحديث

'== إنهاء تكوين SMTP ==

objMessage. إرسال

SendEmail = femailpara & "،"

وظيفة النهاية
%>

سحابة الكلمات الدلالية

آسيا والمحيط الهادئ

تقييم

الآراء

تعليقات