Indy 10 Email anhang speichern (outlook indy)

[itashadow]

hat sich erledigt...

outlook hängt anscheinend noch daten als messagepart ran...

so klappts:

Delphi-Quellcode:

 
try
  for y := 0 to HintergrundForm1.IDMessage1.MessageParts.Count -1do
  if (HintergrundForm1.IDMessage1.MessageParts[y] is TIdAttachment) then begin
    TIdAttachmentMemory(HintergrundForm1.IDMessage1.MessageParts.Items[y]).SaveToFile(pfad + HintergrundForm1.IDMessage1.Subject); 
  end ;
  except
end;