<% 'BASP21を用いたメール送信の例です '　原作者　古口正巳　[koguchi@sf.airnet.ne.jp] 1999.2 '　サーバーにSMTPとBASP21がインストールしてある必要があります。 ' '　　このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。 '　　各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。 'BASP21に関する詳しい使用方法・入手は下記を参照して下さい 'http://www.hi-ho.ne.jp/babaq/ 'http://www.hi-ho.ne.jp/babaq/basp21.html 'Option Explicit Set bobj = Server.CreateObject("basp21") ' ASP sendheader "SEND MAIL TEST" svname = "park.coconet.ne.jp" ' SMTP サーバマシン名 parak.coconet.ne.jp以外では変更して下さい。 mailto = "古口さん" ' 宛先 TABを使用することに複数送れます mailfrom = "げろげろ" '差出し人 subj = "テスト" ' 件名 body = "添付ファイルを送信します" ' 本文 ' 添付ファイル　使用しない場合はfiles="" files = CGI_AppPath & "\TEST1.TXT" & CHR(9) & CGI_AppPath & "\TEST2.TXT" 'TABを使用することに複数送れます 'send CGI_AppPath & "\TEST1.TXT" & CHR(9) & CGI_AppPath & "\TEST2.TXT" & "
" 'PASS CHECK出力 rc = bobj.SendMail(svname,mailto,mailfrom, subj,body,files) if rc <> "" then ' エラーチェック send "送信エラーが発生しました。" send "エラーメッセッージは次のようです。" & "
" send rc else Send "送信は無事終了しました。" & "
" end if sendfooter %>