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
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.