メールの送信をするには-Net::SMTP

[Perl] => [メール]

　

Net::SMTPを使用すれば簡単にメールを送信できる。

[例]
#!/usr/bin/perl

use Net::SMTP;
use Jcode;

$from = '***@ksknet.net';
$mailto = '****@ksknet.net';
$bcc = ('***@ksknet.net', '***@ksknet.net');
$subject = 'テスト';
$subject = jcode($subject)->mime_encode();

#メールのヘッダーを構築
$header = << "MAILHEADER";
From: $from
To: $mailto
Subject: $subject
Mime-Version: 1.0
Content-Type: text/plain; charset = "ISO-2022-JP"
Content-Transfer-Encoding: 7bit
MAILHEADER

#メール本文
$message = << "__HERE__" ;
テストだよ
__HERE__

#文字コードをJISに変換
$message = jcode($message,'euc')->jis;

$smtp = Net::SMTP->new('localhost');
$smtp->mail($from);
$smtp->to($mailto);
$smtp->bcc(@mail_bcc);
$smtp->data();
$smtp->datasend("$header\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit;

---

---