スクリプト実行 [ 「login(hostname,port,SSL,username,password,SaveDirectory,remove)」 , ファイル: 「MMPLib」; 引数: account::POP_Server & ¶ & account::POP_Port & ¶ & account::POP_SSL & ¶ & account::POP_Username & ¶ & account::POP_Password　& ¶ & account::SaveDirectory　& ¶ & account::サーバーから削除する受信後何日 ]

フィールド設定 [ SYSTEM::gER; Get(スクリプトの結果) ]

#

レイアウト切り替え [ 「List」 (mailer) ]

変数を設定 [ $ERROR; 値:"" ]

Loop

スクリプト実行 [ 「ReceiveMail」 , ファイル: 「MMPLib」 ]

変数を設定 [ $er; 値:Get(スクリプトの結果) ]

Exit Loop If [ $er = 0 ]

If [ $er = 1 ]

新規レコード/検索条件

フィールド設定 [ mailer::受信日; Get(日付) ]

フィールド設定 [ mailer::UIDL; MMPLib_MailTemp::UIDL ]

フィールド設定 [ mailer::header; MMPLib_MailTemp::header ]

フィールド設定 [ mailer::Subject; TextStyleAdd ( MMPLib_MailTemp::Subject; 太字) ]

フィールド設定 [ mailer::From; MMPLib_MailTemp::From ]

フィールド設定 [ mailer::To; MMPLib_MailTemp::To ]

フィールド設定 [ mailer::Cc; MMPLib_MailTemp::Cc ]

フィールド設定 [ mailer::ReplyTo; MMPLib_MailTemp::ReplyTo ]

フィールド設定 [ mailer::Date変換前; MMPLib_MailTemp::Date変換前 ]

フィールド設定 [ mailer::Date変換後; MMPLib_MailTemp::Date変換後 ]

フィールド設定 [ mailer::bodyText; MMPLib_MailTemp::bodyText ]

フィールド設定 [ mailer::bodyHTML; MMPLib_MailTemp::bodyHTML ]

フィールド設定 [ mailer::MailPath; MMPLib_MailTemp::MailPath ]

フィールド設定 [ mailer::読込文字コード; MMPLib_MailTemp::読込文字コード ]

フィールド設定 [ mailer::アイテム数; MMPLib_MailTemp::アイテム数 ]

変数を設定 [ $n; 値:1 ]

Loop

Exit Loop If [ $n>10 ]

フィールド設定 [ mailer::body添付ファイル[$n]; MMPLib_MailTemp::body添付ファイル[$n] ]

変数を設定 [ $n; 値:$n+1 ]

End Loop

フィールドへ移動 [ ]

Else If [ $er = "+UserCancel" ]

#MMPWindowの[キャンセル]ボタンを押した

Exit Loop If [ 1 ]

Else

#エラー

変数を設定 [ $ERROR; 値:$ERROR & If ( IsEmpty ( $ERROR ) ; $er ; ¶ & $er ) ]

End If

End Loop

スクリプト一時停止/続行 [ 間隔（秒）: 1 ]

#ログアウト

スクリプト実行 [ 「logoff」 , ファイル: 「MMPLib」 ]

If [ not IsEmpty ( $ERROR ) ]

カスタムダイアログを表示 [ タイトル: "ERROR!"; メッセージ: "[ERROR:5]以上の場合、メールの受信ができていません。¶¶" & $ERROR; ボタン: 「OK」 ]

End If

フィールドへ移動 [ ]