MaMac 書込み所
[リストに戻る] [ホームに戻る] [新規投稿] [スレッド表示] [トピック表示] [留意事項] [ワード検索] [管理用]
タイトルRe: こうなったらSMTPモジュールで
投稿日: 2005/12/09(Fri) 17:03
投稿者penguin-19  <mizusawa@kiwi.ne.jp>
参照先http://mizusawa.no-ip.info:8080/index.html

 結局、ブラウザによってはUVJ Mailerでうまく送信できないことがあるってことに落ち着きそうですね。

 さて、どうしましょう。こうなったら、UVJをやめて、perlのNET::SMTPモジュール(標準モジュール)を使って送信ルーチンを書いてみますか。

 念のため、すぐに元に戻せるように、今のスクリプトは取っておいてから改造してください。Net::SMTPとMIME::Base64モジュールは最初からMacPerlに入っていたと思います。

●現行
# UVJ Mailer 用 送信フォーム
local($uvjname,$mailto,$mailFrom);
$uvjname = "UVJ Mailer 3.1 PPC"; # アプリケーションの名前
$mailto = "xxxxxxxxxx" ;# UVJ Mailer のアドレスブックに登録した送信先ニックネーム
$mailSubject = "$in{'sub'}"."($title)" ;# 書込みタイトル+(掲示板名) に設定される

&MacPerl'DoAppleScript(<<END_SCRIPT);
tell application "$uvjname"
activate
send mail "$mbody" to "$mailto" from "$mailFrom" subject "$mailSubject"
end tell
END_SCRIPT
}

●変更後
use Net::SMTP; # ホントはスクリプトの最初の方におく方がいい
use MIME::Base64 ; # ホントはスクリプトの最初の方におく方がいい

$smtpserver = "smtp.abc.ne.jp";# 利用するSMTPサーバ名かIPアドレス
# $mailFrom = "name\@xxx.xxx";送信元アドレス。設定済みのはず。
$mailto = "name\@xxx.xxx" ; # 送信先アドレス \@に注意
$mailSubject = "$in{'sub'}"."($title)" ;# 書込みタイトル+(掲示板名) に設定される

&jcode'convert (*mailSubject,jis) ;
&jcode'convert (*mbody,jis) ;

# タイトルはBase64エンコードする(本文はJISでよい)
$mailSubject = MIME::Base64::encode($mailSubject,""); # 75バイトで改行されないように空を指定
$mailSubject = "=?ISO-2022-JP?B?"."$mailSubject"."?="; # 前後におまじない

$smtp = Net::SMTP->new($smtpserver); # 送信開始

$smtp->mail($mailFrom);
$smtp->to($mailto);

$smtp->data();
$smtp->datasend("To: $mailto\n"); # 送信先
$smtp->datasend("Subject: $mailSubject\n"); # タイトル
$smtp->datasend("Content-Type: text/plain; charset=\"ISO-2022-JP\"\n"); # コード指定
$smtp->datasend("\n"); # ヘッダ、ここまで
$smtp->datasend("$mbody\n"); # 内容
$smtp->dataend(); # データここまで

$smtp->quit; # 送信命令
}

 これで送信されないとなると、ちょっと僕にはお手上げっす<(_ _)>


- 関連ツリー

yybbsのスパム対抗策 - penguin-19 2005/11/08(Tue) 22:51 No.101
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/11/08(Tue) 22:54 No.102
     ├ Re: yybbsのスパム対抗策 - mamac 2005/11/09(Wed) 10:27 No.103
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/11/09(Wed) 12:43 No.104
     ├ Re: yybbsのスパム対抗策 - mamac 2005/11/09(Wed) 18:10 No.105
     ├ 禁止ワード - ヘイゴ 2005/11/18(Fri) 16:28 No.131
     ├ Re: 禁止ワード - mamac 2005/11/18(Fri) 16:40 No.132
     ├ Re: 禁止ワードの設定例 - penguin-19 2005/11/18(Fri) 17:55 No.133
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/11/18(Fri) 17:58 No.134
     ├ Re: yybbsのスパム対抗策 - mamac 2005/11/18(Fri) 18:48 No.135
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/11/18(Fri) 19:30 No.137
     ├ Re: yybbsのスパム対抗策 - mamac 2005/11/19(Sat) 13:37 No.139
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/05(Mon) 17:26 No.163
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/05(Mon) 20:12 No.164
     ├ Re: UVJ Mailerについて - penguin-19 2005/12/05(Mon) 20:47 No.165
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/05(Mon) 21:18 No.166
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/06(Tue) 09:34 No.167
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/06(Tue) 13:55 No.168
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/06(Tue) 16:40 No.170
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/06(Tue) 20:49 No.171
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/07(Wed) 00:36 No.172
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/07(Wed) 10:49 No.173
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/08(Thu) 00:05 No.181
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/08(Thu) 16:24 No.182
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/08(Thu) 18:58 No.186
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/08(Thu) 20:37 No.187
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/08(Thu) 21:11 No.190
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/08(Thu) 23:37 No.191
     ├ Re: こうなったらSMTPモジュールで - penguin-19 2005/12/09(Fri) 17:03 No.192
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/10(Sat) 08:12 No.195
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/10(Sat) 17:10 No.196
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/10(Sat) 18:02 No.197
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/13(Tue) 12:00 No.198
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/14(Wed) 15:33 No.199
     ├ Re: yybbsのスパム対抗策 - mamac 2005/12/14(Wed) 18:03 No.219
     ├ Re: yybbsのスパム対抗策 - penguin-19 2005/12/14(Wed) 21:26 No.220
     └ Re: yybbsのスパム対抗策 - mamac 2005/12/15(Thu) 01:29 No.221


- 返信フォーム

お名前
Eメール
タイトル
メッセージ
参照先
イメージ   [イメージ参照]
暗証キー (英数字で8文字以内)
投稿キー (投稿時 投稿キー を入力してください)
文字色