Événement Folders.FolderChange (Outlook)

  • Article

Se produit lorsqu’un dossier de la collection Folders spécifiée est modifié.

Syntaxe

expression. FolderChange( _Folder_ )

expression Variable qui représente un objet Folders.

Paramètres

Nom Requis/Facultatif Type de données Description
Folder Requis Folder Le dossier qui a été modifié.

Remarques

L'événement FolderChange se déclenche lorsqu'un dossier de la collection Folders est modifié, que ce soit par l'intervention d'un utilisateur ou par un code de programme. Cette modification peut être le changement de nom du dossier, ou l'ajout, la modification ou la suppression d'un élément du dossier. Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).

Exemple

Cet exemple Microsoft Visual Basic pour Applications (VBA) montre comment inviter l’utilisateur à supprimer un dossier contenu dans le dossier Éléments supprimés si ce dossier est vide. L’exemple de code doit être placé dans un module de classe et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par Microsoft Outlook.

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

Voir aussi

Folders, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.