как это сделать.. кто-то работал с 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
