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 のサポートおよびフィードバックを参照してください。