ＰＯＰ３(E-mail受信)サンプルソフト１(VB5.0)

ＶＢ(Visual Basic 5.0)で作成した、ＴＣＰによる通信サンプルプログラムを紹介します。
ＰＯＰ３サーバに接続しＥメールを受信します。

ＰＯＰ３サンプルプログラム１ (pop3_s1.lzh 4K)

ＰＯＰ３プロトコルはＴＣＰでポート番号「110」に接続後、下記コード出力すると
+OK 又は -ERR に続き情報が返されます。

USERコマンド
ＰＯＰ３（メール）サーバに接続すると次にユーザ名を入力します。
USER <ユーザー名>
+OK　：ユーザ名確認
-ERR ：該当するユーザ名が存在しない。

PASSコマンド
USERコマンド成功後に続けてメールサーバに対してパスワードを入力します。
PASS <パスワード>
+OK　：パスワード確認
-ERR ：パスワードが無効。

STATコマンド
メールサーバに残っているメールが何通で合計何バイトかを返します。
STAT
+OK AA BBB：AA通 BBBバイト
LISTコマンド
メッセージ番号で指定したメッセージのバイトを返します。
LIST　<メッセージ番号>
+OK AA BBB：AAはメッセージ番号 BBBバイト
-ERR ：メッセージ番号に対応したメッセージは有りません。

RETRコマンド
メッセージ番号で指定したメッセージの本文を返します。
RETR　<メッセージ番号>
+OK メッセージ本文　最後に . CR LFで終わる
-ERR ：メッセージ番号に対応したメッセージは有りません。

DELEコマンド
メッセージ番号で指定したメッセージを削除します。
DELE　<メッセージ番号>
+OK　：削除完了
-ERR ：メッセージ番号に対応したメッセージは有りません。

NOOPコマンド
メールサーバにタイムアウト再セットを行う。
NOOP
+OK ：再セット完了

RSETコマンド
セッション中の削除命令を解除する。
RSET
+OK ：再セット完了

QUITコマンド
セッションを終了します。
QUIT
+OK ：終了

ＴＣＰサンプルのつもりで作ったんですが、ＰＯＰ３のサンプルとなりました。
一応日本語処理も入れてます。メールを受信してみて下さい。（サーバからの削除はされません）
添付の解凍はしてません。　今度します。（＾＾；