naja wüsste jetzt nicht wie ichs abspecken soll damit es nacher auch noch funktioniert, die mailabruffunktion ist ja nur ein kleiner teil eines ganzen...
hier mal der eigentliche codeteil in dem es ums auswerten geht.
mail wurde vorher mit pop.retrive(indexnr, IdM) runtergeladen. IdM ist die messagekompo. dann wird die procedure aufgerufen mit dem parameter IdM.
Delphi-Quellcode:
procedure Mailauswertung(PMessage: TIdMessage);
var Liste : TStringlist;
i : word;
begin
Liste := TStringList.Create;
if PMessage.MessageParts.Count = 0 then
begin
Liste.AddStrings(PMessage.Body); // reine textmail ohne attachment, keine mime-mail!!!!
end
else
begin
for i := 0 to Pred(PMessage.MessageParts.Count) do
begin
if (PMessage.MessageParts.Items[i] is TIdAttachment) then
begin
Zeit := FormatDateTime('yy-mm-dd_hh-nn-ss',now);
TIdAttachment(PMessage.MessageParts.Items[i]).SaveToFile('c:\Kartenmotive\' + Zeit + '_' + TIdAttachment(PMessage.MessageParts.Items[i]).FileName);
end
else
begin
if PMessage.MessageParts.Items[i] is TIdText then
begin
Liste.AddStrings(TIdText(PMessage.MessageParts.Items[i]).Body);
end;
end;
end;
end;
.
.
.
Liste.free;
end;