出来るのだASP Q&A掲示板(過去LOG)  訪問数 52046 昨日 889 今日 776
    【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者

Windows2003でCDOSYSの使い方   けいこさん [2003/11/22 19:48:51] [3825]
  Re:Windows2003でCDOSYSの使い方   YasNet(管理人)さん [2003/11/24 9:31:43] [3827]
    Re:Windows2003でCDOSYSの使い方   けいこさん [2003/11/25 14:33:49] [3828]
      Re:Windows2003でCDOSYSの使い方   YasNet(管理人)さん [2003/11/26 8:43:51] [3830]

[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
Program By YasNet