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