うぇぶ会議室の部屋4への投稿
記事番号00201へのフォローを投稿します。
お名前(ペンネイムで結構ですが必要です)
(
ブラウザに個人情報を覚えさせない)
電子メイルアドレス(必要です)
題名(必要です)
Home Page がある方はリンク希望先の URL を記載して下さい
会議室に載せたい内容を以下へお書き下さい (
HTMLを解釈せずにそのまま表示)
5月24日に、とけおんさんは書きました。 >とけおんです。 >いしどうさん、にあさん、TADさん ご教授ありがとうございました。 > >いしどうさんレス情報から、早速 WinNT、PWS上での >メールツールを探し。TADさん 提供の<a href="http://member.nifty.ne.jp/hippo2000/perltips/perlmail.htm#2.">HP(河馬屋さん)</a> >にたどり着き、インストールしました。 >(インストールは<a href="http://www.hi-ho.ne.jp/babaq/basp21.html">こちら</a>から > 簡単に出来ました。) >試しに、河馬屋さんのサンプルとおりのスクリプトをarticle.cgi中post_articleの > open(NEW, ">$FORUMPATH/new_arrival") && close(NEW); >の直前に組み込みました。 ><font color="#000080"> >use Win32::OLE; >$oBasp = Win32::OLE->new('basp21'); #Basp21オブジェクトの作成 >#メールの送信 >$oBasp->SendMail("SMTPサーバ名", #SMTPサーバ > 'tokeon@hotmail.com', #宛先 > 'サーバです', #送信元 > "Basp21でメール", #件名 > "簡単なメール\nMailTest\n2行目も簡単\n", > #本文 >"" #添付ファイルに""を指定 > ); ></font> >が、perlライブラリ配置の違いからか、use Win32::OLE; でlocateエラー >となり、そこを変更しました。 ><font color="#000080"> >use OLE; >$oBasp = OLE->new('basp21'); #Basp21オブジェクトの作成 >#メールの送信 >$oBasp->SendMail("SMTPサーバ名", #SMTPサーバ > 'tokeon@hotmail.com', #宛先 > > 'サーバです', #送信元 > "Basp21でメール", #件名 > "簡単なメール\nMailTest\n2行目も簡単\n", > #本文 > "" #添付ファイルに""を指定 > ); ></font> >としましたが、今度はOLEAUT32.dllがlocateエラーとなり、 >PWSの特性と思い、PWS設定ルートのscriptフォルダーにOLEAUT32.dllをコピーしてやりOKでした。 >で、以下のスクリプト変更し一段落です。(^。^;)フウ ><strong>@site.pl:</strong> ><font color="#000080"> >#投稿メール送信用 >$smtpsvr ='<em>smtpsvr</em>';#SMTPサーバ名 >$forumurl = '<em>http://tokeon.xx.xx.xx</em>';#先頭url ></font> >の追加。 > ><strong>Aforum.pl:</strong> ><font color="#000080"> >#投稿記事メール送信用 >$main'SMTPSVR = $smtpsvr;#メールサーバ名 >$main'FORUMURL = $forumurl;#会議室ホームページ ></font> >の追加 > ><strong>Barticle.cgi:</strong> >のsub make_article {の最終行に以下の処理追加 ><font color="#000080"> >#メールアーティクル作成<text形式> > $mail_article = <<"EOL"; >●タイトル: $ids{'subject'} >●投稿者From: $link <mailto:$ids{'email'}> >●日時分: $date >●投稿本体(リンク):$FORUMURL$FORUMROOT/$room/$ref.html >☆ここから投稿内容(html形式で見づらい場合 上の「投稿本体」リンクをご覧ください☆ > >$text > >☆ミ☆彡☆ミ☆彡 ここまで ☆ミ☆彡☆ミ☆ >☆ フォロー投稿は下のリンクからも出来ます ☆ > $FORUMURL$CGIROOT/article.$CGI?room=$post_room&ref=$mes > >EOL ></font> >次にsub post_article {の<font color="#0000FF"> > open(NEW, ">$FORUMPATH/new_arrival") && close(NEW);</font> >行直前に ><font color="#408080"> >#メールホーマット作成(TEXT) > $mail_body = <<"EOL"; >$FORUMTITLE $FORUMURL$CGIROOT/index.cgi >$mail_article >$FORUMTITLE 管理人<mailto:$OWNER> >EOL > >use OLE; >$oBasp = OLE->new('basp21'); #Basp21オブジェクトの作成 >#メールの送信 >$oBasp->SendMail($SMTPSVR, #SMTPサーバ > "$OWNER" , #宛先 一般 > 'tokeon@hotmail.com', #送信元 > "☆ミ $FORUMTITLEへの投稿です($ids{'subject'})☆彡", #件名 > $mail_body, > #本文 > "" #添付ファイルに""を指定 > ); ></font> > > >といった具合です。 >あとは、 >送信先に投稿&参加(ユーザカスタマイズした)人のメールアドレスにも送る事や、 >ユーザカスタマイズでメール通知の拒否登録等が出来る用にしたいです。 > >こういった情報は、どのあたりのスクリプトを参照すればいいでしょうか?
ホームペーヂに戻る
nir@mvg.biglobe.ne.jp
Last Update: 2 December 1999