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

名前

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

本文

質問させて頂きます。

Delphiをまだ初めてまもないのですが、メールの受信プログラムを作りたくて過去トピを拝見させて頂き、メール受信のプログラムは完成できたのですが、未読メールを一件しか読みとりません。
そこで質問なのですが、受信メールの一覧を表示してクリックするとメールを開くことができるようなプログラムを作りたいのですが、具体的なプログラムを教えて頂けないでしょうか。
私自信でも色々調べてはみたのですが、ピンポイントで書かれたものがなく分かりませんでした。

環境はDelphi7です。
メール受信のプログラムはこちらです。

procedure TForm1.btnReceptionClick(Sender: TObject);
var
  Msg : TIdMessage;
  i, x: integer;
  s : string;
begin
  memo1.Lines.Clear;
  IdPOP31.Host    :=  '********';
  IdPOP31.Port    :=  ***;
  IdPOP31.Username  :=  '******';
  IdPOP31.Password :=  '******';
  IdPOP31.Connect;
  for i :=  1 to  IdPOP31.CheckMessages do  begin
    Msg :=  TIdMessage.Create(Self);
    IdPOP31.Retrieve(i, Msg);

memBody.Lines.Add(Msg.Subject{タイトル});
    memBody.Lines.Add(Msg.From.Text{送信者});
    memBody.Lines.Add(datetostr(msg.Date{送信日}));
    //Memo1.Lines.Add(Msg.Headers.Strings[6]{送信日時});

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;

end;
  IdPOP31.Disconnect;
end;

end;

初歩的な質問ですいませんが、よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る