Items.ItemRemove イベント (Outlook)

特定のコレクションからアイテムが削除されると発生します。

構文

式。 ItemRemove

式Items オブジェクトを表す変数。

注釈

個人用フォルダー ファイル (.pst) 内の最後のアイテムが削除された場合、あるいは PST ファイル、Microsoft Exchange メールボックス、または Exchange パブリック フォルダーから一度に 16 個以上のアイテムが削除された場合は発生しません。 このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

例

この Microsoft Visual Basic for Applications (VBA) の例では、ユーザーが既定の連絡先フォルダーから連絡先を削除するときに、必要に応じてワークグループに通知メッセージを送信します。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Public WithEvents myOlItems As Outlook.Items 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items 
 
End Sub 
 
 
 
Private Sub myOlItems_ItemRemove() 
 
 Dim myOlMItem As Outlook.MailItem 
 
 If MsgBox("Do you want to notify the Sales Team?", vbYesNo + vbQuestion) = vbYes Then 
 
 Set myOlMItem = Application.CreateItem(olMailItem) 
 
 myOlMItem.To = "Sales Team" 
 
 myOlMItem.Subject = "Remove Contact" 
 
 myOlMItem.Body = "Remove the following contact from your list:" 
 
 myOlMItem.Display 
 
 End If 
 
End Sub

関連項目

Items オブジェクト

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

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