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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Enviar e exibir comentários de