2

cpan モジュール Mail::Sendmail を使用して自分自身に電子メールを送信するための簡単なテスト スクリプトがあります。私は Strawberry Perl を使用して Windows マシンで操作していますが、コマンド ラインからすべて問題ないようです。というエラーが表示されますconnect to localhost failed (No connection could be made because the target machine refused it.)

私のスクリプトは次のとおりです。

use Mail::Sendmail qw(sendmail %mailcfg);
$mailcfg{from} = 'dhagan@idatech.com';

print "Testing Mail::Sendmail version $Mail::Sendmail::VERSION\n";
print "Default server:  $Mail::Sendmail::mailcfg{smtp}->[0]\n";
print "Default sender:  $Mail::Sendmail::mailcfg{from}\n";

%mail = (   To      =>  'dhagan@email.com',
            From    =>  'dhagan@email.com',
            Message =>  'Test!'

        );

sendmail(%mail) or die $Mail::Sendmail::error;

print "OK.  Log says:\n", $Mail::Sendmail::log;

これが発生する理由はありますか？

4

1 に答える 1

1

デフォルトでは、Mail :: Sendmailはローカルホストにメールを送信するように構成されていますが、そこでSMTPサーバーを実行していません。

適切なサーバーを構成する必要があります-ヘルプを参照してください。

 Default SMTP server(s)
       This is probably all you want to configure. It is usually done
       through $mailcfg{smtp}, which you can edit at the top of the
       Sendmail.pm file.  This is a reference to a list of SMTP servers.
       You can also set it from your script:

       "unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'my.mail.server';"

       Alternatively, you can specify the server in the %mail hash you
       send from your script, which will do the same thing:

       "$mail{smtp} = 'my.mail.server';"
于 2012-08-06T18:59:14.707 に答える