Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques lorsqu'on
en a beaucoup).
voici le code:
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Test 1")
Set myItem = myItems.Find("[SenderName] = 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
Set myDestFolder = myInbox.Folders("Test 2")
Set myItem = myItems.Find("[SenderName] = 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques lorsqu'on
en a beaucoup).
voici le code:
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Test 1")
Set myItem = myItems.Find("[SenderName] = 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
Set myDestFolder = myInbox.Folders("Test 2")
Set myItem = myItems.Find("[SenderName] = 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques lorsqu'on
en a beaucoup).
voici le code:
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Test 1")
Set myItem = myItems.Find("[SenderName] = 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
Set myDestFolder = myInbox.Folders("Test 2")
Set myItem = myItems.Find("[SenderName] = 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques lorsqu'on
en a beaucoup).
voici le code:
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Test 1")
Set myItem = myItems.Find("[SenderName] = 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
Set myDestFolder = myInbox.Folders("Test 2")
Set myItem = myItems.Find("[SenderName] = 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers personnels").Folders("test 1")
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook :http://faq.outlook.free.fr/
les archives :http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chancehttp://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~- Masquer le texte des messages p récédents -
- Afficher le texte des messages précédents -
Bonjour et merci pour la réponse, je vais le tester.
*jost...@tiscali.fr <jost...@tiscali.fr> que je salue a écrit *:
Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques lorsqu'on
en a beaucoup).
voici le code:
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Test 1")
Set myItem = myItems.Find("[SenderName] = 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
Set myDestFolder = myInbox.Folders("Test 2")
Set myItem = myItems.Find("[SenderName] = 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers personnels").Folders("test 1")
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook :http://faq.outlook.free.fr/
les archives :http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chancehttp://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~- Masquer le texte des messages p récédents -
- Afficher le texte des messages précédents -
Bonjour et merci pour la réponse, je vais le tester.
* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques lorsqu'on
en a beaucoup).
voici le code:
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Test 1")
Set myItem = myItems.Find("[SenderName] = 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
Set myDestFolder = myInbox.Folders("Test 2")
Set myItem = myItems.Find("[SenderName] = 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers personnels").Folders("test 1")
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook :http://faq.outlook.free.fr/
les archives :http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chancehttp://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~- Masquer le texte des messages p récédents -
- Afficher le texte des messages précédents -
Bonjour et merci pour la réponse, je vais le tester.
On 26 fév, 14:01, "Oliv'"
wrote:* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Divers
vers Archive 2007RéceptionDivers, auriez vous le code le plus simple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
On 26 fév, 14:01, "Oliv'" <SUPPRIMERCECIcatt...@ricour-assurances.fr>
wrote:
*jost...@tiscali.fr <jost...@tiscali.fr> que je salue a écrit *:
Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Divers
vers Archive 2007RéceptionDivers, auriez vous le code le plus simple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
On 26 fév, 14:01, "Oliv'"
wrote:* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Archive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Divers
vers Archive 2007RéceptionDivers, auriez vous le code le plus simple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
* que je salue a écrit *:On 26 fév, 14:01, "Oliv'"
wrote:* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeu r (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Arch ive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Dive rs
vers Archive 2007RéceptionDivers, auriez vous le code le plus simple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait march er.
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Dive rs")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Dossiers
personnels").Folders("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing
End Sub
Oliv'- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
*jost...@tiscali.fr <jost...@tiscali.fr> que je salue a écrit *:
On 26 fév, 14:01, "Oliv'" <SUPPRIMERCECIcatt...@ricour-assurances.fr>
wrote:
*jost...@tiscali.fr <jost...@tiscali.fr> que je salue a écrit *:
Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeu r (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Arch ive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Dive rs
vers Archive 2007RéceptionDivers, auriez vous le code le plus simple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait march er.
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Dive rs")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Dossiers
personnels").Folders("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing
End Sub
Oliv'- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
* que je salue a écrit *:On 26 fév, 14:01, "Oliv'"
wrote:* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpéditeu r (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-dossier
Test 1 de ma boîte de réception vers le dossier personnel c:Arch ive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Dive rs
vers Archive 2007RéceptionDivers, auriez vous le code le plus simple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait march er.
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Dive rs")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Dossiers
personnels").Folders("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing
End Sub
Oliv'- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 26 fév, 16:50, "Oliv'"
wrote:* que je salue a écrit *:On 26 fév, 14:01, "Oliv'" r>
wrote:* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpédit eur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-doss ier
Test 1 de ma boîte de réception vers le dossier personnel c:Ar chive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Di vers
vers Archive 2007RéceptionDivers, auriez vous le code le plus sim ple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait mar cher.
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Di vers")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Dossiers personnels").Folders ("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing
End Sub
Oliv'- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci Oliv, je le testerai demain.- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
On 26 fév, 16:50, "Oliv'" <SUPPRIMERCECIcatt...@ricour-assurances.fr>
wrote:
*jost...@tiscali.fr <jost...@tiscali.fr> que je salue a écrit *:
On 26 fév, 14:01, "Oliv'" <SUPPRIMERCECIcatt...@ricour-assurances.f r>
wrote:
*jost...@tiscali.fr <jost...@tiscali.fr> que je salue a écrit *:
Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpédit eur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-doss ier
Test 1 de ma boîte de réception vers le dossier personnel c:Ar chive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Di vers
vers Archive 2007RéceptionDivers, auriez vous le code le plus sim ple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait mar cher.
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Di vers")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Dossiers personnels").Folders ("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing
End Sub
Oliv'- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci Oliv, je le testerai demain.- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -
On 26 fév, 16:50, "Oliv'"
wrote:* que je salue a écrit *:On 26 fév, 14:01, "Oliv'" r>
wrote:* que je salue a écrit *:Avec l'aide VB d'Outlook 2003, j'arrive à déplacer des mails de ma
boîte de réception vers un dossier en fonction de l'éxpédit eur (cela
peut remplacer les rêgles qui ne sont pas toujours pratiques
lorsqu'on en a beaucoup).
voici le code:
Mais ce que je voudrais, c'est déplacer les messages du sous-doss ier
Test 1 de ma boîte de réception vers le dossier personnel c:Ar chive
2007.PStRéceptionTest 1, afin de vider ma boîte Mail.
Merci d'avance.
__________________
Salutations
Michel
Essaye avec ceci
Set Myperso = myNameSpace.Folders("Dossiers
personnels").Folders("test 1")
--
Bonjour et merci pour la réponse, je vais le tester.
Excusez mais je n'ai pas trop l'habitude sur ce forum (en fait j'avais
supprimé le message pour le refaire plus tard).
Et si je veux déplacer les messages de ma boîte de réception Di vers
vers Archive 2007RéceptionDivers, auriez vous le code le plus sim ple
sachant que je peux ensuite copier le code et changer mes intitulés
pour les autres sous-dossiers?
Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait mar cher.
Sub MoveItems()
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim myDestFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).folders("Di vers")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Dossiers personnels").Folders ("Divers")
For each Myitem in myItems
Myitem.Move myDestFolder
Next
Set myNameSpace=nothing
Set myInbox=nothing
Set myItems =nothing
Set myDestFolder =nothing
End Sub
Oliv'- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci Oliv, je le testerai demain.- Masquer le texte des messages préc édents -
- Afficher le texte des messages précédents -