メールの一覧を表示するには？ (ID:36828)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >表示されるのが一番最新のメールだけになってるみたいです。 > for i := 1 to IdPOP31.CheckMessages do begin のfor 文で、件数分 受信していると思いますので、 > for x := 0 to Pred(Msg.MessageParts.Count) do begin > if Msg.MessageParts.Items[x] is TIdText then begin > s := TIdText(Msg.MessageParts.Items[x]).Body.Text; > memBody.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT)); > end; の後あたりで、（リストやデータベースに格納したりして） データを取り出せばよいかと思います。