# ------------------------------------------------------- #  
# 【Program name 】smtp_sample.pl  
# ------------------------------------------------------- #  
use Socket;  
require './jcode.pl';  
# SMTP サーバー名（IP アドレス）  
$server = '××.co.jp' ;  
# 宛先、送信元、題名、送信データ  
$to = '××@××.co.jp' ;  
$from = '××@××.co.jp' ;  
$subject = '連携システムからの通知サンプル' ;  
$data = '連携システムからの通知のサンプルです' ;  
# ------------------------------------------------------- #  
# ヘッダー、データ部の作成  
# ------------------------------------------------------- #  
$send_data = 'X-Mailer: SMTP Samle' . "\r\n";  
$send_data .= 'MIME-Version: 1.0' . "\r\n";  
$send_data .= 'Content-Type: text/plain; charset=iso-2022-jp' . "\r\n";  
$send_data .= 'From: '. $from . '<'. $from .'>' . "\r\n";  
$send_data .= 'To: '. $to . "\r\n";  
$send_data .= 'Subject: ' . $subject . "\r\n";  
#Cybozu 拡張ヘッダー  
$send_data .= 'X-Cybozu-Notify-App-Name:Sample' . "\r\n";  
$send_data .= 'X-Cybozu-Notify-App-UniqueID:Sample-notify-1' . "\r\n";  
$send_data .= 'X-Cybozu-Notify-App-URL:http://www.cybozu.co.jp' . "\r\n";  
$send_data .= 'X-Cybozu-Notify-App-Name:Sample' . "\r\n";  
$send_data .= "\r\n";  
$send_data .= $data;  
# ------------------------------------------------------- #  
# SOCKET の作成  
# ------------------------------------------------------- #  
# 接続のための準備  
$port = getservbyname('smtp','tcp');  
$struct = sockaddr_in($port,inet_aton($server));  
socket(SH, PF_INET, SOCK_STREAM, 0) || die("ソケットエラー$!") ;  
# 接続  
connect(SH, $struct ) || die("接続失敗$!") ;  
select(SH); $| = 1; select(STDOUT);  
$respons = <SH> ;  
unless($respons =~ /^220/)  
{  
close(SH); die("接続失敗$!") ;  
}  
# ------------------------------------------------------- #  
# コマンドの送信  
# ------------------------------------------------------- #  
# HELO コマンドの作成、送信  
$command = "HELO $server\r\n";  
print SH $command ;  
$respons = <SH>;  
&decode(\$respons) ;  
unless($respons =~ /^250/)  
{  
close(SH); die("Command:HELO ・・・FAIL $!") ;  
}  
# MAIL コマンドの作成、送信  
$command = "MAIL FROM:$from\r\n";  
print SH $command ;  
$respons = <SH>;  
&decode(\$respons) ;  
unless($respons =~ /^250/)  
{  
print SH "RSET\r\n"; close(SH);  
die("Command：MAIL・・・FAIL $!") ;  
}  
# RCPT コマンドの作成、送信  
$command = "RCPT TO:$to\r\n";  
print SH $command ;  
$respons = <SH>;  
&decode(\$respons) ;  
unless($respons =~ /^25[0|1]/)  
{  
print SH "RSET\r\n"; close(SH);  
die("Command：RCPT・・・FAIL $!") ;  
}  
# DATA コマンドの作成、送信  
$command = "DATA\r\n";  
print SH $command ;  
$respons = <SH>;  
&decode(\$respons) ;  
unless($respons =~ /^354/){  
print SH "RSET\r\n"; close(SH);  
die("Command：DATA・・・FAIL $!") ;  
}  
# ------------------------------------------------------- #  
# ヘッダー、本文の送信  
# ------------------------------------------------------- #  
# 文字コードの変換  
&jcode'convert(*send_data,'jis');  
# コマンドの作成、送信  
$command = "$send_data\r\n.\r\n";  
print SH $command ;  
$respons = <SH>;  
&decode(\$respons) ;  
unless($respons =~ /^250/){  
print SH "RSET\n"; close(SH);  
die("本文、ヘッダーの送信失敗$!") ;  
}  
# QUIT コマンドの作成、送信  
$command = "QUIT\n";  
print SH $command ;  
#切断  
close(SH); select(STDOUT);  
print "MAIL は正常に送信されました。\n";  
# ------------------------------------------------------- #  
# 改行コード変換  
# ------------------------------------------------------- #  
sub decode{  
my $inf = $_[0];  
$$inf =~ s/\x0D\x0A|\x0D|\x0A/\n/g;  
}