#!/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;
$smtp = Net::SMTP->new('127.0.0.1'); newに与えられた引数が直接つなぎにいく対象ホスト。 一度作っておくとほかの場所で色々と応用が利くので重宝する。 |