Открыть Attachments в Outlook

[BitER]

Подскажите пожалуйста, как открывать attachments в Outlook.
Например, мой код

Set myAttachments = MyLetters.Attachments

For n = 1 To myAttachments.Count

If Right(myAttachments.Item(n).FileName, 3) = "xls" Then
xlobj.workbooks.Open (myAttachments.Item(n).FileName)
..............
Next n

не работает. Ошибка - не найден файл

[Nicky]

MsgBox myAttachments.Item(n).FileName

[BitER]

Нет. FileName = имя Аттачмента. Более того, поле PathName = "".

А ошибка сохраняется. Здесь нужно другое решение.

[inq]

Его, наверное, сохранить вначале нужно куда-нить... А потом в Екселе открывать.

[Nicky]

Под

MsgBox myAttachments.Item(n).FileName

я имел в виду "посмотри, что у тебя в FileName". Если имя файла без пути, то как же он его тебе откроет. Подставляй путь до папки с аттачментами. Если же файла нет, то должен быть метод извлечения файла из аттачмента

[inq]

должен быть метод извлечения файла из аттачмента

Код: Выделить всё

myAttachments.Item(n).SaveAsFile(Path)

[Nicky]

2 ing
за неимением аутлука не было возможности посмотреть самому