Comment ouvrir un dossier spécifique d'Outlook à partir d'Excel ?
Avez-vous déjà essayé d'ouvrir un dossier spécifique d'Outlook à partir d'un fichier Excel, comme le dossier "Boîte de réception", le dossier "Contacts" ou tout autre dossier ? Dans cet article, je vais vous expliquer comment ouvrir un dossier Outlook souhaité à partir d'un classeur Excel.
Ouvrir un dossier spécifique d'Outlook à partir d'un fichier Excel avec du code VBA
Ouvrir un dossier spécifique d'Outlook à partir d'un fichier Excel avec du code VBA
Le code VBA suivant peut vous aider à ouvrir un dossier spécifique d'Outlook à partir d'une feuille de calcul Excel. Suivez ces étapes :
1. Dans Excel, maintenez les touches "Alt" + "F11" enfoncées pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".
2. Cliquez sur "Insérer" > "Module", puis collez la macro suivante dans la "Fenêtre Module".
Code VBA : Ouvrir un dossier spécifique d'Outlook à partir d'un fichier Excel :
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
Dim xFolderType As OlDefaultFolders
On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
xFolder.Display
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub
End Sub
Remarque : Dans le code ci-dessus, vous pouvez modifier "Boîte de réception" dans le script "Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)" par le nom de n'importe quel autre dossier que vous souhaitez ouvrir.
3. Ensuite, cliquez sur "Outils" > "Références" dans la fenêtre "Microsoft Visual Basic for Applications", et dans la boîte de dialogue "Références-Projet1" qui s'affiche, cochez l'option "Bibliothèque d'objets Microsoft Outlook" dans la liste des "Références disponibles". Voir capture d'écran :
4. Ensuite, cliquez sur "OK" pour fermer la boîte de dialogue, puis appuyez sur la touche "F5" pour exécuter ce code, et le dossier Outlook spécifié s'ouvrira immédiatement.
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
