Function ListOLTasks()
'список задач
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderTask As Outlook.MAPIFolder
Dim OL_ItemTask As Outlook.TaskItem
Dim RecipientTask As Recipient
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку задач
Set OL_FolderTask = OL_NameSpace.GetDefaultFolder(olFolderTasks)
' перебираем все задачи в папке
For Each OL_ItemTask In OL_FolderTask.Items
  With OL_ItemTask
'для задачи выводим тему, описание, дату начала, срок исполнения, дату выполнения и исполнителей
     Debug.Print "Tema: " & .Subject
     Debug.Print "Описание: " & .Body
     Debug.Print "Начало: " & .StartDate
     Debug.Print "Срок: " & .DueDate
     Debug.Print "Выполнена: " & .DateCompleted
     Debug.Print "Исполнители: " & .Owner
'если коллекция получателей не пустая, то выводим список получателей задачи
     If .Recipients.Count > 0 Then
      Debug.Print "Адреса получателей: ";
          For Each RecipientTask In .Recipients
             Debug.Print RecipientTask.Address;
          Next
     End If
   End With
   Debug.Print
   Debug.Print "_______________________________________________"
Next
End Function

Function ListOLContacts()
'спиcок Контактов
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderContsct As Outlook.MAPIFolder
Dim OL_ItemContact As Outlook.ContactItem
Dim OL_Attachment As Outlook.AddressEntry
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
'получаем ссылку на папку "Контакты"
Set OL_FolderContsct = OL_NameSpace.GetDefaultFolder(olFolderContacts)
' перебираем все контакты в папке
  For Each OL_ItemContact In OL_FolderContsct.Items
   With OL_ItemContact
'выводим имя, 3 возможных E-mail, домашний и моблиный телефоны
    Debug.Print "Имя: " & .Subject
    Debug.Print "E-mai №1: " & .Email1Address
    Debug.Print "E-mai №2: " & .Email2Address
    Debug.Print "E-mai №3: " & .Email3Address
    Debug.Print "Домашний телефон: " & .HomeTelephoneNumber
    Debug.Print "Мобильный телефон: " & .MobileTelephoneNumber
   End With
   Debug.Print "_______________________________________________"
  Next
End Function

Function ListOLMeeting()
'список встреч назначенных на следующую неделю
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderCalendar As Outlook.MAPIFolder
Dim OL_CalendarItems As Outlook.Items
Dim OL_MeetingItem As Object
Dim OL_Attendee As Recipient
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку календарь
Set OL_FolderCalendar = OL_NameSpace.GetDefaultFolder(olFolderCalendar)
'используя метод Restrict отбираем только те записи
'у которых свойство start > больше сегодняшней даты и меньше чем сегодня плюс 7 дней
' т.е. те которые назначены на след неделю
Set OL_CalendarItems = OL_FolderCalendar.Items.Restrict("[start]> '" & Date & "' And [start] <= '" & Date + 7 & "'")
  For Each OL_MeetingItem In OL_CalendarItems ' перебираем все отобранне записи
   With OL_MeetingItem
' если найденная запись - встреча то выводит информацию о
    If .Class = olAppointment Then
     Debug.Print "Tema: " & .Subject
     Debug.Print "Описание: " & .Body
     Debug.Print "Начало: " & .Start
     Debug.Print "Продолжительность: " & .Duration & " мин."
     Debug.Print "Место встречи: " & .Location
'если коллекция участников получателей не пустая, то выводим список участников
     If .Recipients.Count > 0 Then
      Debug.Print "Приглашены: ",
          For Each OL_Attendee In .Recipients
               Debug.Print OL_Attendee.Name; "; ";
          Next
     End If
    End If
   End With
    Debug.Print
    Debug.Print "_______________________________________________"
   Next
End Function

Function OpenExistOLContacts(strNameContact AsString)
'Открывает существующий контакт в имени которых содержится переданное значение
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderContsct As Outlook.MAPIFolder
Dim OL_ItemContact As Outlook.ContactItem
Dim OL_Attachment As Outlook.AddressEntry

Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_NameSpace = OL_App.GetNamespace("MAPI") 'получаем Namespace
'получаем ссылку на папку "Контакты"
Set OL_FolderContsct = OL_NameSpace.GetDefaultFolder(olFolderContacts)
  For Each OL_ItemContact In OL_FolderContsct.Items ' перебираем все контакты в папке
' если заголовок контакта содержит искомую строку, то открываем его
   If InStr(1, OL_ItemContact.Subject, strNameContact) Then OL_ItemContact.Display
Next
End Function

Function OpenExistOLTasks()
'Открывает все не закрытые задачи
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderTask As Outlook.MAPIFolder
Dim OL_ItemTask As Outlook.TaskItem
Dim RecipientTask As Recipient

Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_NameSpace = OL_App.GetNamespace("MAPI") 'получаем Namespace
' получаем ссылку на папку задач
Set OL_FolderTask = OL_NameSpace.GetDefaultFolder(olFolderTasks)
  For Each OL_ItemTask In OL_FolderTask.Items ' перебираем все задачи в папке
    If OL_ItemTask.Status <> olTaskComplete Then OL_ItemTask.Display
  Next
End Function

Function ViewOLTasks()
'Выводит список View доступных для папки задачи и
'открывает список задач c применением случайного доступного вида
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderTask As Outlook.MAPIFolder
Dim OL_View As View
Dim I AsInteger
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку задач
Set OL_FolderTask = OL_NameSpace.GetDefaultFolder(olFolderTasks)
With OL_FolderTask
' перебираем все доступные для папки виды (Views)
  Debug.Print "Доступные виды:"
  For Each OL_View In .Views
     Debug.Print OL_View.Name
   Next
' поучаем случаное число
   Randomize
   I = Int(.Views.Count * Rnd()) + 1
   OL_FolderTask.Views(I).Apply 'применяем выбранный вид
   .Display 'открываем окно в папкой "Задачи"
End With
'для примера получим значение CurrenView через объект Explorer
Debug.Print "Установлен вид - " & OL_App.ActiveExplorer.CurrentView

End Function