Results.ItemAdd イベント (Outlook)

  • [アーティクル]

特定のコレクションに 1 つ以上のアイテムが追加されると発生します。

構文

式。 ItemAdd( _Item_ )

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

パラメーター

名前 必須 / オプション データ型 説明
Item 必須 オブジェクト型 (Object) 追加されたアイテムです。

注釈

フォルダーに大量のアイテムが一度に追加される場合には発生しません。 Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

例

このVisual Basic for Applications (VBA) の例では、連絡先フォルダーに新しい連絡先を追加すると、連絡先アイテムが電子メール メッセージに添付され、"Sales Team" という名前の配布リストに送信されます。 サンプル コードをクラス モジュールに配置する必要があり、 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_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 のサポートおよびフィードバックを参照してください。