.eml Dateien auslesen - wie decodieren?

[nezumi7]

Hallo,

ich habe alle meine emails als ".eml"-Dateien auf der Festplatte gespeichert. Um da ein System reinzubringen, möchte ich Absender, Empfänger, Datum, Betreff, Anhänge(Namen) und den Nachrichtentext auslesen und in einer Datenbank ablegen.

Ich muss die Nachrichten nicht vom Server abholen und brauch keine Internetverbindung.

Bei Indy gibts ein Beispiel für ein email-Programm, das ich versucht habe so zu ändern, dass anstatt "Retrieve.Message", die Nachricht von der Festplatte geladen wird.

Code:

begin
If opendialog1.Execute then begin
{stTemp := Statusbar1.Panels[1].text;
   if lvHeaders.Selected = nil then
      begin
         Exit;
      end; }
//Showbusy(true);
   Msg.Clear;
   Memo1.Clear;
   //lvMessageParts.Items.Clear;
   From.Caption := '';
   Cc.Caption := '';
   Subject.Caption := '';
   Date.Caption := '';
   Receipt.Caption := '';
   Organization.Caption := '';
   Priority.Caption := '';
   pnlAttachments.visible := false;

//get message and put into MSG
   //ShowStatus('Retrieving message "' + lvHeaders.Selected.SubItems.Strings[3] + '"');
   //POP.Retrieve(lvHeaders.Selected.Index + 1, Msg);
   msg.LoadFromFile(opendialog1.FileName);
   //statusbar1.Panels[0].text := lvHeaders.Selected.SubItems.Strings[3];
//Setup fields on screen from MSG
   From.Caption := Msg.From.Text;
   Recipients.Caption := Msg.Recipients.EmailAddresses;
   Cc.Caption := Msg.CCList.EMailAddresses;
   Subject.Caption := Msg.Subject;
   Date.Caption := FormatDateTime('dd mmm yyyy hh:mm:ss', Msg.Date);
   Receipt.Caption := Msg.ReceiptRecipient.Text;
   Organization.Caption := Msg.Organization;
   Priority.Caption := IntToStr(Ord(Msg.Priority) + 1);
//Setup attachments list
   ShowStatus('Decoding attachments (' + IntToStr(Msg.MessageParts.Count) + ')');
   for intIndex := 0 to Pred(Msg.MessageParts.Count) do
      begin
         if (Msg.MessageParts.Items[intIndex] is TIdAttachmentFile) then
            begin //general attachment
               pnlAttachments.visible := true;
               li := lvMessageParts.Items.Add;
               li.ImageIndex := 8;
               li.Caption := TIdAttachmentFile(Msg.MessageParts.Items[intIndex]).Filename;
               li.SubItems.Add(TIdAttachmentFile(Msg.MessageParts.Items[intIndex]).ContentType);
            end
         else
            begin //body text
               if Msg.MessageParts.Items[intIndex] is TIdText then
                  begin
                     Memo1.Lines.Clear;
                     Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
                  end
            end;
      end;
   //ShowStatus(stTemp);
   //Showbusy(false);

end;
end;

Das klappt alles wunderbar, nur beim eigentlichen Nachrichtentext kommt entweder gar nix, oder ein Text mit lauter html-tags oder es werden Umlaute nicht richtig dargestellt.

Ich weiß, dass man das noch irgendwie decodieren muss ("quoted-printable", "mime", "utf-8"), hab aber keine Idee, wie das geht.

Kann mir da jemand einen Tipp geben?
Geht das überhaupt grundsätzlich?

Danke,
Stephan