Evento Folders.FolderChange (Outlook)

Ocorre quando uma pasta na coleção Folders especificada é alterada.

Sintaxe

expression. FolderChange( _Folder_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Folder Obrigatório Folder A pasta que foi alterada.

Comentários

O evento FolderChange aciona quando uma pasta em um objeto da coleção Folders for alterada, por meio de ação do usuário ou código de programa. A alteração pode ser um usuário ou um código de programa renomeando a pasta, ou adicionar, alterar ou remover um item na pasta. Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).

Exemplo

Esse exemplo do Microsoft Visual Basic for Applications (VBA) solicita que o usuário remova uma pasta da pasta Itens Excluídos se ela estiver vazia. 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.

Dim WithEvents myFolders As Outlook.Folders 
 
 
 
Sub Initialize_handler() 
 
 Set myNS = Application.GetNamespace("MAPI") 
 
 Set myFolders = myNS.GetDefaultFolder(olFolderDeletedItems).Folders 
 
End Sub 
 
 
 
Private Sub myFolders_FolderChange(ByVal Folder As Outlook.Folder) 
 
 If Folder.Items.Count = 0 Then 
 
 MyPrompt = Folder.Name & " is empty. Do you want to delete it?" 
 
 If MsgBox(MyPrompt, vbYesNo + vbQuestion) = vbYes Then 
 
 Folder.Delete 
 
 End If 
 
 End If 
 
End Sub

Confira também

Objeto Folders

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.