ASPでメール送信時エラーが出る
こんにちは ASPでbasp21を使ってメールを送るように作っているのですが
<%@ LANGUAGE = VBScript%>
<%
Dim strServer 'SMTPサーバ
Dim strTo '宛先
Dim strFrom '送信元
Dim strSub 'メール標題
Dim strBody 'メール本文
Dim strFile '添付ファイル
Dim result '戻り値
strServer = "abc.com"
strTo = "efg@abc.com"
strFrom = "mail@abc.com" & vbTab & "abc:hogehoge"
strSub = "件名"
strBody = "本文"
strFile = ""
set obj=server.createobject("basp21")
result = obj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile)
If result <> "" Then
Response.Write("メール送信エラー :" & result)
Response.End
End If
と言う感じで 何の変哲もない内容なんですが
実行すると
Active Server Pages, ASP 0115 (0x80004005)
外部オブジェクトでトラップできるエラー (C06D007E) が発生しました。スクリプトの実行を続行できません。
とでます
色々調べて 権限がないのかとも思い再セットして
DLLの確認もしましたが同じです
サーバーアドレスも:25を付けたりしましたが
同じです。
ただ、
strServer = "abc.com"
を 空白("")にすると
ちゃんとエラーで
メール送信エラー :Server name invalid
と出るのです
と言う事は オブジェクトの作成はできているの?
と言う感じで、どうもよく分かりません。
ちなみに 他のページで画像のアップロードに
FormSaveAs を使っていますが いたって快適に動きます
サーバーはIISで win2000でテストしています
wwwサーバーはONにしていますが
mailサーバーはOFFにしています
これは関係あるのでしょうか?
自分のマシンのmailサーバーは使わないからOFFで良いかなと
思ってそうしています。
どういうポイントが悪いのかよく分からないので
どなたか教えて頂けたらと思います
よろしくお願いします。
お礼
ありがとうございました。 やっぱり重傷気味ですか・・・ どうも私は破損したまま使い続けてどんどん重傷にするタイプのようです。 早速アンインストールをしました。 今はIE4です。これからIE5を再インストールします。