INDY - атачменты...
Добавлено: Пт янв 30, 2004 17:40
не могу никак добратса до атачмента...
как это сделать.. кто-то работал с idMessage
Msg.MessageParts.Count всегда 0 хоть если смотрим на само письмо атач виден.
как это сделать.. кто-то работал с idMessage
Код: Выделить всё
for intIndex := 1 to inMsgCount do
begin
Application.ProcessMessages;
msg.Clear;
POP.RetrieveHeader(intIndex, msg);
if IsWordPresent('REPLICATION', msg.Subject,[' ']) then
begin
Msg.MessageParts.CountParts;
for intParts := 0 to Msg.MessageParts.Count-1 do
if (Msg.MessageParts.Items[intParts] is TIdAttachment)
then
begin
ShowMessage(TIdAttachment(Msg.MessageParts.Items[intParts]).Filename);
end