ASP がメールを送信する
CDOSYS は ASP の組み込みコンポーネントです。このコンポーネントは、ASP 経由で電子メールを送信するために使用されます。
CDOSYS で電子メールを送信
CDO (コラボレーション データ オブジェクト) は、通信アプリケーションの作成を簡素化するために設計された Microsoft テクノロジです。
CDOSYS は ASP の組み込みコンポーネントです。このコンポーネントを ASP で使用して電子メールを送信する方法を説明します。
CDONT についてはどうですか?
Microsoft は、Windows 2000、Windows XP、および Windows 2003 の CDONT を非推奨にしました。 ASP アプリケーションで CDONT をすでに使用している場合は、コードを更新して新しい CDO テクノロジを使用する必要があります。
CDOSYS インスタンスを使用する
テキストメールを送信する:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信する"
myMail.From="mymail@ mydomain. com"
myMail.To="someone@somedomain.com"
myMail.TextBody="これはメッセージです。"
myMail.Send
set myMail=nothing
%>
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信する"
myMail.From="mymail@ mydomain. com"
myMail.To="someone@somedomain.com"
myMail.TextBody="これはメッセージです。"
myMail.Send
set myMail=nothing
%>
Bcc および CC で送信するテキストメールフィールド:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From="mymail@mydomain.com"
myMail. @somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="これはメッセージです。"
myMail.Send
set myMail=nothing
%>
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From="mymail@mydomain.com"
myMail. @somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="これはメッセージです。"
myMail.Send
set myMail=nothing
%>
HTML メールを送信:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From= "mymail@mydomain. com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>これはメッセージです。</h1>"
myMail.Send
set myMail=nothing
%>
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From= "mymail@mydomain. com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>これはメッセージです。</h1>"
myMail.Send
set myMail=nothing
%>
Web サイト上の Web ページのコンテンツを含む HTML メールを送信します:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From= "mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3cschool.cc/asp/"
myMail.Send
set myMail=nothing
%>
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From= "mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3cschool.cc/asp/"
myMail.Send
set myMail=nothing
%>
コンピューター上のファイルから Web ページのコンテンツを含む HTML メールを送信します:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=何もありません
%>
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=何もありません
%>
添付ファイル付きのテキスト メールを送信します:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From="mymail@ mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="これはメッセージです。"
myMail.AddAttachment "c:mydocumentstest.txt"
myMail.Send
set myMail=nothing
% >
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From="mymail@ mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="これはメッセージです。"
myMail.AddAttachment "c:mydocumentstest.txt"
myMail.Send
set myMail=nothing
% >
リモート サーバーを使用してテキスト メールを送信します:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From= mymail@mydomain.com "
myMail.To="someone@somedomain.com"
myMail.TextBody="これはメッセージです。"
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
%>
Set myMail=CreateObject("CDO.Message")
myMail.Subject="CDO でメールを送信"
myMail.From= mymail@mydomain.com "
myMail.To="someone@somedomain.com"
myMail.TextBody="これはメッセージです。"
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
%>
