【メールについて】CGI/PerlとPerlモジュールNet::SMTPを使って、メール送信スクリプトを作成しているのですが、どうしてもうまくいきません。というのも、ぼくは@niftyのメールアカウントを使っていて、@niftyのSMTPサーバーへ送信するようにしているのですが、思うように行きません。sendmailでもです。

そうかもしれません

なるほど、参考にしてみます。

わかりました

試してみます

追伸

require ’/***/***/***/**/**/jcode.pl’;

#===============================================================================

# jcode.plを使って、JISコードへ変換

#===============================================================================

sub ConvJis($) {

local($sWk) =@_;

&jcode’convert(*sWk, ’jis’);

return $sWk;

}

#===============================================================================

# メインルーチン

#===============================================================================

#オブジェクトの作成

sub send {

$s_smtp = ”smtp.nifty.com”;

$auth_id = ”***@@@@@”;

$auth_pw = ”********”;

($s_to,$s_from,$s_subject,$s_data,$s_host) = @_;

use Net::SMTP;

use MIME::Entity;

use MIME::Words qw (:all);

use MIME::Base64;

use Authen::SASL;

require MIME::Base64;

require Authen::SASL;

$smtp = Net::SMTP->new(

$s_smtp, #SMTPサーバ

Hello=>$s_smtp,

debug=>1); #SMTPサーバのドメインを指定

$smtp->auth($auth_id,$auth_pw);

#ヘッダ部の組み立て

$smtp->mail($s_from); #送信元

$smtp->to($s_to); #宛先

#データ部の組み立て(MIME::Entityによるデータの作成)

$smtp->data();

$s_data = ”$s_data￥n￥n$s_host”;

$s_data = &ConvJis(”$s_data”);

$oMime = MIME::Entity->build(

To => $s_to,

From => $s_from,

Subject => $s_subject,

Type => ’text/plain;charset=”iso-2022-jp”’, #後ろのcharsetがミソ

Data => $s_data,

Encoding => ”7bit” #7bitエンコード

);

$smtp->datasend($oMime->stringify);

# データの終わり、メール送信

$smtp->dataend();

#SMTP接続の終了

$smtp->quit;

何か問題があるのでしょうか？

このスクリプトを、requireさせています。

試してみたところ、通信が見られました。

そのあと、確かにテストメールが届きました。

しかし、メールスクリプトからrequireするとなぜか届きません

require ”../****/*****.pl”;

unless ($in{’name’} and $in{’mail’} and $in{’subject’} and $in{’data’}) { &error(’ERROR!　抜けている項目があります！’); }

$dat = ”送信元=$in{’name’}（$in{’mail’}）￥n内容＝$in{’data’}￥nHOST:none￥n￥n”;

&send($email,$in{’mail’},$in{’subject’},$dat,0);

&header;

print ”送信完了￥n”;

&footer;

exit;

これが問題のスクリプトの送信部分です。

と、思ったらただ単に原因はPerl5の仕様でした。

$email = ”****@****.com”;としていました。

$email = ”****￥@****.com”;もしくは

$email = ’****@****.com’;と

しなければならないのに。

でも、他の原因もあったかもしれません。

解決です。