Im Moment hab ich das so gelöst:
Delphi-Quellcode:
pop.AuthType:=POP3AuthAll;
pop.login;
pop.stat;
msgc:=pop.StatCount;
pop.list(0);
pop.Retr(1);
//pop.Top(1,0);
//memo1.lines.Assign(pop.FullResult);
//msgid:=findmsg(pop.FullResult,'Subject:');
msgtext.Caption:=pop.FullResult.Strings[19];
msgcount.Caption:=IntToStr(msgc);
//pop.Dele(1);
pop.logout;
Im Index 19 befindet sich bei meinen Testmails das Subject.
Kann man sich darauf verlassen oder ändern sich die Header, je nach Provider?
Das auskommentierte 'findmsg' ist eine Funktion die in der Stinglist
den String 'Subject:' finden soll und den Index zurückliefert.
Funktioniert aber irgendwie nicht...
Delphi-Quellcode:
function findmsg(const AStrings: TStrings; const AText: String;
CaseFlag: Boolean=False): Integer;
var
I, C: Integer;
begin
Result := AStrings.IndexOf(AText);
if CaseFlag then
begin
C := Result;
Result:=-1;
for I:=C to AStrings.Count-1 do
if AText=AStrings[I] then
begin
Result:=I;
Break;
end;
end;
end;
Dann hätte ich auf jeden Fall den richtigen Index.
Kann mir jemand einen Tipp geben?
Grüße