J'utilise un code à peu près comme ceci :
------------------------------------
Dim outApp As New Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objMB As Outlook.MAPIFolder
Dim objDossier As Outlook.MAPIFolder
Dim colItems As Outlook.Items
Dim objItem As Object
Dim i As Integer, j As Integer, intintCount As Integer, NbEnum As Integer
Set objNS = outApp.GetNamespace("MAPI")
Set objMB = objNS.Folders("imap.free.fr")
Set objDossier = objMB.Folders("Boîte de réception").Folders("Spam")
Set colItems = objDossier.Items
intCount = colItems.Count
If intCount > 0 Then
For i = intCount To 1 Step -1
Set objItem = colItems(i)
objItem.Delete
Next
End If
------------------------------------
sur un dossier IMAP dans Outllok 2003.
Commentaire faire le « Effacer les messages supprimés » qui le videra
complètement ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Laurent Francfort [MS]
Bonjour,
J'ai un peu de mal à comprendre, le code ci-dessous (s'il marche sur le dossier boite de réception) va aussi marcher sur le dossier éléments supprimés.
Où est le problème ?
Laurent
"HervéR" <hreignoux(suppr)@sidexa.com> a écrit dans le message de news:
Bonjour,
J'utilise un code à peu près comme ceci : ------------------------------------ Dim outApp As New Outlook.Application Dim objNS As Outlook.NameSpace Dim objMB As Outlook.MAPIFolder Dim objDossier As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim i As Integer, j As Integer, intintCount As Integer, NbEnum As Integer
Set objNS = outApp.GetNamespace("MAPI") Set objMB = objNS.Folders("imap.free.fr") Set objDossier = objMB.Folders("Boîte de réception").Folders("Spam") Set colItems = objDossier.Items intCount = colItems.Count If intCount > 0 Then For i = intCount To 1 Step -1 Set objItem = colItems(i) objItem.Delete Next End If ------------------------------------ sur un dossier IMAP dans Outllok 2003. Commentaire faire le « Effacer les messages supprimés » qui le videra complètement ?
Bonjour,
J'ai un peu de mal à comprendre, le code ci-dessous (s'il marche sur le
dossier boite de réception) va aussi marcher sur le dossier éléments
supprimés.
Où est le problème ?
Laurent
"HervéR" <hreignoux(suppr)@sidexa.com> a écrit dans le message de news:
ewm0gzK1FHA.3864@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'utilise un code à peu près comme ceci :
------------------------------------
Dim outApp As New Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objMB As Outlook.MAPIFolder
Dim objDossier As Outlook.MAPIFolder
Dim colItems As Outlook.Items
Dim objItem As Object
Dim i As Integer, j As Integer, intintCount As Integer, NbEnum As Integer
Set objNS = outApp.GetNamespace("MAPI")
Set objMB = objNS.Folders("imap.free.fr")
Set objDossier = objMB.Folders("Boîte de réception").Folders("Spam")
Set colItems = objDossier.Items
intCount = colItems.Count
If intCount > 0 Then
For i = intCount To 1 Step -1
Set objItem = colItems(i)
objItem.Delete
Next
End If
------------------------------------
sur un dossier IMAP dans Outllok 2003.
Commentaire faire le « Effacer les messages supprimés » qui le videra
complètement ?
J'ai un peu de mal à comprendre, le code ci-dessous (s'il marche sur le dossier boite de réception) va aussi marcher sur le dossier éléments supprimés.
Où est le problème ?
Laurent
"HervéR" <hreignoux(suppr)@sidexa.com> a écrit dans le message de news:
Bonjour,
J'utilise un code à peu près comme ceci : ------------------------------------ Dim outApp As New Outlook.Application Dim objNS As Outlook.NameSpace Dim objMB As Outlook.MAPIFolder Dim objDossier As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim objItem As Object Dim i As Integer, j As Integer, intintCount As Integer, NbEnum As Integer
Set objNS = outApp.GetNamespace("MAPI") Set objMB = objNS.Folders("imap.free.fr") Set objDossier = objMB.Folders("Boîte de réception").Folders("Spam") Set colItems = objDossier.Items intCount = colItems.Count If intCount > 0 Then For i = intCount To 1 Step -1 Set objItem = colItems(i) objItem.Delete Next End If ------------------------------------ sur un dossier IMAP dans Outllok 2003. Commentaire faire le « Effacer les messages supprimés » qui le videra complètement ?
HervéR
Le problème de ce code, qui fonctionne très bien :), c'est que quand on le lance sur un dossier IMAP, les mails sont marqués comme étant supprimés, mais qu'ils ne le sont effectivement que quand on va dans le menu « Edition » et que l'on fait « Effacer les messages supprimés »... "Laurent Francfort [MS]" a écrit dans le message de news:
Bonjour,
J'ai un peu de mal à comprendre, le code ci-dessous (s'il marche sur le dossier boite de réception) va aussi marcher sur le dossier éléments supprimés.
Où est le problème ?
Laurent
Le problème de ce code, qui fonctionne très bien :), c'est que quand on le
lance sur un dossier IMAP, les mails sont marqués comme étant supprimés,
mais qu'ils ne le sont effectivement que quand on va dans le menu «
Edition » et que l'on fait « Effacer les messages supprimés »...
"Laurent Francfort [MS]" <laurentf@online.microsoft.com> a écrit dans le
message de news: ujpnueP1FHA.2616@tk2msftngp13.phx.gbl...
Bonjour,
J'ai un peu de mal à comprendre, le code ci-dessous (s'il marche sur le
dossier boite de réception) va aussi marcher sur le dossier éléments
supprimés.
Le problème de ce code, qui fonctionne très bien :), c'est que quand on le lance sur un dossier IMAP, les mails sont marqués comme étant supprimés, mais qu'ils ne le sont effectivement que quand on va dans le menu « Edition » et que l'on fait « Effacer les messages supprimés »... "Laurent Francfort [MS]" a écrit dans le message de news:
Bonjour,
J'ai un peu de mal à comprendre, le code ci-dessous (s'il marche sur le dossier boite de réception) va aussi marcher sur le dossier éléments supprimés.
