Evento Results.ItemAdd (Outlook)

Ocorre quando um ou mais itens são adicionados à coleção especificada.

Sintaxe

expression. ItemAdd( _Item_ )

Expressão Uma variável que representa um objeto Results .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Item	Obrigatório	Object	O item que foi adicionado.

Comentários

Esse evento não é executado quando um número grande de arquivos é adicionado à pasta de uma só vez. Ele não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).

Exemplo

Neste exemplo de Visual Basic for Applications (VBA), quando um novo contato é adicionado à pasta Contatos, o item de contato é anexado a uma mensagem de email e enviado a uma lista de distribuição chamada "Equipe de Vendas". O código de exemplo deve ser colocado em um módulo de classe e a rotina Initialize_handler deve ser chamada para que o Microsoft Outlook chame o procedimento de evento.

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

Confira também

Objeto Results

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.