Wysyłanie e-maili za pomocą CDOSYS w ASP

CDOSYS is an integrated component in ASP. This component is used to send emails through ASP.

Sending emails using CDOSYS

CDO (Collaboration Data Objects) is a Microsoft technology designed to simplify the creation of communication programs.

CDOSYS is an integrated component in ASP. We will show you how to use this component to send emails.

How are CDONTs?

Microsoft has eliminated CDONTs in Windows 2000, Windows XP, and Windows 2003. If you are still using CDONTs in your applications, you need to update the code and use the new CDO technology.

Użycie instancji CDOSYS

Wysyłanie e-maila:

<%
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
ustaw myMail=nothing
%>

Wysyłanie e-maila tekstowego z polami Bcc i 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
ustaw myMail=nothing
%>

Wysyłanie e-maila 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
ustaw myMail=nothing
%>

Wysyłanie e-maila HTML z strony internetowej:

<%
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.codew3c.com/asp/" 
myMail.Send
ustaw myMail=nothing
%>

Wysyłanie e-maila HTML z pliku na komputerze:

<%
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
ustaw myMail=nothing
%>

Wysyłanie e-maila z załącznikiem:

<%
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
ustaw myMail=nothing
%>

Wysyłanie e-maila tekstowego za pomocą serwera zdalnego:

<%
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
IP lub nazwa serwera SMTP serwera zdalnego
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
ustaw myMail=nothing
%>