Comme l'option de vider les éléments supprimés en quittant mais pour le courrier indésirable.
Une petite macro créée par notre ami GEO et à placer dans ThisOutlookSession Code : Private Sub Application_Quit() Dim Dossier As Folder Dim NS As NameSpace Set NS = GetNamespace("MAPI") Set Dossier = NS.Folders("Dossiers personnels").Folders("Courrier indésirable") While Dossier.Items.count > 0 Dossier.Items.Remove 1 Wend End Sub Une autre version avec confirmation Code : Private Sub Application_Quit() 'Suppression du courrier indésirable en quittant Confirmation = MsgBox("Vider les Courriers Indésirables ?", vbYesNo) If Confirmation = vbYes Then Dim Dossier As MAPIFolder Dim NS As NameSpace Set NS = GetNamespace("MAPI") Set Dossier = NS.GetDefaultFolder(olFolderJunk) While Dossier.Items.Count > 0 Dossier.Items.Remove 1 Wend End If 'fin section End Sub __________________
|