smtp_メール送信クライアント

JITAKU_SVR_Wiki

#!/usr/bin/perl

use Net::SMTP;

$from ='form@hogehoge.com';
$mailto ='foo@hogehoge.com';
$subject ='testmail';

$header = << "MAILHEADER";
From: $from
To: $mailto
Subject: $subject
MAILHEADER

$message = << "_HERE_";
testmail from cacti
_HERE_

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

TIPS:
smtpを直接叩くスクリプト。
必要moduleは『Net::SMTP』

$smtp = Net::SMTP->new('127.0.0.1');

newに与えられた引数が直接つなぎにいく対象ホスト。

一度作っておくとほかの場所で色々と応用が利くので重宝する。