CDOSYSはASPの組み込みコンポーネントです。 このコンポーネントは、ASPで電子メールを送信するために使用されます。
CDOSYSでメールを送信します
CDO (Collaboration Data Objects)メッセージング・アプリケーションの作成を簡素化するために設計されているMicrosoftテクノロジです。
CDOSYSはASPの組み込みコンポーネントです。 私たちは、ASPで電子メールを送信するために、このコンポーネントを使用する方法を紹介します。
どうCDONTSは？
マイクロソフトは、あなたのASPアプリケーションでCDONTSを使用している場合は、コードを更新し、新しいCDOの技術を使用する必要がありますのWindows 2000、Windows XPおよびWindows 2003上のCDONTSの使用を中止しました。
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
%>WebサイトからWebページを送信する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
%>コンピュータ上のファイルからWebページを送信する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
%>