ارسال
ايميل با کمک ASP
استفاده از آبجکت CDONTS که يکي از کامپوننتهاي ويندوز سرور 2000 و
ان تي مي باشد
به راحتي مي توان در اسکريپتهاي سمت سرور ايميل ارسال کرد.
طريقه استفاده به
شکل زير مي باشد :
<%
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
%>
مقادير قابل تنظيم براي اين آبجکت به شرح
جدول زير مي باشد :
|
From
|
يک مقدار رشته اي
که آدرس پست الکترونيکي فرستنده را مشخص مي کند
به طور مثال
Me@somewhere.com))
|
|
To
|
يک مقدار رشته اي
که آدرس پست الکترونيکي گيرنده را مشخص مي کند.
به طور مثال
someone@somewhere.com))
آدرس گيرنده هاي مختلف با استفاده از علامت روبرو امکان پذير ميباشد ";"
|
|
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
%>
بازگشت به فهرست
بازگشت به صفحه نخست