|
25.10.2011, 14:43 | #1 |
Участник
|
для 11 версии в хелпе по VBA для аутлука нашел:
Код: Sub DisplayATaskFolder() Dim myolApp As Outlook.Application Dim myNamespace As Outlook.NameSpace Dim myTasks As Outlook.MAPIFolder Dim myFolder As Outlook.MAPIFolder Set myolApp = CreateObject("Outlook.Application") Set myNamespace = myolApp.GetNamespace("MAPI") Set myTasks = myNamespace.GetDefaultFolder(olFolderTasks) Set myFolder = myTasks.Folders(1) myFolder.Display End Sub |
|
25.10.2011, 14:50 | #2 |
Участник
|
Цитата:
будем копать дальше Но я не прощаюсь. Полагаю, вопросы еще будут и немало |
|