Comment déplacer un message vers un dossier macro personnelle dans Outlook 2007

Ouvrez Outlook en double-cliquant sur l'icône qui se trouve sur votre bureau. Vous pouvez aussi le faire en cliquant sur le "Début" bouton et y accéder directement à partir de la "Début" menu.

Cliquez sur le "Outils" bouton dans la barre d'outils et de planer sur la "Macro" option. De là, cliquez sur l'option qui lit "Visual Editor Basic."

Entrez le script Visual Basic suivant dans Visual Basic Editor dans Outlook 2007:

Sous MoveToArchive ()
On Error Resume Next

Dim objFolder Comme Outlook.MAPIFolder
Dim objNS Comme Outlook.NameSpace, objItem Comme Outlook.MailItem
Réglez objNS = Application.GetNamespace ("MAPI")
Réglez objFolder = objNS.Folders ("Dossiers personnels") .folders ("Archives Ancient")

«Supposons ceci est un dossier de courrier

Si objFolder est rien alors
MsgBox "Ce dossier ne existe pas!", VbOKOnly + vbExclamation, "Dossier non valide"
End If
Si Application.ActiveExplorer.Selection.Count = 0 Then
'Exiger que cette procédure soit appelée uniquement quand un message est sélectionné
Exit Sub
End If
Pour chaque objItem Dans Application.ActiveExplorer.Selection
Si objFolder.DefaultItemType = olMailItem Puis
Si objItem.Class = olMail Puis
objItem.UnRead = False
objItem.Move objFolder
End If
End If
Suivant
Réglez objItem = Nothing
Réglez objFolder = Nothing
Réglez objNS = Nothing

End Sub

Modifier la ligne de Maco Visual Basic qui définit le dossier de destination pour Outlook 2007 pour déplacer le message à partir de "Archives Ancient" le nom du dossier personnel dans votre Outlook 2007 PST. Par exemple,
Réglez objFolder = objNS.Folders ("Dossiers personnels") .folders ("Votre Nom Courrier dossier Ici")

Choisir la "Sauvegarder" bouton de menu et redémarrez Outlook 2007. La macro se déplacera tout l'email qui est lu à votre dossier personnel dans Outlook PST.