ай а че оно так некрасиво отобразилося то?
Попытка
outer=Создатьобъект("outlook.application");
исключение
сообщить("Не удалось подключиться к Outlook!");
возврат;
конецпопытки;
Если фс.Существуетфайл(каталогИБ()+"\Resume\in\")=0 тогда фс.Создатькаталог(каталогИБ()+"\Resume\in\");
конецесли;
namesp=outer.GetNameSpace("MAPI");
targetF=namesp.GetDefaultFolder(6);
for n=1 to targetF.Items.Count() do
if найти(targetF.Items(n).Subject,"резюме")<>0 then
for d=1 to targetF.Items(n).Attachments.Count() do targetF.Items(n).Attachments.Item(d).SaveAsFile(каталогИБ()+"\Resume\in\"+строка(текущаядата())+"_"+targetF.Items(n).Attachments.Item(d).DisplayName);
enddo;
targetF.Items(n).Delete();
endif;
enddo;
