Macro pour afficher un dossier

Le
jost.4m
Bonjour,

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

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 = 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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #323829
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


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.
jost.4m
Le #323828
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
Publicité
Poster une réponse
Anonyme