mails kontrollieren

[SirThornberry]

also folgendes funktioniert bei gmx (mail.gmx.net):

Delphi-Quellcode:

var LMsgCount, LCount: Integer;
    LMsg: TIdMessage;
    LItem: TListItem;
begin
  ListView1.Clear;
  IdPOP3.Username := Edit1.Text;
  IdPOP3.Password := Edit2.Text;
  if not IdPOP3.Connected then IdPOP3.Connect(10000);
  LMsgCount := IdPop3.CheckMessages;

  LMsg :=  TIdMessage.Create(nil);
  for LCount := 0 to LMsgCount - 1 do
  begin
    LMsg.Clear;
    IdPOP3.Retrieve(LCount, LMsg);
    LItem := ListView1.Items.Add;
    LItem.Caption := LMsg.MsgId;
    LItem.SubItems.Add(LMsg.Subject);
    LItem.SubItems.Add(LMsg.From.Address);
    LItem.SubItems.Add(LMsg.ReplyTo.EMailAddresses);
    LItem.SubItems.Add(LMsg.Recipients.EMailAddresses);
  end;
  LMsg.Free;
  IdPOP3.Disconnect;