Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook Déplacer les Mails d'un dossier vers un PST

Déplacer les Mails d'un dossier vers un PST

5 réponses
Avatar
jost.4m
Avec l'aide VB d'Outlook 2003, j'arrive =E0 d=E9placer des mails de ma
bo=EEte de r=E9ception vers un dossier en fonction de l'=E9xp=E9diteur (cela
peut remplacer les r=EAgles 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 =3D myOlApp.GetNamespace("MAPI")
Set myInbox =3D myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems =3D myInbox.Items
Set myDestFolder =3D myInbox.Folders("Test 1")
Set myItem =3D myItems.Find("[SenderName] =3D 'Dupont Jean'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem =3D myItems.FindNext
Wend
Set myDestFolder =3D myInbox.Folders("Test 2")
Set myItem =3D myItems.Find("[SenderName] =3D 'Durand Yves'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem =3D myItems.FindNext
Wend
End Sub

Mais ce que je voudrais, c'est d=E9placer les messages du sous-dossier
Test 1 de ma bo=EEte de r=E9ception vers le dossier personnel c:\Archive
2007.PSt\R=E9ception\Test 1, afin de vider ma bo=EEte Mail.

Merci d'avance.
__________________
Salutations
Michel
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Oliv'
* 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 chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
jost.4m
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:

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.


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?

Merci d'avance


Avatar
Oliv'
* 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é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?



Ton code est presque bon, j'ai pas testé celui-ci mais ca devrait marcher.

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("Divers")
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'



Avatar
jost.4m
On 26 fév, 16:50, "Oliv'"
wrote:
* 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 -


Merci Oliv, je le testerai demain.




Avatar
jost.4m
On 26 fév, 17:41, wrote:
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 -


Bonjour
Merci beaucoup, cela marche super.
Bonne journée
Michel