Evento Items.ItemRemove (Outlook)
Ocorre quando um item é excluído da coleção especificada.
expression. ItemRemove
Expressão Uma variável que representa um objeto Items .
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).
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
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.