かんたん安心グループウェア

# ------------------------------------------------------- #
# 【 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) ;

&decode(\$respons) ;
{
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;
}