Comment déplacer un message à une macro de dossiers personnels dans Outlook 2007

May 26

Comment déplacer un message à une macro de dossiers personnels dans Outlook 2007


Microsoft est la société qui produit et vend le programme informatique Outlook. Beaucoup de gens utilisent le programme Outlook comme client de messagerie et gestionnaire d'informations. Outlook 2007 vous offre également la possibilité de gérer les contacts, les tâches et individuelles et des calendriers partagés. Outlook 2007 vous permet de configurer les tâches de se produire automatiquement pour faciliter la gestion de l'information par l'utilisation de macros Visual Basic. Une tâche fondamentale qui peut être accompli en utilisant des macros dans Outlook est automatiquement déplace des messages vers des dossiers personnels.

Instructions

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

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

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

Sous MoveToArchive ()
On Error Resume Next

Dim objFolder As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem

Set objNS = Application.GetNamespace ( "MAPI")
Set objFolder = objNS.Folders ( "Dossiers personnels"). Dossiers ( "Archive Ancient")

«Supposons ceci est un dossier de courrier

If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If

Si Application.ActiveExplorer.Selection.Count = 0 Then
'Exiger que cette procédure soit appelée uniquement lorsqu'un message est sélectionné
exit Sub
Fin si

Pour chaque objItem Dans Application.ActiveExplorer.Selection
Si objFolder.DefaultItemType = olMailItem Ensuite,
Si objItem.Class = olMail Ensuite,
objItem.UnRead = False
objItem.Move objFolder
Fin si
Fin si
Prochain

Réglez objItem = Nothing
Réglez objFolder = Nothing
Réglez objNS = Nothing

End Sub

4 Modifier la ligne de maco Visual Basic qui définit le dossier de destination pour Outlook 2007 pour déplacer le message à partir de "Archive antique" au nom du dossier personnel dans votre Outlook 2007 PST. Par exemple,
Set objFolder = objNS.Folders ( "Dossiers personnels"). Dossiers ( "Votre Mail Nom Folder Here")

5 Cliquez sur le bouton "Enregistrer" du menu et redémarrez Outlook 2007. La macro se déplacera tout le courrier qui est lu à votre dossier personnel dans Outlook PST.


          

Post a comment: