Evento Items.ItemAdd (Outlook)
Ocorre quando um ou mais itens são adicionados à coleção especificada. Esse evento não é executado quando um número grande de arquivos é adicionado à pasta de uma só vez. O evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
expression. ItemAdd
( Item )
Expressão Uma variável que representa um objeto Items .
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Item | Obrigatório | Object | O item que foi adicionado. |
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 Initialize_handler
rotina deve ser chamada antes que o procedimento de evento possa ser chamado pelo Microsoft Outlook.
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
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.