ASP Использование CDOSYS Отправка электронной почты

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="[email protected]"
myMail.To="[email protected]"
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="[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
'Имя или 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
%>

Другие расширения