ASP использует CDOSYS для отправки сообщений электронной почты
CDOSYS является встроенным компонентом в ASP. Этот компонент используется для отправки сообщений электронной почты с помощью ASP.
Используйте CDOSYS для отправки по электронной почте
CDO (Collaboration Data Objects) является технология Microsoft, предназначенная для упрощения создания коммуникационных приложений.
CDOSYS является встроенным компонентом в ASP. Мы покажем вам, как использовать компонент ASP для отправки электронной почты.
CDONTS как?
Microsoft имеет Windows 2000, Windows XP и Windows 2003 устраняются CDONTS. Если вы уже используете CDONTS приложение ASP, вам необходимо обновить свой код, и использовать новую технологию CDO.
Пример CDOSYS
Отправить по электронной почте текст:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
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="[email protected]"
myMail.To="[email protected]"
myMail.Bcc="[email protected]"
myMail.Cc="[email protected]"
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="[email protected]"
myMail.To="[email protected]"
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="[email protected]"
myMail.To="[email protected]"
myMail.CreateMHTMLBody "http://www.w3cschool.cc/asp/"
myMail.Send
set myMail=nothing
%>
Отправить содержание страницы на вашем компьютере в виде файла в HTML электронной почты:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
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="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:mydocumentstest.txt"
myMail.Send
set myMail=nothing
%>
Использовать удаленный сервер для отправки электронной почты текст:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
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
%>