فرستادن ایمیل با استفاده از CDOSYS در ASP

CDOSYS یک کامپوننت داخلی ASP است. این کامپوننت برای ارسال ایمیل از طریق ASP استفاده می‌شود.

ایمیل با استفاده از CDOSYS ارسال کنید

CDO (Collaboration Data Objects) یک تکنولوژی مایکروسافت است که برای ساده‌سازی ایجاد برنامه‌های ارتباطی طراحی شده است.

CDOSYS یک کامپوننت داخلی ASP است. ما به شما نشان خواهیم داد که چگونه از این کامپوننت برای ارسال ایمیل استفاده کنید.

CDONTs چطور است؟

مایکروسافت CDONTs را در ویندوز ۲۰۰۰، ویندوز XP و ویندوز ۲۰۰۳ حذف کرده است. اگر شما هنوز در برنامه‌های خود از CDONTs استفاده می‌کنید، باید کد خود را به‌روزرسانی کرده و از تکنولوژی جدید CDO استفاده کنید.

استفاده از نمونه CDOSYS

ایمیل ارسال کنید:

<%
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
%>

یک ایمیل متنی با فیلدهای Bcc و CC ارسال کنید:

<%
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.codew3c.com/asp/" 
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
%>

یک ایمیل متنی از طریق سرور دور ارسال کنید:

<%
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
آدرس IP یا نام سرور SMTP دور
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
پورت سرور
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>