出来るのだASP Q&A掲示板(過去LOG)
訪問数 52046
昨日 889
今日 776 【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。 |
![]() ![]() ![]() ![]() ![]() |
![]() ![]() ![]() |
![]() ![]() ![]() |
[3825] Windows2003でCDOSYSの使い方 |
投稿者:けいこさん 2003/11/22 19:48:51 |
こんにちは。 今までwindowsNT4.0で動いていたaspスクリプトを windows2003上では、動きません。 メールを送信するスクリプトなのですが、今まではCDONTSを 使用していました。windows2003はCODSYSに変更して動かしています。 なんのエラーもでません。 SMTPの設定がわるいのか、なにが悪いのか、よくわかりません。 どのへんから調べたらよいでしょうか? よろしくお願いします。 <%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit On Error Resume Next '変数宣言 Dim objNewMail Dim strFrom Dim strTo Dim strCc Dim strSubject Dim strBody 'メールオブジェクトの初期化 Set objNewMail = Server.CreateObject("CDOSYS.NewMail") '宛先編集 strFrom = Request("mailadr") strTo = "keiko99@excite.co.jp" strSubject = "申込" strBody = "" メール送信設定 objNewMail.from = strFrom objNewMail.To = strTo objNewMail.Cc = strFrom objNewMail.Subject = strSubject objNewMail.Body = strBody 'メール送信処理 objNewMail.Send %> |
[3827] Re:Windows2003でCDOSYSの使い方 |
投稿者:YasNet(管理人)さん 2003/11/24 9:31:43 |
こんにちは YasNet(管理人)です。 まず、関係ないと思いますが エラーが出ないのは On Error Resume Next を指定してあるからでは・・・ 一度はずしてみては・・・って関係ないよなぁ〜きっと それでは 失礼致します。 > こんにちは。 > > 今までwindowsNT4.0で動いていたaspスクリプトを > windows2003上では、動きません。 > > メールを送信するスクリプトなのですが、今まではCDONTSを > 使用していました。windows2003はCODSYSに変更して動かしています。 > なんのエラーもでません。 > SMTPの設定がわるいのか、なにが悪いのか、よくわかりません。 > どのへんから調べたらよいでしょうか? > > よろしくお願いします。 > > <%@ LANGUAGE="VBSCRIPT" %> > <% > Option Explicit > On Error Resume Next > > '変数宣言 > Dim objNewMail > Dim strFrom > Dim strTo > Dim strCc > Dim strSubject > Dim strBody > > 'メールオブジェクトの初期化 > Set objNewMail = Server.CreateObject("CDOSYS.NewMail") > > '宛先編集 > strFrom = Request("mailadr") > strTo = "keiko99@excite.co.jp" > strSubject = "申込" > strBody = "" > メール送信設定 > objNewMail.from = strFrom > objNewMail.To = strTo > objNewMail.Cc = strFrom > objNewMail.Subject = strSubject > objNewMail.Body = strBody > > 'メール送信処理 > objNewMail.Send > %> > |
[3828] Re:Windows2003でCDOSYSの使い方 |
投稿者:けいこさん 2003/11/25 14:33:49 |
はずして、みました。 HTTP 500 - 内部サーバー エラー Internet Explorer というエラーになります。 > こんにちは YasNet(管理人)です。 > > まず、関係ないと思いますが > エラーが出ないのは > On Error Resume Next > を指定してあるからでは・・・ > > 一度はずしてみては・・・って関係ないよなぁ〜きっと > > それでは 失礼致します。 > > > こんにちは。 > > > > 今までwindowsNT4.0で動いていたaspスクリプトを > > windows2003上では、動きません。 > > > > メールを送信するスクリプトなのですが、今まではCDONTSを > > 使用していました。windows2003はCODSYSに変更して動かしています。 > > なんのエラーもでません。 > > SMTPの設定がわるいのか、なにが悪いのか、よくわかりません。 > > どのへんから調べたらよいでしょうか? > > > > よろしくお願いします。 > > > > <%@ LANGUAGE="VBSCRIPT" %> > > <% > > Option Explicit > > On Error Resume Next > > > > '変数宣言 > > Dim objNewMail > > Dim strFrom > > Dim strTo > > Dim strCc > > Dim strSubject > > Dim strBody > > > > 'メールオブジェクトの初期化 > > Set objNewMail = Server.CreateObject("CDOSYS.NewMail") > > > > '宛先編集 > > strFrom = Request("mailadr") > > strTo = "keiko99@excite.co.jp" > > strSubject = "申込" > > strBody = "" > > メール送信設定 > > objNewMail.from = strFrom > > objNewMail.To = strTo > > objNewMail.Cc = strFrom > > objNewMail.Subject = strSubject > > objNewMail.Body = strBody > > > > 'メール送信処理 > > objNewMail.Send > > %> > > |
[3830] Re:Windows2003でCDOSYSの使い方 |
投稿者:YasNet(管理人)さん 2003/11/26 8:43:51 |
こんにちは YasNet(管理人)です。 他に、何か情報は出力されていませんでしたか > HTTP 500 - 内部サーバー エラー > Internet Explorer の下辺りに・・・ それでは 失礼致します。 > はずして、みました。 > > HTTP 500 - 内部サーバー エラー > Internet Explorer > > というエラーになります。 > > > > こんにちは YasNet(管理人)です。 > > > > まず、関係ないと思いますが > > エラーが出ないのは > > On Error Resume Next > > を指定してあるからでは・・・ > > > > 一度はずしてみては・・・って関係ないよなぁ〜きっと > > > > それでは 失礼致します。 > > > > > こんにちは。 > > > > > > 今までwindowsNT4.0で動いていたaspスクリプトを > > > windows2003上では、動きません。 > > > > > > メールを送信するスクリプトなのですが、今まではCDONTSを > > > 使用していました。windows2003はCODSYSに変更して動かしています。 > > > なんのエラーもでません。 > > > SMTPの設定がわるいのか、なにが悪いのか、よくわかりません。 > > > どのへんから調べたらよいでしょうか? > > > > > > よろしくお願いします。 > > > > > > <%@ LANGUAGE="VBSCRIPT" %> > > > <% > > > Option Explicit > > > On Error Resume Next > > > > > > '変数宣言 > > > Dim objNewMail > > > Dim strFrom > > > Dim strTo > > > Dim strCc > > > Dim strSubject > > > Dim strBody > > > > > > 'メールオブジェクトの初期化 > > > Set objNewMail = Server.CreateObject("CDOSYS.NewMail") > > > > > > '宛先編集 > > > strFrom = Request("mailadr") > > > strTo = "keiko99@excite.co.jp" > > > strSubject = "申込" > > > strBody = "" > > > メール送信設定 > > > objNewMail.from = strFrom > > > objNewMail.To = strTo > > > objNewMail.Cc = strFrom > > > objNewMail.Subject = strSubject > > > objNewMail.Body = strBody > > > > > > 'メール送信処理 > > > objNewMail.Send > > > %> > > > |
TreeBBS For ASP V.0.1.3 |