CDOSYS является встроенным компонентом в ASP. Этот компонент используется для отправки сообщений электронной почты с ASP.
Отправка электронной почты с CDOSYS
CDO (Collaboration Data Objects) является технология Microsoft , которая предназначена для упрощения создания приложений обмена сообщениями.
CDOSYS является встроенным компонентом в ASP. Мы покажем вам, как использовать этот компонент для отправки электронной почты с ASP.
Как насчет CDONTS?
Microsoft прекратила использование CDONTS на Windows 2000, Windows XP и Windows 2003. Если вы использовали CDONTS в приложениях ASP, вы должны обновить код и использовать новую технологию 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
%>Отправка текстового электронной почты с ОЦК и 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.w3ii.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
'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
%>