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.
Zitat
Baum-Darstellung
