GINPRO / SQLの窓と銀プログラマ

<?php
# PEAR
require_once('Net/POP3.php');

# 漢字変換用( 内部コード設定 );
mb_language( "ja" );
mb_internal_encoding("EUC-JP");

print "<PRE>";

# インスタンス作成
$pop3 = new Net_POP3();

# 接続( さくらインターネットの場合 )
$ret = $pop3->connect ("ユーザid.sakura.ne.jp", 110 );
if ( $ret ) {
	print "接続OK\n";
}

# ログイン ( APOP )
$ret = $pop3->login( "メールid@ユーザid.sakura.ne.jp", "パスワード", true );
if ( $ret ) {
	print "ログインOK\n";
}

# メッセージの総件数
$ret = $pop3->numMsg();
print "$ret : メッセージ件数\n";

# メッセージの総サイズ
$ret = $pop3->getSize();
print "$ret : メールボックスのサイズ\n";

# メッセージの一覧
$ret = $pop3->getListing();
$i = 1;
if ( $ret !== false ) {
	foreach( $ret as $Key => $Value ) {

		# msg_id、size、uidl の表示
		print "$Key : $Value\n";
		foreach( $Value as $Key2 => $Value2 ) {
			print "\t$Key2 : $Value2\n";
		}

		# ヘッダ情報の表示
		$ret2 = $pop3->getParsedHeaders( $i );
		foreach( $ret2 as $Key2 => $Value2 ) {
			print "\t\t$Key2 : $Value2\n";
		}

		# 本文の表示
		$ret2 = $pop3->getBody( $i );
		print $ret2 . "\n";
		$i++;
	}
}

# 先頭メッセージの本文を Shift_JIS に変換して表示
$ret = $pop3->getBody( 1 );
print mb_convert_encoding( $ret, "SJIS", "JIS" );

# 接続解除
$pop3->disconnect();

print "</PRE>";
?>