Hallo ich versuche mit den
Indy 9 Kompos Mails zu empfangen und in einem Listview die Infos (Absender, Größe ect.) darzustellen.
So weit kein Problem Leider klappt das mit den Spechern nicht so ganz iwe ich mir das vorstelle !
Ich möchte alle Mails mit oder ohne Anhang bei dem Empfang speichern und wie in OutlookExpress bei dem nächsten Start des Programm's die Mails wieder im Listview einlesen.
Wenn die Mails gelöscht werden, sollen wie Anhänge auch mit gelöscht werden.
Wenn ich die Mails als txt Speichere, sehe ich die Infos (Absender ect.) aber nicht den Text oder ob es einen Anhang gibt oder nicht ! und wo ist der Anhang ?
Hier mal mein DelphiCode:
Delphi-Quellcode:
with HauptForm do
begin
POP.Host := POPHost;
POP.Port := POPPort;
POP.Username := POPUser;
POP.Password := POPPwd;
Application.ProcessMessages;
POP.Connect;
MailCount := POP.CheckMessages;
Mailgroesse := POP.RetrieveMailBoxSize div 1024;
StatusBar1.Panels.Items[0].Text := 'Anzahl Mails: ' +
IntToStr(MailCount) + ' Grösse: ' + IntToStr(MailGroesse);
for intIndex := 1 to MailCount do
begin
msg.Clear;
POP.RetrieveHeader(intIndex, Msg);
itm := Listview1.Items.Add;
itm.Caption := Msg.From.Text;
itm.SubItems.Add(Msg.Subject);
itm.SubItems.Add(inttostr(ord(Msg.Priority)));
itm.SubItems.Add('ANHANG');
itm.SubItems.Add(DateToStr(Msg.Date));
itm.SubItems.Add(TimeTostr(Msg.Date));
if itm.SubItems.Add(IntToStr(POP.RetrieveMsgSize(intIndex) div 1024) +
' K-Bytes') = 0 then
itm.SubItems.Add(IntToStr(1) + ' K-Bytes');
Msg.SaveToFile(ExtractFilePath(Application.ExeName) +
'/Mail-In/Projekt-Mail' + IntToStr(intIndex) + '.eml');
end;
POP.Disconnect;
...
...