Evento Items.ItemRemove (Outlook)

Ocorre quando um item é excluído da coleção especificada.

Sintaxe

expression. ItemRemove

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

Comentários

Esse evento não é executado quando o último item de um arquivo de Pastas Particulares (.pst) é excluído, ou quando 16 ou mais itens são excluídos de uma só vez de um arquivo PST, da 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

Objeto Items

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.