Hallo, ich habe folgendes Problem was ich einfach nicht lösen kann.
Das Prog soll nur bestimmte emails abrufen, z.b.: Betreff: "USER ID blabla", und gleich löschen.
Ich habs bis hierhin geschafft:
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
begin
Memo1.Clear;
edit1.Clear;
try
IdPOP31.Host :='pop.gmx.net';
IdPOP31.Userid:='xxxx';
IdPOP31.Password:='xxxx';
IdPOP31.Connect;
IdMessage1.NoDecode := true;
if IdPOP31.Retrieve(1, IdMessage1) then
begin
if Form4.IdMessage1.Subject=('USER ID BlaBla') then begin
Memo1.text:=(idMessage1.Body.GetText);
Edit1.Text:=(idMessage1.From.Name);
end
end
finally
IdPOP31.Disconnect;
end;
end;
end.
Jetzt ist die Frage wie man die Email mit dem Betreff vom Server löscht.
Hab Ihr noch ein Tipp?
MfG dave