Evento Results.ItemRemove (Outlook)
Ocorre quando um item é excluído da coleção especificada.
Sintaxe
expression. ItemRemove
Expressão Uma variável que representa um objeto Results .
Comentários
Esse evento não é executado quando o último item em um arquivo Pastas Particulares (.pst) é excluído ou se 16 ou mais itens são excluídos de uma só vez de um arquivo .pst, de uma caixa de correio do Microsoft Exchange ou de uma pasta pública do Exchange.
O evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Exemplo
Esse exemplo do Microsoft Visual Basic for Applications (VBA) envia opcionalmente uma mensagem de notificação a um grupo de trabalho quando o usuário remove um contato da pasta padrão Contatos. 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_ItemRemove()
Dim myOlMItem As Outlook.MailItem
If MsgBox("Do you want to notify the Sales Team?", vbYesNo + vbQuestion) = vbYes Then
Set myOlMItem = Application.CreateItem(olMailItem)
myOlMItem.To = "Sales Team"
myOlMItem.Subject = "Remove Contact"
myOlMItem.Body = "Remove the following contact from your list:"
myOlMItem.Display
End If
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.