ASPでCDOSYSを使用して電子メールを送信する

CDOSYSはASP内蔵コンポーネントです。このコンポーネントはASPを通じてメールを送信するために使用されます。

CDOSYSを使用してメールを送信する

CDO（コラボレーションデータオブジェクト）は、通信プログラムの作成を簡素化するためのマイクロソフトの技術です。

CDOSYSはASP内蔵コンポーネントです。このコンポーネントを使用してメールを送信する方法をお見せします。

CDONTsはどうですか？

マイクロソフトはWindows 2000、Windows XPおよびWindows 2003でCDONTsを廃止しました。アプリケーションでCDONTsを使用している場合は、コードを更新し、新しいCDO技術を使用する必要があります。

CDOSYS インスタンスを使用

メールを送信：

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

Bcc と 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
set myMail=nothing
%>

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

ウェブサイトからのウェブページを送信する HTML メールを送信：

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

コンピュータ内のファイルからのウェブページを送信する HTML メールを送信：

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

添付ファイル付きのメールを送信：

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

リモートサーバーを使用してテキストメールを送信：

<%
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
「リモート SMTP サーバーの IP または名前」
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
%>