IdPOP3でメールチェックし送信者を知りたいがエラー (ID:35740)

名前

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

本文

メールチェッカーの作成に挑戦しています。
機能はIdPOP3で新規メールの有無をチェックして有ったら
送信者だけを知りたいと考えています。（複数も）

環境はWindowsXP Pro  Delphi 6 Personalです。
PersonalにはIndyが付いていないので10.0.52をＤＬしてインストールしました。
Indyを使用した他のサンプルソースを動かしてみたら動きました。

起動するときに次のようなエラーが出ます。
Exception EReadError in module Project1.exe at 0002097B.
IdPOP31.MaxLineAction の読み込み中のエラー : プロパティが存在しません.

すみません、この内容が理解できません。
どうなっているのか教えて頂けませんか。
よろしくお願いいたします。
procedure TForm1.Button1Click(Sender: TObject);
var
  Msg : TIdMessage;
  i, x : integer;
  s : string;
begin
  IdPOP31.Host    :=  '***.****.yahoo.co.jp';
  IdPOP31.Port    :=  110;
  IdPOP31.UserName  := '***********';
  IdPOP31.Password:=  'xxxxxxxxxxxx';
  IdPOP31.Connect;
  for i :=  1 to  IdPOP31.CheckMessages do  begin
    Msg :=  TIdMessage.Create(Self);
    IdPOP31.Retrieve(i, Msg);
    Memo1.Lines.Add(Msg.Subject);
    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;
        Memo1.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT));
      end;
    end;
  end;
  IdPOP31.Disconnect;
end;

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

戻る