Results.ItemChange イベント (Outlook)

特定のコレクション内のアイテムが変更されると発生します。

構文

式。 ItemChange( _Item_ )

表現Results オブジェクトを表す変数。

パラメーター

解説

このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

例

この例では、AppointmentItem オブジェクトの Start プロパティを使用して、通常の営業時間後に予定が開始されるかどうかを判断します。 その場合、AppointmentItem オブジェクトの Sensitivity プロパティがまだ 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

関連項目

結果オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。