Последние учебники веб-разработки
×

ASP Руководство

ASP ГЛАВНАЯ ASP Введение ASP устанавливать ASP Синтаксис ASP переменные ASP процедуры ASP формы ASP Cookies ASP сессия ASP заявка ASP #включают ASP Global.asa ASP Отправить по электронной почте

VBScript Руководство

VB ГЛАВНАЯ VB переменные VB процедуры VB условный VB перекручивание VB Примеры VB функции VB Ключевые слова

ASP Объекты

ASP отклик ASP Запрос ASP заявка ASP сессия ASP сервер ASP Ошибка ASP Файловая система ASP TextStream ASP Водить машину ASP файл ASP папка ASP Словарь ASP AdRotator ASP BrowserCap ASP Содержание Linking ASP Содержание ротатор ASP Быстрый Ref

ADO Руководство

ADO вступление ADO соединение ADO Recordset ADO дисплей ADO запрос ADO Сортировать ADO Добавить ADO Редактировать ADO Удалить ADO демонстрация ADO Ускорить

ADO Объекты

ADO команда ADO подключение ADO Ошибка ADO поле ADO параметр ADO Имущество ADO запись ADO Recordset ADO Поток ADO Типы данных

ASP and AJAX

AJAX вступление AJAX ASP AJAX База данных

ASP Примеры

ASP Примеры ASP викторина


 

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

Отправка текстового электронной почты с ОЦК и 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.w3ii.com/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:\mydocuments\test.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
%>