Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook 2007. Перейти в папку элемента / 8 сообщений из 8, страница 1 из 1
14.10.2009, 10:39
    #36249628
Максим-кабан
Максим-кабан
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Добрый день.

Хочу упростить переход из папок поиска Outlook в родительскую папку текущего элемента (например, письма). Для этого пытаюсь написать макрос. Не могу понять, как активировать известную папку, то есть сделать так, как будто я на нее кликнул мышкой в области переходов.

Пока получилось вот так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub GoToParent()
	With Outlook.Application.ActiveExplorer.Selection
		If .Count >  0  Then
			.Item( 1 ).Parent.Display
		End If
	End With
End Sub

но мне нужно, чтобы переход был в текущем окне, а не создавалось новое.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 12:26
    #36250062
MaximuS_G
MaximuS_G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Фуф... Минут 30 искал :) F1 + Google + Логика + Желание найти = Результат...
Значит Вам нужно свойство CurrentFolder для ActiveExplorer...
Вот код прям из справки (F1):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub ChangeCurrentFolder()
    Dim s As Object
    Dim myolApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set s = myNamespace.GetDefaultFolder(olFolderCalendar)
    s.Display
    Set myolApp.ActiveExplorer.CurrentFolder = _ 
    myNamespace.GetDefaultFolder(olFolderCalendar)
End Sub

Вот адаптированный код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub GoToParent()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
    With Outlook.Application.ActiveExplorer.Selection
        If .Count >  0  Then
'       MsgBox .item(1).Parent.DefaultItemType 'здесь проверьте,
'       возвращает ли правильный тип (отличный от 0) родительской папки
'       Следующая строчка - очень важно: обязательно нужен Set
        'так как задается свойство для ОБЪЕКТА
        Set myolApp.ActiveExplorer.CurrentFolder = _
        myNamespace.GetDefaultFolder(.item( 1 ).Parent.DefaultItemType)
        End If
    End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 12:52
    #36250168
Максим-кабан
Максим-кабан
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Респектище. Я при тех же составляющих результата потратил 90 минут, залез в дебри NavigationPane и отчаялся.

Вместо GetDefaultFolder сразу присвоил .item(1).Parent; тип в неупрощенном варианте проверяется.

Огромное спасибо за подключение Вашего мозга и желание помочь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 13:06
    #36250216
MaximuS_G
MaximuS_G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Вместо GetDefaultFolder сразу присвоил .item(1).Parent; тип в неупрощенном варианте проверяется.
Вот так что-ли:
Код: plaintext
Set myolApp.ActiveExplorer.CurrentFolder = .item( 1 ).Parent

Максим-кабан...переход из папок поиска Outlook...
У меня вопрос...
Тоесть Вы программно искали элементы ? Метод AdvancedSearch использовали?
Просто когда-то пытался разобраться с этим методом, но не до конца разобрался... Подумал может что проясните... Искал здесь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 13:39
    #36250344
Максим-кабан
Максим-кабан
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
MaximuS_GВот так что-ли:
Код: plaintext
Set myolApp.ActiveExplorer.CurrentFolder = .item( 1 ).Parent

Да, именно так.

MaximuS_GМаксим-кабан...переход из папок поиска Outlook...
У меня вопрос...
Тоесть Вы программно искали элементы ? Метод AdvancedSearch использовали?
Просто когда-то пытался разобраться с этим методом, но не до конца разобрался... Подумал может что проясните... Искал здесь
Нет, папки поиска я создаю интерактивно, а об AdvancedSearch я узнал только что, поэтому, к сожалению, помочь с тем вопросом не смогу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 13:56
    #36250404
MaximuSG_
MaximuSG_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Максим-кабан...папки поиска я создаю интерактивно...
Это как ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 14:12
    #36250470
Максим-кабан
Максим-кабан
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Вот так.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2009, 14:19
    #36250494
MaximuS_G
MaximuS_G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook 2007. Перейти в папку элемента
Ок. Спасибо. Посмотрю.
И еще, хотел бы добавить (порекоммендовать) - используйте Object Browser. Сам недавно начал там искать если что - помогает :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook 2007. Перейти в папку элемента / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 727ms
Закрыть
start [/forum/search_topic.php?author=DRCB&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 20ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 150ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 466ms
total:  727ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]