Perl講座　Perlからメールを送信する

home / Knave web lecture / Perl / Perlからメールを送信する

Perlからメールを送信する

SMTPとは
動作手順
SMTPコマンド一覧
応答コード一覧
メールのフォーマット
socketとは、、
Perlでの記述

SMTPとは

　SMTPとは ( Simple Mail Transfer Protocol ) の略でもともとはサーバ間でメールをやり取りするためのプロトコルですが、メールクライアント ( Outlook Expressなど ) がサーバに対してメールを送信する際にも利用されています。信頼性があり、効率的にメールを転送することの出来るプロトコルです。通常は TCPポート番号の 25番を使用します。

　また SMTPの規定では７ビットコードとなりますので、正常にメールを送信するには７ビットのJISコードを用いなくてはいけません。

[ top ]

動作手順

　次に示す手順のやり取りが、メールクライアントとメールサーバの間で行われます。

クライアント側		サーバ側
HELLOコマンド	→
	←	250
MAILコマンド	→
	←	250
RCPTコマンド	→
	←	250 又は 251
DATAコマンド	→
	←	354
[ メール本文 ]	→
ピリオドだけの行	→
	←	250
QUITコマンド	→

　QUITコマンドが送信されると実際にメールが送信されます。私たちは意識する必要はありませんが、受信したサーバは他のユーザー宛であった場合、他のシステムとまた同様の手順で相手システムにメールを転送することになります。

　※サーバから送られるレスポンスは全て正常時のレスポンスになります。各コマンド、レスポンスはそれぞれ [ SMTPコマンド一覧 ] [ SMTP応答コード一覧 ] を参照してください。

[ top ]

SMTPのコマンド

コマンド	パラメータ	意味
HELO	クライアントのドメイン名	SMTPクライアントをSMTPサーバに認識させるためのコマンド。パラメータのドメイン名により認識する。
MAIL	送信元のユーザ名	メール転送を開始するコマンド。このパラメータで送信元アドレスを指定する。
RCPT	送信先のリスト	MAILコマンドに続いて実行する。送信する受信者を指定する。
DATA	データ送信	転送するメールデータの送信開始を表す。メールデータは<CR><LF>.<CR><LF>で終了とみなされる。
SEND	送信元のユーザ名	MAILコマンドと同様にメール転送開始の指示ですが、送信先としてユーザのターミナルに送る。
RSET	無し	MAIL,SENDコマンドにより開始されてたメール転送処理を中止する。このコマンドを実行するとこの前に設定されていた情報は全てリセットされる。
VRFY	ユーザ名	SMTPサーバにユーザ名に確認を行う。指定されたユーザが存在する場合はユーザのフルネームなどの情報を返す。
EXPN	メール、リスト名	グループ化されたメール受信者のリストを展開して、登録されているユーザのリストを得る。
HELP	コマンド	SMTPサーバがサポートしているコマンドの一覧、説明を表示。
NOOP	無し	何も行いません。サーバの状況を確認する際に使用されます。
QUIT	無し	SMTPによる接続を終了する。

[ top ]

応答コード

　SMTPサーバからの応答は次のようなフォーマットになります。

応答コード [ 下表参照 ]			各コードに対応した応答メッセージ
コード 3桁目	コード 2桁目	コード 1桁目

コード3桁目

    1 : コマンドは正常に受け付けられ、現在実行中です。
    2 : コマンドは正常終了しました。
    3 : コマンドは正常に受け付けられましたが、パラメータなどの指定が必要です。
    4 : コマンドは正常に受け付けられませんでした。
    5 : コマンドはこのシステムでは実行できません。

コード2桁目

    0 : 3桁目がエラーを示す時に、文法的なエラーがある事を示します。
    1 : この応答は情報を伝えるものです。
    2 : TCPコネクションに関連した情報。
    5 : メールシステムの状態を示します。

コード1桁目

: 2、3桁によってより詳しい内容を表わします。

応答コード	意味
211	システムステータス、システムヘルプ応答
214	ヘルプメッセージ、コマンドに使用方法について
220	パラメータに指定されるドメイン名のサーバ準備完了
221	コネクションのクローズ（QUITに対する応答）
250	リクエストされたコマンドの正常終了
251	宛先として指定されたユーザはローカルに存在しない。応答に指定した宛先へ転送する。
252	VRFYコマンドでのユーザ確認できません。ユーザはローカルに存在しません。メールの転送は可能です。
354	メールデータの入力を開始してください。最後は<CR><LF>.<CR><LF>で終了してください。
421	ホストのメールサービスは起動していません。TCPコネクションを切断します。メール転送中にサーバがShutdownされた場合。
450	リクエストされたコマンドは実行されませんでした。メールボックスのビジィが原因です。
451	ローカルエラーの為指定コマンドは実行できませんでした。
452	リクエストされたコマンドは実行されませんでした。
500	コマンドの文法エラーです。
501	指定コマンドのパラメータエラー
502	指定のコマンドはサポートしていません。
503	コマンドの実行順序が不正です。
504	指定のコマンドのパラメータはサポートしていません。
550	宛先のメールボックスが存在しないなどの理由で指定コマンドは実行されない。
551	指定された宛先のユーザはこのホストには存在しない。別のパスへ転送してください。
552	ファイル、システムの問題でコマンドは実行できません。
553	宛先に問題があるため指定のコマンドは実行できません。
554	メールの転送に失敗。

[ top ]

メールのフォーマット

　これまではサーバとのやり取りについて説明してきましたが、今回はメール本文のフォーマットについてです。(DATAコマンドの後に送信するデータ) 電子メールはヘッダ部と本文の二つから構成され、それぞれは空白行を境界線とします。本文についてはピリオド一つだけの行を含むことは出来ません。これはSMTPのコマンドでDATAコマンドの後送信されるデータはピリオド一つだけの行を含むとそこでサーバ側ではメールの本文が終了したと勘違いしてしまうためです。

　ヘッダ部は次の表にあるようなフィールドの集合で構成します。各フィールドは下記のようなフォーマットで最終フィールドが終了したら空白行を挿入しそこからメールの本文を開始します。

ヘッダ部のフォーマット

(フィールド名) :(フィールド内容)

フィールド名	意味
From	送信元
Return-Path	返信先
Cc	メールコピーの送信先
Subject	題名
Date	発信日付
Message-Id	メールの識別番号
X-Mailer	送信者が使用しているメールクライアント
MIME-Version	MIMEのバージョン
Content-Type	メール形式を表す

[ top ]

socketとは

　socketとはTCP ( SMTPで使用します ) で通信をする場合は、まず先立って socketを使ってコネクションを確立しなくてはいけません。確立後は通常のファイルハンドル同様に入出力用の print／<>などを使って通信する事が可能になります。

Perlでのsocket作成法

1. Socketモジュールの輸入。このサンプルはSocketモジュールを使用してあるのでPerl5以上の対応ですPerl4では動きません。

use Socket;

2. getservbyname関数を呼び出してそのサービスが使用するポート番号を取得しています。ここで'tcp'という文字を引数で渡していますがこれは異なるレイヤで使用されるプロトコルです。この [ tcp ] と呼ばれるプロトコルによって信頼性のある通信が実現できます。

$port = getservbyname('smtp','tcp');

3. ホスト名 ( inet_aton関数でパックされたIPアドレス ) とポート番号を構造体にパックして作成する。

$struct = sockaddr_in($port,inet_aton($server));

4. Socketの作成

socket(SH, PF_INET, SOCK_STREAM, 0);

5. 構造体の情報を元にサーバへ接続する。

nect(SH, $struct );

[ top ]

Perlでの記述

　実際にPerlでの記述は次に記述しておきます、上で説明したSMTPサーバとのやり取りをする為に先ずSOCKETを作成しそれから [ 動作手順 ] で示したやり取りが始まります。 [ ソケット ] と [ 動作手順 ] の情報を元に下のコードを眺めて見てください。これがソケットの作成からSMTPを使った perlでのメール送信の手順になります。

[ smtp.pl ]

# ------------------------------------------------------- #
#
#    SMTPメール送信サンプル
#
# ------------------------------------------------------- #
# 【 Program name 】
#     smtp.pl
# ------------------------------------------------------- #
# 【更新履歴】
# 　　2001/5/7 -　作成
# ------------------------------------------------------- #
#
# ソケットモジュ－ルの輸入
#
use     Socket;

# ------------------------------------------------------- #
# 接続情報の設定
# ------------------------------------------------------- #
#
# SMTPサーバ名、又はIPアドレス
#
$server = 'xxxxx.co.jp' ;

#
# 宛先
#
$to = 'knave@excite.co.jp' ;

#
# 送信元
#
$from = 'xxxxxxx@xxxxxxxxxx' ;

#
# 題名
#
$subject = 'サンプルメール' ;

#
# 送信データ
#
$data = 'テストメール' ;

#
# 文字コード変換ライブラリの使用
#
require './jcode.pl';

# ------------------------------------------------------- #
# ヘッダ、データ部の作成
# ------------------------------------------------------- #

$send_data = 'X-Mailer: SMTP Samle' . "\n";
$send_data .= 'MIME-Version: 1.0' . "\n";
$send_data .= 'Content-Type: text/plain; charset=iso-2022-jp' . "\n";
$send_data .= 'From: '. $from . '<'. $from .'>' . "\n";
$send_data .= 'To: '. $to . "\n";
$send_data .= 'Subject: ' . $subject . "\n";
$send_data .= "\n";
$send_data .= $data;

# ------------------------------------------------------- #
# SOCKETの作成
# ------------------------------------------------------- #

    # PORT番号を取得します
    $port = getservbyname('smtp','tcp');

    # PORT、IPで構造体を作成する
    $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\n";
    print SH $command ;

    # レスポンスの受信、確認
    $respons = <SH> ;
    &decode(\$respons) ;

    # レスポンスの確認
    unless($respons =~ /^250/){
    close(SH); die("HELOコマンド失敗 $!") ;
    }

# -------- MAILコマンドの送信とレスポンスの確認 --------- #

    # コマンドの作成、送信
    $command = "MAIL FROM:$from\n";
    print SH $command ;

    # レスポンスの受信、確認
    $respons = <SH> ;
    &decode(\$respons) ;

    unless($respons =~ /^250/){
    print SH "RSET\n"; close(SH);
    die("MAILコマンド失敗 $!") ;
    }

# -------- RCPTコマンドの送信とレスポンスの確認 --------- #

    # コマンドの作成、送信
    $command = "RCPT TO:$to\n";
    print SH $command ;

    # レスポンスの受信、確認
    $respons = <SH> ;
    &decode(\$respons) ;

    unless($respons =~ /^25[0|1]/){
    print SH "RSET\n"; close(SH);
    die("RCPTコマンド失敗 $!") ;
    }

# -------- DATAコマンドの送信とレスポンスの確認 --------- #

    # コマンドの作成、送信
    $command = "DATA\n";
    print SH $command ;

    # レスポンスの受信、確認
    $respons = <SH> ;
    &decode(\$respons) ;

    unless($respons =~ /^354/){
    print SH "RSET\n"; close(SH);
    die("DATAコマンド失敗 $!") ;
    }

# -------- ヘッダ、本文の送信とレスポンスの確認 --------- #

    # 文字コードの変換
    &jcode'convert(*send_data,'jis');

    # コマンドの作成、送信
    $command = "$send_data\n.\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;

}

　オレンジで記述してある箇所は変更箇所になります。それぞれを設定してから実行してみてください。

[ top ]