خبراء ال asp

أولا :

dim name,email,subject,message

هنا تم تعريف المتغيرات التي ستستخدم في البرنامج ، حيث تستخدم dim للإعلان عن المتغيرات .

ثانيا :

name =request.Form("name")

email =request.Form("email")

subject =request.Form("subject")

content =request.Form("message")

هنا تم استقبال القيم الآتية من النموذج وتخزينها في المتغيرات

حيث يوجد هناك نموذج به أربعة حقول هي :

name-email-subject-content

عند الضغط على زر submit سيتم إرسال هذه القيم وحفظها في أسماء المتغيرات الجديدة .

ثالثا :

Set iMsg = CreateObject("CDO.Message")

Dim iConf

Set iConf = CreateObject("CDO.Configuration")

Dim Flds

Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

Flds( _

"http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") _

= "c:\inetpub\mailroot\pickup"

Flds

سيتم إنشاء وتهيئة كائن إرسال البريد وهو CDO ، حيث يتم إنشاء أي كائن باستخدام الأمر CreateObject " يتعامل الـASP مع مجموعة من الكائنات احدها هو الـCDO "

رابعاً :

iMsg.To = name

iMsg.From = email

iMsg.Subject = subject

iMsg.TextBody =message

iMsg.Send

هنا سيتم استخدام القيم التي تم إرسالها من النموذج وحفظها في المتغيرات للمراسلة

.to : تعني الجهة التي ستم إرسال الرسالة لها ، ويجب أن يكون عنوان بريدي .

.email : عنوان الجهة المرسلة ، وهي أيضا عنوان بريدي .

.subject : موضوع الرسالة .

.message : نص الرسالة .

والله أعلم

أنس عمار