ファイルを添付してメール送信する

#!/usr/bin/perl -w
#-------------------------------------------------------------------------------
# $Id: attachement.html,v 1.1 2009/06/22 16:12:04 kishi Exp kishi $ 
# ファイルを添付してメール送信する
# Net::SMTPモジュールがインストールされていることを前提にしています。
#-------------------------------------------------------------------------------

use strict;
use MIME::Base64;
use MIME::Lite;
use Jcode;

if( $#ARGV + 1 != 1 ){
	print STDERR "Usage: $0 [FileToBeAttached]" . "\n";	
	exit -1;
}
my $file = $ARGV[0];

my $smtpserver = "ns.solmac.co.jp";
my $From ='mail-sender@solmac.co.jp';
my $To = 'admin@solmac.co.jp,pig-man@solmac.co.jp';
my $subject = "本日のレポート";
my $body = "本メールにファイルを添付しておりますので、宜しくお願い致します。";

Jcode::convert(\$subject, "jis");
$subject = '=?ISO-2022-JP?B?' . encode_base64($subject, '') . '?=';
Jcode::convert(\$body, 'jis');

my $msg = new MIME::Lite 
	From    =>$From,
	To      =>$To,
	Subject =>$subject,
	Type    =>'TEXT',
	Data    =>$body;

#
# ファイルを添付する
#
attach $msg 
	binmode => 1,	
	Type     =>'application/octet-stream',
	Path     =>$file,
	Encoding =>'base64',
	Filename =>$file;

MIME::Lite->send('smtp', $smtpserver, Timeout=>60);

$msg->send;

戻る