با استفاده از آبجکت CDONTS که يکي از کامپوننتهاي ويندوز سرور 2000 و ان تي مي باشد به راحتي مي توان در اسکريپتهاي سمت سرور
ايميل ارسال کرد.
طريقه استفاده به شکل زير مي باشد

<%
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
%>

مقادير قابل تنظيم براي اين آبجکت به شرح جدول زير مي باشد.

From يک مقدار رشته اي که آدرس پست الکترونيکي فرستنده را مشخص مي کند
(به طور مثال [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] )
To يک مقدار رشته اي که آدرس پست الکترونيکي گيرنده را مشخص مي کند.
(به طور مثال, [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] )
آدرس گيرنده هاي مختلف با استفاده از علامت روبرو امکان پذير ميباشد ";"
Subject عنوان پيام
Body متن پيام
Cc آدرس پست الکترونيکي شخصي که قرار است يک کپي از نامه را دريافت کند
Bcc آدرس الکترونيکي شخصي که قرار است يک کپي از نامه را دريافت کند ( بدون اطلاع دريافت کننده نامه)
Importance يک مقدار عددي که نشان دهنده در جه اهميت نامه مي باشد
(براي مثال خيلي مهم , مهم , عادي )
BodyFormat يک مقدار عددي که نشان دهنده فرمت اطلاعات متن نامه مي باشد
ObjMail.BodyFormat = 0 (HTML format)
ObjMail.BodyFormat = 1 (متن عادي)
MailFormat يک مقدار عددي که نشان دهنده فرمت اطلاعات نامه مي باشد
ObjMail.MailFormat = 0 (Mime format)
ObjMail.MailFormat = 1 (متن عادي)




متودهاي اين آبجکت

AttachFile اين متود يک فايل را به نامه پيوست مي کند
AttachURL اين متود آدرس فايل پيوست شده را تخصيص مي دهد
Send اين متود نامه را ارسال مي کند
بعد از ارسال ايميل مقادير در حافظه باقي مي ماند و شما بايد حافظه را خالي کنيد. همچنين براي ارسال يک ايميل جديد بايد يک آبجکت جديد
ايجاد کرده و از آن استفاده کنيد. کد زير نحوه استفاده از اين آبجکت را در asp نشان مي دهد.

<%
Option Explicit

Dim objNewMail

' ابتدا يک آبجکت از نوع cdonts ايجاد مي کنيم
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

' بعد از ايجاد آبجکت ما بايد مقادير مربوط به آن را تنظيم کنيم

objNewMail.From = "webmaster@iran.com"
objNewMail.To = "test@yahoo.com"

objNewMail.Subject = "اين يک ايميل تستي است"
objNewMail.Body = "اين متن نامه است"
objNewMail.Send

' بعد از ارسال ايميل با استفاده از کد زير فضاي حافظه را خالي مي کنيم

Set objNewMail = Nothing

Response.Write "ايميل ارسال شد"

%>


موفق و پيروز باشيد