Событие Items.ItemChange (Outlook)

Статья
04/07/2023

Происходит при изменении элемента в указанной коллекции. Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Синтаксис

выражение. ItemChange( _Item_ )

Выражение Переменная, представляющая объект Items .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Элемент	Обязательный	Object	Измененный элемент.

Пример

В этом примере используется свойство Start объекта AppointmentItem , чтобы определить, начинается ли встреча после обычного рабочего времени. Если это так, а для свойства Sensitivity объекта AppointmentItem еще не задано значение olPrivate, в примере предлагается пометить встречу как частную.

Public WithEvents myOlItems As Outlook.Items 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items 
 
End Sub 
 
 
 
Private Sub myOlItems_ItemChange(ByVal Item As Object) 
 
Dim prompt As String 
 
 If VBA.Format(Item.Start, "h") >= "17" And Item.Sensitivity <> olPrivate Then 
 
 prompt = "Appointment occurs after hours. Mark it private?" 
 
 If MsgBox(prompt, vbYesNo + vbQuestion) = vbYes Then 
 
 Item.Sensitivity = olPrivate 
 
 Item.Display 
 
 End If 
 
 End If 
 
End Sub

См. также

Объект Items

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через