|
ارسال ايميل با استفاده از CDOSYS
CDO يا همان (Collaboration Data Objects)
روشي براي ارسال پيام هاي ايميل ميباشد كه مايكروسافت در برنامه هاي خود تعبيه
نموده است.
CDOSYS كامپوننتي است كه به ضميمه نرم افزار
ASP جهت ارسال پيامها تعبيه شده، در زير نحوه استفاده از اين
ابزار جهت ارسال ايميل آورده ميشود.
وضعيت CDONTs جهت ارسال پيام
شركت مايكروسافت ديگر از سيستم CDONTs
بر روي سيستم عامل هاي خود شامل Windows 2000،
Windos XP و Wondows 2003 پشتيباني
نمينمايد، بنابر اين درصورتي كه شما از اين ابزار در كد هاي ASP
خود استفاده مينموده ايد بهتر است هرچه زودتر نسبت به تغيير آن و استفاده از
تكنولوژي CDO اقدام نماييد.
نحوه ارسال ايميل با استفاده از تكنولوژي
CDO
ارسال ايميل با استفاده از ابزار CDO
بسيار ساده ميباشد، بدين منظور ابتدا شما بايد يك شي از كامپوننت CDO
ايجاد نماييد:
| Set myMail =
CreateObject("CDO.Message") |
حال با تعيين فرستنده، گيرنده، عنوان ايميل، متن پيام
و ساير پارامترهاي موجود ميتوانيد نسبت به ارسال ايميل اقدام نماييد.
متن پيام ميتواند به فرمت Plain Text
و يا HTML باشد، همچنين ميتوانيد به ايميل خود فايل نيز
ضميمه (Attach) نماييد.
مثالهايي براي ارسال ايميل با استفاده از كامپوننت
CDO
ارسال پيام متني
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%> |
ارسال پيام متني شامل CC
و Bcc
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%> |
ارسال پيام داراي كدهاي HTML
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%> |
ارسال پيام داراي كدهاي HTML -
ارسال يك صفحه از يك وب سايت
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.Irunique.com.com"
myMail.Send
set myMail=nothing
%> |
ارسال پيام داراي كدهاي HTML -
ارسال يك صفحه از پيش طراحي شده موجود در سرور
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%> |
ارسال پيام متني به همراه فايل ضميمه
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%> |
ارسال پيام متني با استفاده از يك سرور
راه دور (Remote Server)
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%> |
منابع:
http://www.w3schools.com/asp/asp_send_email.asp
http://www.paulsadowski.com/WSH/cdo.htm
توسط: علي زمان
Ali.Zaman@yahoo.com
1385-1-7
|
