Perlコミュのsendmailでメールが送れない

あるレンタルサーバーでsendmailを使いメールを配信しようと考えているのですが、メールが送れず、サーバーエラーになり困っております。プログラムは次のように記載したのですがどこが間違っていますでしょうか？
（sendmail対応のサーバーでパスは合っております。）

#!/usr/bin/perl

require "mimew.pl";
require "jcode.pl";

$sendmail = '/usr/sbin/sendmail';

$to = "宛先アドレス"; # 宛先アドレス
$from = "送信元アドレス"; # 送信元アドレス
$subject = "bbb";
$body = "aaa";

# 本文をJISコードへ変換
&jcode'convert(*body,'jis');

# 標題をJISコードへ変換してMIME エンコード
&jcode'convert(*subject,'jis');

$subject = mimeencode($subject);
$body = mimeencode($body);

# ファイルハンドルをsendmailへ紐付け
open(MAIL,"| $sendmail -t");

# sendmailへコマンドの出力
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "\n";
print MAIL "$body\n";
close(MAIL);

コメント(12)

最初
全て
最新の40件

[2] mixiユーザー 03月22日 14:44

mimeencodeで変換するのは、ヘッダーに格納される情報です。
subjectや、送信者の名前（メールアドレス以外に会社名などを明記する場合）
は、mimeencodeが必要です。

メールの本文は、jisのままで送れるので・・・
$body = mimeencode($body);
の行は、不要ですね。

sendmailへの送り込みは、こんな感じで記述すると、シンプルに書けますよ。
今回の事例と比較すると、何が抜けているかも把握できるかと・・・。

open(MAIL,"| $snd_path -t");
print MAIL <<"_END_";
Return-Path: $from
From: $name <$from>
To: $to
Subject: $subject
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit

$body
_END_
close(MAIL);

あと、「あるレンタルサーバー」ってのは、問題も難しくする記述ですね。
昔・・・あるレンタルサーバーでは、Return-Path:が指定されていると、送信できなかったり・・・なんて事例も経験したのです・・・
あるレンタルサーバーなんて記述だと、自分がそのケースなのか判断できませんよね。

私の場合の「あるレンタルサーバー」はxreaのWindowsサーバーでした。

[3] mixiユーザー 03月22日 14:52

$bodyがエンコードされてても送信自体はされると思います。

今時requireなんかしないのでアレですが、

$subject = mimeencode($subject);

じゃなくて、

$subject = &mimeencode($subject);

じゃないですかね。

[4] mixiユーザー 03月22日 15:41

Webアプリケーションを作るときには

use CGI::Carp 'fatalsToBrowser';

を書いておくと、エラーの内容をブラウザに表示して
くれて幸せになれます。

あとですね、

use strict;
use warnings;

は是非使ってください。
デバッグの効率がはるかに向上します。

[5] mixiユーザー 03月22日 17:11

きっとPerl4で動かすのでしょうね。

いまどきだとNet::SMTPでしょうか、それとももっとよいものがある?

[6] mixiユーザー 03月23日 23:07

＞　回答をくださったみなさん

ありがとうございます。
エラーの原因は、mimew.pl、jcode.plがないことでした。Jcode.pmを使用することによって解決致しました。

[7] mixiユーザー 03月24日 00:27

　実は Encode.pm も使える環境だったりとかしませんか?

　非常に古い文献を参照されているような気がします。
　Webプログラミングを学ばれるのでしたら、新しい文献を使うことをおすすめします。

[8] mixiユーザー 03月24日 00:45

捕捉として
Perl5.8以上ならEncodeモジュールが標準で使えます。
レンタルサーバということは、まあ通常なら5.8より古いのは今時無いと思います。

[9] mixiユーザー 03月24日 01:03

メール関係はMail::Sendmailを使えたら使います。楽だから
なかったらNet::SMTP
open(MAIL,"|sendmail -t");は使わないかな。

[10] mixiユーザー 03月25日 23:06

みなさん、いろいろとご指摘ありがとうございます。勉強になります。