Alle IP-Adressen aus einem e-Mail-Header auslesen, aber wie?

[DanielF]

Danke habs schon

Delphi-Quellcode:

procedure ExtractIPs (const AInputString : string; stringliste: TStringList);

 const
  IPRE = '[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}';
 var
  r : TRegExpr;
 begin
  stringliste.Clear;

  r := TRegExpr.Create;

  try
     r.Expression := IPRE;
     if r.Exec (AInputString) then
      REPEAT
       stringliste.Add(r.Match [0]);
      UNTIL not r.ExecNext;
    finally r.Free;
   end;
 end;

Ich schreibe nämlich gerade ein Tool, das anhand von DNS Blacklists Spam aus Imap- und Pop3-Accounts ausließt und dann nach Wunsch löscht.