Sub MakeTentative ()
Тусклое objItem как предмет
Установите objItem = GetCurrentItem ()
Если не objItem TypeOf будет AppointmentItem после этого
MsgBox («не назначение»)
Выходите подводная лодка
Закончитесь если
Установите objItem.BusyStatus = 1
objItem.Save
Закончите подводную лодку
Функция GetCurrentItem () как предмет
Тусклое objApp как Outlook.Application
Установите objApp = применение
На ошибке возобновьте затем
Выберите случай TypeName (objApp.ActiveWindow)
Покрывайте «исследователь»
Установите GetCurrentItem = objApp.ActiveExplorer.Selection.Item (1)
Покрывайте «контролера»
Установите GetCurrentItem = objApp.ActiveInspector.CurrentItem
Покрывайте еще
Закончите отборное
Закончите функцию
|