[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;



関連記事
MIME::Parser - メールの解析
Net::POP3 - メールの取得
MIME::Lite - 添付付きメールの送信
メールの送信をするには-Net::SMTP
メールの文字化け
Email::Valid - メールの書式並びにMXのチェック
広告