Mail angang mit Indy empfangen

[snapman]

habs selber gefunden!!
das indy demo in den delphi demos geht, das auf der HP von indy nicht!!


{display message parts we selected}
if lvMessageParts.Selected <> nil then
begin
if lvMessageParts.Selected.Index > Msg.MessageParts.Count then
begin
MessageDlg('Unknown index', mtInformation, [mbOK], 0);
end
else
begin
for i := 0 to Msg.MessageParts.Count - 1 do begin
if Msg.MessageParts.Items[i] is TIdAttachment then begin
if SaveDialog1.Execute then
TIdAttachment(Msg.MessageParts.Items[i]).SaveToFile(
SaveDialog1.FileName);
break;
end;
end;
end;
end;