共用方式為

Outlook) (Items.ItemChange 事件

  • 發行項

會在變更所指定之集合的項目時發生。 Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

語法

expression。 ItemChange( _Item_ )

表達 代表 Items 物件的變數。

參數

名稱 必要/選用 資料類型 描述
項目 必要 Object 已變更的項目。

範例

此範例會使用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

另請參閱

Items 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。