вопрос по VBA в Outlooke

sgnik

есть три письма с большим кол-вом аттачментов, как написать скрипт, что бы он сохранил все аттачменты из этих писем в указанную папку?

sergei1969

а надавить Save Attachments ?

sgnik

3 письма по 40 аттачментов, но каждый аттачмент - это тоже письмо с 2-3 аттачментами, вот их на самом деле и надо сохранить, но я облегчил пока задачу...
то есть все равно вернемся к вопросу когда есть 120 писем и надо из всех из них извлечь аттачменты

sgnik

вроде разрюхал все
осталось понять как в word.Application через inlineshapes(k) обратиться к открывшемуся объекту, вот например я сделал
inlineshapes(k).Activate открылось окно для правки данного вложения и как получить теперь доступ к этому окну...
ну кто-нибудь работал с ВБА?

a10063

см. Outlook.Attachments Collection Object, Outlook.Attachment.SaveAsFile Method

sgnik

я это разрюхал, тут в другом вопрос
почему:
worddoc.inlineShapes(k).OleFormat.DoVerb работает нормально (то есть вложение-письмо нормально открывается)
а попытка выполнить это:
set myobj=worddoc.inlineShapes(k).OleFormat.Object выдает ошибку 430
и вообще никак к inlineshape(k) как к OLE объекту не обратиться...

a10063

set myobj=worddoc.inlineShapes(k).OleFormat.Object выдает ошибку 430
и вообще никак к inlineshape(k) как к OLE объекту не обратиться...

смирись
430 - это значит, что он не поддерживает автоматизацию
можешь послать гневное письмо Биллу

sgnik

спасибо, хоть один дельный ответ
я тоже уже разобрался и даже понял как это обойти
все равно сенкс