هذا هو الكود
ومافائدة السطر الاول الخاص بالبفر في مثل هذا الكود
'برنامج ارسال البريد عن طريق ASP
Response.Buffer = True
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'بريد المرسل
objCDOMail.From = "info@arabteam.nicmatic.com"
'بريد المرسل اليه
objCDOMail.To = "badwisoft@arabteam.nicmatic.com"
'نسخه الى
objCDOMail.Cc = ""
'نسخه مخفية الى
objCDOMail.Bcc = ""
'عنوان الرسالة
objCDOMail.Subject = "عنوان الرسالة"
'تهيئة نوع حسم الرسالة هل نص او صيغة ترميز النص
'(0=HTML 1=Text)
objCDOMail.BodyFormat = 1
'تهيئة نوع حسم الرسالة هل نص او صيغة ترميز النص
'(0=HTML 1=Text)
objCDOMail.MailFormat = 1
'الرسالة
objCDOMail.Body = "هنا يتم كتابة الرسالة"
'مدى اهمية الرسالة
'I(0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'ارسال البردي
objCDOMail.Send
'انهاء الجلسة
Set objCDOMail = Nothing