Outlook VBA教程:ItemAdd事件

在将项目添加到指定的集合中时发生。该事件在 VBScript 中不可用。

Sub object_ItemAdd(ByVal Item As Object)

object  该表达式的值为“应用于”列表中的一个对象。

Item  必选。添加的项目。

VBA示例

在本示例中,当新联系人添加到“联系人”文件夹中时,将联系人项目附加到电子邮件中并发送给名为“Sales Team”的通讯组列表。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As Outlook.Application
Public WithEvents myOlItems As Outlook.Items
Public Sub Initialize_handler()
    Set myOlItems = myOlApp.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

上页:Outlook VBA教程:GroupAdd事件 下页:Outlook VBA教程:ItemChange事件

Outlook VBA教程:ItemAdd事件:相关链接

Outlook VBA教程:ItemChange事件 Outlook VBA教程:ItemRemove事件
Outlook VBA教程:ItemSend事件 Outlook VBA教程:MapiLogonComplete事件
Outlook VBA教程:NewExplorer事件 Outlook VBA教程:NewInspector事件
Outlook VBA教程:NewMail事件 Outlook VBA教程:OnError事件
Outlook VBA教程:Open事件 Outlook VBA教程:OptionsPagesAdd事件
Outlook VBA教程:Progress事件 Outlook VBA教程:PropertyChange事件
Outlook VBA教程:Quit事件 Outlook VBA教程:Read事件
Outlook VBA教程:Reminder事件 Outlook VBA教程:ReminderAdd事件
Outlook VBA教程:ReminderChange事件 Outlook VBA教程:ReminderFire事件
Outlook VBA教程:ReminderRemove事件 Outlook VBA教程:Reply事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号