Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Outlook Macro pour afficher un dossier

Macro pour afficher un dossier

2 réponses
Avatar
jost.4m
Bonjour,

J'arrive =E0 afficher un dossier situ=E9 dans ma bo=EEte de r=E9ception.

Voici le code de la macro:

Sub afficheDivers()
Dim myOlApp As New Outlook.Application
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 =3D myOlApp.GetNamespace("MAPI")

Set myInbox =3D
myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Divers")
myInbox.Display

End Sub

Mais il m'ouvre une nouvelle session d'Outlook.
Comment puis-je afficher un dossier dans la m=EAme session?
Merci d'avance.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
- Enlève la première ligne de déclaration :
Dim myOlApp As New Outlook.Application
- Modifie myOlApp par Application dans ton code

Mais pour le reste pas sûr que ça fonctionne ?

Si tu "causes" anglais, pose la question sur
microsoft.public.Outlook.program_vba

Cordialement
Pascal

a écrit dans le message de news:

Bonjour,

J'arrive à afficher un dossier situé dans ma boîte de réception.

Voici le code de la macro:

Sub afficheDivers()

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 = myOlApp.GetNamespace("MAPI")

Set myInbox myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Divers")
myInbox.Display

End Sub

Mais il m'ouvre une nouvelle session d'Outlook.
Comment puis-je afficher un dossier dans la même session?
Merci d'avance.
Avatar
jost.4m
Bonjour papou et merci de ta réponse,
J'ai essayé ce que tu m'as dit et il s'ouvre toujours dans une
nouvelle session sous outlook 2003.

j'ai épuré le code

Sub afficheDiverstest()

Set myNameSpace = Application.GetNamespace("MAPI")

Set myInbox =
myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Divers")
myInbox.Display

End Sub

On ne doit pas être loin!

Bonne journée