Outlook) (Items.ItemAdd 事件

會在一個或多個項目新增至指定的集合時發生。 同時將大量的項目新增至資料夾時，不會執行這個事件。 Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

語法

expression。 ItemAdd ( 專案 )

表達 代表 Items 物件的變數。

參數

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

範例

在此 Visual Basic for Applications (VBA) 範例中，當新連絡人新增至 [ 連絡人 ] 資料夾時，連絡人項目會附加至電子郵件訊息，並傳送至名為 「Sales Team」 的通訊群組清單。範例程式碼必須放在類別模組中，而且 Initialize_handler 必須先呼叫常式，Microsoft Outlook 才能呼叫事件程序。

Public WithEvents myOlItems As Outlook.Items 

Public Sub Initialize_handler() 
 
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items 
 
End Sub 
 

Private Sub myOlItems_ItemAdd(ByVal Item As Object) 
 
 Dim myOlMItem As Outlook.MailItem 
 
 Dim myOlAtts As Outlook.Attachments 
 
 Set myOlMItem = myOlApp.CreateItem(olMailItem) 
 
 myOlMItem.Save 
 
 Set myOlAtts = myOlMItem.Attachments 
 
 ' Add new contact to attachments in mail message 
 
 myOlAtts.Add Item, olByValue 
 
 myOlMItem.To = "Sales Team" 
 
 myOlMItem.Subject = "New contact" 
 
 myOlMItem.Send 
 
End Sub

支援和意見反應

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