Indy Mail Mime Problem

[heldvomfeld]

Hallo

Ich habe einen MailClient mit den Indy Komponenten unter Delphi 6 erstellt und nun ein Problem festgestellt wenn ich Mime Mails erhalte in diesem Falle jedoch nur die die von eBay automatisch erstellt wurden..
Der Text wird als Mime Anhang mitgeschickt sowohl in Plain als auch in Html allerdings erhält TIDMessageParts dies immer als TIDAttachment und nicht als TIDText und dieses Attachment lässt sich nicht mal als Text Datei speichern und ich weiß jetzt nicht wie ich auf den Mime Text zugreifen kann.

Hier einmal der Code:

Code:

 for p := 0 to EMail.MessageParts.Count-1 do
  begin
    if (EMail.MessageParts.Items[p] is TIdText) then
    begin
      F_main.Q_MailPLAIN.AsString := (EMail.MessageParts[p] as TIdText).Body.Text;
    end
    else
    if (EMail.MessageParts.Items[p] is TIdAttachment) then
    begin
      with EMail.MessageParts[p] as TIdAttachment do
      begin
       // Message part is an attachment
        F_main.Q_MailANHANG.AsString := 'J';
        AttachmentFileName := ExtractFilePath(Application.ExeName) + F_main.Q_MailID.AsString + '\' + FileName;
        if DirectoryExists(ExtractFileDir(AttachmentFileName)) = false then
          CreateDir(ExtractFileDir(AttachmentFileName));
        if FileExists(AttachmentFileName) then
          F_main.Q_MailANHAENGE.AsString := F_main.Q_MailANHAENGE.AsString + AttachmentFileName + ';'
        else
        if SaveToFile(AttachmentFileName) then
          F_main.Q_MailANHAENGE.AsString := F_main.Q_MailANHAENGE.AsString + AttachmentFileName + ';';
      end;
    end;
  end;

Ich hab auch schon probiert den Anhang zu wandeln bekomm aber immer die Meldung unterschiedliche Typen

Code:

      s1 := EMail.MessageParts[p].ContentType;
      if pos('TEXT/PLAIN',UpperCase(s1)) > 0 then
        F_main.Q_MailPLAIN.AsString := (EMail.MessageParts.Items[p] as TIdText).Body.Text;

Ich hoffe damit kann mir jemand helfen.