[OL 2010] Exchange Transférer dossier vers dossier.pst toutes les heures

[aragdur]

Bonjour,

je suis sous Outlook 2010 au travail avec un quota ridicule qui me fait totalement cracker

Idéalement, je souhaiterai faire une macro qui me permettrait, toutes les heures, de transférer les mails de mon dossier "Divers" de ma boîte de réception vers le dossier "Divers" de mon archive "Dossiers personnels".
J'ai trouvé le code suivant sauf qu'il s'agit de MAPI et que je suis sous Exchange donc ça ne fonctionne pas (enfin, est ce possible que ça bloque à cause de ça ?)

Pourriez-vous m'aider s'il vous plaît ?

@+

Code : Tout sélectionner

Sub MoveItems()

  Dim OL As Outlook.Application
    If UCase(Application) = "OUTLOOK" Then
        Set OL = Application
    Else
        Set OL = CreateObject("outlook.application")
    End If
 
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 = OL.GetNamespace("MAPI")
'ici le dossier d'origine
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myInbox =myInbox.folders("Divers")
Set myItems = myInbox.Items
'ici le dossier destination
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

[aragdur]

je crois que c'est à cause du fait que mon dossier est en fait un sous-dossier

[zebulon1]

Bonjour,

Commence par modifier ton code pour envoyer tes mails vers un dossier et non vers un sous-dossier, tu auras au moins levé une incertitude.

[aragdur]

je pense avoir trouvé.
Il ne me reste plus qu'à planifier ça via le planificateur de tâches Windows.
j'avais pensé à un .bat qui automatiserait le tout mais, le format ci-dessous lance une nouvelle session de Outlook :
start Outlook.exe /autorun "ouverturebatch"
ou alors je complète avec un exit Outlook.