メールを送信する方法

Modified: 19 June 2005

"Net::SMTP"を使って送信　

#!/usr/bin/perl
print "Content-type: text/html\n\n";

use Jcode;
use MIME::Base64::Perl;
use Net::SMTP;

$mailbody = "メール本文";
&Jcode::convert(\$mailbody, 'jis'); # JISコードに変換する

$subject = "サブジェクト";
$encoded_sub = &EncodeSubject($subject); # MIME変換する

$mail_from = "送信元メールアドレス";
$mail_to = "送信先メールアドレス";

$smtp = Net::SMTP->new('メールサーバーのホスト名');
$smtp->mail($mail_from);
$smtp->to($mail_to);
$smtp->data();
$smtp->datasend("To: $mail_to\n");
$smtp->datasend("Subject: $encoded_sub\n");
$smtp->datasend("Content-Type: text/plain; charset=\"ISO-2022-JP\"\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("\n");
$smtp->datasend("$mailbody");
$smtp->dataend();
$smtp->quit;