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.
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
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.
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
<jost.4m@tiscali.fr> a écrit dans le message de news:
1173942469.844390.238630@o5g2000hsb.googlegroups.com...
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.
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.
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
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