Macro couper coller le contenu dans dossier dans un autre dossier outlook

[anthooooony]

Bonjour,

je cherche à l'éxécuter d'une macro de couper coller/ ou déplacer le contenu d'un dossier vers un autre.

Auriez vous une idée, je continue à chercher de mon côté

Merci d'avance

Anthooooony

 

[anthooooony]

Re : Macro couper coller le contenu dans dossier dans un autre dossier outlook

Bonjour,


Alors j'ai quelque chose

le code que j'ai trouvé deplacer les mails envoyés vers un dossier précis dans une boite archive.

j'arrive à mettre le dossier de ma boite archive cependant je n'arrive pas à lui demander d'envoyer un dossier précis qui se trouve dans ma boite générique..

C'est la où ca bug
"Set Ol_FolderFrom = Ol_MAPI.GetDefaultFolder(olFolderSentMail)"

Private Sub ArchiverElementsEnvoyes()

Dim Ol_App As New Outlook.Application
Dim Ol_MAPI As Outlook.NameSpace
Dim Ol_FolderFrom As Outlook.MAPIFolder
Dim Ol_FolderTo As Outlook.MAPIFolder
Dim Ol_Items As Outlook.MailItem
Dim NoItem As Integer

Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
Set Ol_FolderFrom = Ol_MAPI.GetDefaultFolder(olFolderSentMail)
Set Ol_FolderTo = Ol_MAPI.Folders("Boîte aux lettres 2") _
.Folders("Réponses archivées")

For NoItem = Ol_FolderFrom.Items.Count To 1 Step -1
Set Ol_Items = Ol_FolderFrom.Items(NoItem)
Ol_Items.Move Ol_FolderTo
Next NoItem

Set Ol_Items = Nothing
Set Ol_FolderTo = Nothing
Set Ol_FolderFrom = Nothing
Set Ol_MAPI = Nothing
Set Ol_App = Nothing

End Sub

J'ai essayé ça mais ca bug.. je pense que c'est le mapi.folders qui bug mais je ne connais pas trop

Private Sub ArchiverElementsEnvoyes()

Dim Ol_App As New Outlook.Application
Dim Ol_MAPI As Outlook.NameSpace
Dim Ol_FolderFrom As Outlook.MAPIFolder
Dim Ol_FolderTo As Outlook.MAPIFolder
Dim Ol_Items 'As Outlook.MailItem
Dim NoItem As Integer

Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
Set Ol_FolderFrom = Ol_MAPI.Folders("Boîte de réception") _
.Folders("En attente")
Set Ol_FolderTo = Ol_MAPI.Folders("Archive2") _
.Folders("test")

For NoItem = Ol_FolderFrom.Items.Count To 1 Step -1
Set Ol_Items = Ol_FolderFrom.Items(NoItem)
Ol_Items.Move Ol_FolderTo
Next NoItem

Set Ol_Items = Nothing
Set Ol_FolderTo = Nothing
Set Ol_FolderFrom = Nothing
Set Ol_MAPI = Nothing
Set Ol_App = Nothing

End Sub

 

[anthooooony]

Re : Macro couper coller le contenu dans dossier dans un autre dossier outlook

Help... quelqu'un aurait une idée...?

 

[anthooooony]

Re : Macro couper coller le contenu dans dossier dans un autre dossier outlook

Bonjour

c'est bon ct cette ligne à changer

Set Ol_FolderFrom = Ol_MAPI.GetDefaultFolder(6).Folders("Histo chargés")

Sub ArchiverElementsEnvoyes()

Dim Ol_App As New Outlook.Application
Dim Ol_MAPI As Outlook.NameSpace
Dim Ol_FolderFrom As Outlook.MAPIFolder
Dim Ol_FolderTo As Outlook.MAPIFolder
Dim Ol_Items 'As Outlook.MailItem
Dim NoItem As Integer

Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
Set Ol_FolderFrom = Ol_MAPI.GetDefaultFolder(6).Folders("Histo chargés")
Set Ol_FolderTo = Ol_MAPI.Folders("Archive2").Folders("Histo chargé")
For NoItem = Ol_FolderFrom.Items.Count To 1 Step -1
Set Ol_Items = Ol_FolderFrom.Items(NoItem)
Ol_Items.Move Ol_FolderTo
Next NoItem

Set Ol_Items = Nothing
Set Ol_FolderTo = Nothing
Set Ol_FolderFrom = Nothing
Set Ol_MAPI = Nothing
Set Ol_App = Nothing

End Sub