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
Daniel.C
Bonjour. Essaie (testé avec Office 2007) : Sub ListeBoiteDEnvoi() Dim olApp As New Outlook.Application Dim NS As Namespace, Envoi Set olApp = Outlook.Application Set NS = olApp.GetNamespace("MAPI") Set Envoi = _ NS.GetDefaultFolder(olFolderOutbox) MsgBox "Nombre de messages : " & Envoi.Items.Count End Sub en cochant "Mocrosoft Outlook xx Object Library" dans Outils / Références" (menu d ela fenêtre VBE). Cordialement. Daniel "denis le breton" a écrit dans le message de news:
Bjr, pas de réponse trouvée sur les différents forums Un peu spécial certe, alors c'est pour les plus accros
PC sou XP pro Je suis dans Excel (2003) et je veux tester par VBA si la boite d'envoi d'outlook (2003) est vide ou pas
Une idée ?
Bonjour.
Essaie (testé avec Office 2007) :
Sub ListeBoiteDEnvoi()
Dim olApp As New Outlook.Application
Dim NS As Namespace, Envoi
Set olApp = Outlook.Application
Set NS = olApp.GetNamespace("MAPI")
Set Envoi = _
NS.GetDefaultFolder(olFolderOutbox)
MsgBox "Nombre de messages : " & Envoi.Items.Count
End Sub
en cochant "Mocrosoft Outlook xx Object Library" dans Outils / Références"
(menu d ela fenêtre VBE).
Cordialement.
Daniel
"denis le breton" <denislebreton@discussions.microsoft.com> a écrit dans le
message de news: 8E90FA5C-F5DF-432C-AB64-9F610BC09251@microsoft.com...
Bjr, pas de réponse trouvée sur les différents forums
Un peu spécial certe, alors c'est pour les plus accros
PC sou XP pro
Je suis dans Excel (2003) et je veux tester par VBA si la boite d'envoi
d'outlook (2003) est vide ou pas
Bonjour. Essaie (testé avec Office 2007) : Sub ListeBoiteDEnvoi() Dim olApp As New Outlook.Application Dim NS As Namespace, Envoi Set olApp = Outlook.Application Set NS = olApp.GetNamespace("MAPI") Set Envoi = _ NS.GetDefaultFolder(olFolderOutbox) MsgBox "Nombre de messages : " & Envoi.Items.Count End Sub en cochant "Mocrosoft Outlook xx Object Library" dans Outils / Références" (menu d ela fenêtre VBE). Cordialement. Daniel "denis le breton" a écrit dans le message de news:
Bjr, pas de réponse trouvée sur les différents forums Un peu spécial certe, alors c'est pour les plus accros
PC sou XP pro Je suis dans Excel (2003) et je veux tester par VBA si la boite d'envoi d'outlook (2003) est vide ou pas
Une idée ?
denis le breton
Super ! merci Denis
Bonjour. Essaie (testé avec Office 2007) : Sub ListeBoiteDEnvoi() Dim olApp As New Outlook.Application Dim NS As Namespace, Envoi Set olApp = Outlook.Application Set NS = olApp.GetNamespace("MAPI") Set Envoi = _ NS.GetDefaultFolder(olFolderOutbox) MsgBox "Nombre de messages : " & Envoi.Items.Count End Sub en cochant "Mocrosoft Outlook xx Object Library" dans Outils / Références" (menu d ela fenêtre VBE). Cordialement. Daniel "denis le breton" a écrit dans le message de news:
Bjr, pas de réponse trouvée sur les différents forums Un peu spécial certe, alors c'est pour les plus accros
PC sou XP pro Je suis dans Excel (2003) et je veux tester par VBA si la boite d'envoi d'outlook (2003) est vide ou pas
Une idée ?
Super ! merci
Denis
Bonjour.
Essaie (testé avec Office 2007) :
Sub ListeBoiteDEnvoi()
Dim olApp As New Outlook.Application
Dim NS As Namespace, Envoi
Set olApp = Outlook.Application
Set NS = olApp.GetNamespace("MAPI")
Set Envoi = _
NS.GetDefaultFolder(olFolderOutbox)
MsgBox "Nombre de messages : " & Envoi.Items.Count
End Sub
en cochant "Mocrosoft Outlook xx Object Library" dans Outils / Références"
(menu d ela fenêtre VBE).
Cordialement.
Daniel
"denis le breton" <denislebreton@discussions.microsoft.com> a écrit dans le
message de news: 8E90FA5C-F5DF-432C-AB64-9F610BC09251@microsoft.com...
Bjr, pas de réponse trouvée sur les différents forums
Un peu spécial certe, alors c'est pour les plus accros
PC sou XP pro
Je suis dans Excel (2003) et je veux tester par VBA si la boite d'envoi
d'outlook (2003) est vide ou pas
Bonjour. Essaie (testé avec Office 2007) : Sub ListeBoiteDEnvoi() Dim olApp As New Outlook.Application Dim NS As Namespace, Envoi Set olApp = Outlook.Application Set NS = olApp.GetNamespace("MAPI") Set Envoi = _ NS.GetDefaultFolder(olFolderOutbox) MsgBox "Nombre de messages : " & Envoi.Items.Count End Sub en cochant "Mocrosoft Outlook xx Object Library" dans Outils / Références" (menu d ela fenêtre VBE). Cordialement. Daniel "denis le breton" a écrit dans le message de news:
Bjr, pas de réponse trouvée sur les différents forums Un peu spécial certe, alors c'est pour les plus accros
PC sou XP pro Je suis dans Excel (2003) et je veux tester par VBA si la boite d'envoi d'outlook (2003) est vide ou pas