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 __________________
| 
![[/\]](/infusions/fusionboard4/images/go-top.png "haut de page")
Copyright JièL / Jean-Louis Goubert © 2003-2009 
