Сканирование почтовых ящиков в Outlook

[theoldmelnik]

День добрый,

при написание макроса, возникла проблема...
Вообщем:
Есть Outlook 2007 в нем разные почтовые ящики(допустим- проект А, группа 49 и так далее названия разные) помимо дефолтного,
как получить доступ к определенному ящику я знаю, но проблема в том что макрос будут использовать разные люди с разными ящиками и вот тут проблема. как можно средствами VBA или C# определить какие ящики есть и получить доступ к письмам в них для дальнейшей работы...

Буду благодарен за любую подсказку и помощь !

Всем добра и много Чегото " Dim Чегото As выберайте сами " ))))

[27102014]

Добрый день!
Посмотрите здесь
http://www.askit.ru/custom/vba_offic...der_object.htm

По осени писал макрос для проверки почтового ящика "Входящие", извлечения из новых писем вложения в формате PDF и распечатывания на принтере. Для доступа к папке входящие использовал вот такой код

Set myFolder = Outlook.Application.GetNamespace("M API").GetDefaultFolder(olFolderInbo x)

Подскажите, пжл, как Вы подключаетесь к какой-то конкретной папке?

[alex77755]

Например, так

Set inbox = oNamespace.Folders(1).Folders("Сотрудники").Folders("Галустян")

[theoldmelnik]

Сообщение от alex77755

Например, так

Set inbox = oNamespace.Folders(1).Folders("Сотрудники").Folders("Галустян")

Данный вариант мне известен но, он предпологает прописывать папки, а я не знаю какие будут папки. так что макрос должен сам находить все почтовые ящики на аккаунте пользователя.

[IgorGO]

Данный вариант мне известен

в таком случае Вам должно быть известно, что к элементу коллекции можно обратиться по имени или по индексу (номеру)

[alex77755]

Подскажите, пжл, как Вы подключаетесь к какой-то конкретной папке?

Этот вопрос подразумевает, что имя конкретной папки известно.
Ставьте вопросы корректней
Перебрать все папки

Sub QWERT()
Dim oNamespace As Outlook.NameSpace
Dim inbox As Outlook.MAPIFolder
Dim MyFol As Outlook.MAPIFolder
Dim oOutlook As New Outlook.Application

Set oNamespace = oOutlook.GetNamespace("MAPI")

For Each MyFol In oNamespace.Folders ' перебор всех папoк
    Debug.Print MyFol.Name
    For Each inbox In MyFol.Folders  ' перебор всех папoк
        Debug.Print inbox.Name
    Next
Next
End Sub

[theoldmelnik]

Сообщение от IgorGO

в таком случае Вам должно быть известно, что к элементу коллекции можно обратиться по имени или по индексу (номеру)

а как программно определить это индекс или номер?

[IgorGO]

to folders.count

[theoldmelnik]

Сообщение от alex77755

Этот вопрос подразумевает, что имя конкретной папки известно.
Ставьте вопросы корректней
Перебрать все папки

Sub QWERT()
Dim oNamespace As Outlook.NameSpace
Dim inbox As Outlook.MAPIFolder
Dim MyFol As Outlook.MAPIFolder
Dim oOutlook As New Outlook.Application

Set oNamespace = oOutlook.GetNamespace("MAPI")

For Each MyFol In oNamespace.Folders ' перебор всех папoк
    Debug.Print MyFol.Name
    For Each inbox In MyFol.Folders  ' перебор всех папoк
        Debug.Print inbox.Name
    Next
Next
End Sub

Спасибо огромное, немного переработал код и получилось то что надо !!!!