identification d'un doss en tant que contenant des contacts (vba)
2 réponses
Henry
bonjour,
en parcourant les dossiers
comme ceci :
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
For Each folder In myNameSpace.Folders
Set MyMessagerie = folder
For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers,
mais rien ne me renseigne sur la nature du dossier
est ce que qq aurai idée de la soluce ?
merci !
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
Oliv'
*Henry que je salue a écrit *:
bonjour, en parcourant les dossiers comme ceci : Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") For Each folder In myNameSpace.Folders Set MyMessagerie = folder For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers, mais rien ne me renseigne sur la nature du dossier est ce que qq aurai idée de la soluce ? merci !
ici une macro qui parcourt tous les dossiers et ss dossiers. http://faq.outlook.free.fr/readarticle.php?article_id$3
tu dois vérifier la valeur de DefaultItemType
Les constantes OlItemType possibles sont : olAppointmentItem olContactItem olDistributionListItem olJournalItem olMailItem olNoteItem olPostItem olTaskItem donc :
if startfolder.DefaultItemType = olContactItem then end if
mais cela ne veut pas dire qu'il ne peut pas y avoir autre chose dans ce dossier.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Outlook : http://faq.outlook.free.fr/ les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id les archives : http://groups.google.com/group/microsoft.public.fr.outlook Dernière chance http://www.outlookcode.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Henry <Henry@discussions.microsoft.com> que je salue a écrit *:
bonjour,
en parcourant les dossiers
comme ceci :
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
For Each folder In myNameSpace.Folders
Set MyMessagerie = folder
For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers,
mais rien ne me renseigne sur la nature du dossier
est ce que qq aurai idée de la soluce ?
merci !
ici une macro qui parcourt tous les dossiers et ss dossiers.
http://faq.outlook.free.fr/readarticle.php?article_id$3
tu dois vérifier la valeur de DefaultItemType
Les constantes OlItemType possibles sont :
olAppointmentItem
olContactItem
olDistributionListItem
olJournalItem
olMailItem
olNoteItem
olPostItem
olTaskItem
donc :
if startfolder.DefaultItemType = olContactItem then
end if
mais cela ne veut pas dire qu'il ne peut pas y avoir autre chose dans ce
dossier.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
bonjour, en parcourant les dossiers comme ceci : Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") For Each folder In myNameSpace.Folders Set MyMessagerie = folder For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers, mais rien ne me renseigne sur la nature du dossier est ce que qq aurai idée de la soluce ? merci !
ici une macro qui parcourt tous les dossiers et ss dossiers. http://faq.outlook.free.fr/readarticle.php?article_id$3
tu dois vérifier la valeur de DefaultItemType
Les constantes OlItemType possibles sont : olAppointmentItem olContactItem olDistributionListItem olJournalItem olMailItem olNoteItem olPostItem olTaskItem donc :
if startfolder.DefaultItemType = olContactItem then end if
mais cela ne veut pas dire qu'il ne peut pas y avoir autre chose dans ce dossier.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Outlook : http://faq.outlook.free.fr/ les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id les archives : http://groups.google.com/group/microsoft.public.fr.outlook Dernière chance http://www.outlookcode.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Henry
merci, c'est parfait, bonne journée !
*Henry que je salue a écrit *:
bonjour, en parcourant les dossiers comme ceci : Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") For Each folder In myNameSpace.Folders Set MyMessagerie = folder For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers, mais rien ne me renseigne sur la nature du dossier est ce que qq aurai idée de la soluce ? merci !
ici une macro qui parcourt tous les dossiers et ss dossiers. http://faq.outlook.free.fr/readarticle.php?article_id$3
tu dois vérifier la valeur de DefaultItemType
Les constantes OlItemType possibles sont : olAppointmentItem olContactItem olDistributionListItem olJournalItem olMailItem olNoteItem olPostItem olTaskItem donc :
if startfolder.DefaultItemType = olContactItem then end if
mais cela ne veut pas dire qu'il ne peut pas y avoir autre chose dans ce dossier.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Outlook : http://faq.outlook.free.fr/ les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id les archives : http://groups.google.com/group/microsoft.public.fr.outlook Dernière chance http://www.outlookcode.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
merci, c'est parfait,
bonne journée !
*Henry <Henry@discussions.microsoft.com> que je salue a écrit *:
bonjour,
en parcourant les dossiers
comme ceci :
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
For Each folder In myNameSpace.Folders
Set MyMessagerie = folder
For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers,
mais rien ne me renseigne sur la nature du dossier
est ce que qq aurai idée de la soluce ?
merci !
ici une macro qui parcourt tous les dossiers et ss dossiers.
http://faq.outlook.free.fr/readarticle.php?article_id$3
tu dois vérifier la valeur de DefaultItemType
Les constantes OlItemType possibles sont :
olAppointmentItem
olContactItem
olDistributionListItem
olJournalItem
olMailItem
olNoteItem
olPostItem
olTaskItem
donc :
if startfolder.DefaultItemType = olContactItem then
end if
mais cela ne veut pas dire qu'il ne peut pas y avoir autre chose dans ce
dossier.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
bonjour, en parcourant les dossiers comme ceci : Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") For Each folder In myNameSpace.Folders Set MyMessagerie = folder For Each F In MyMessagerie.Folders
j'accède bien à tous les dossiers, mais rien ne me renseigne sur la nature du dossier est ce que qq aurai idée de la soluce ? merci !
ici une macro qui parcourt tous les dossiers et ss dossiers. http://faq.outlook.free.fr/readarticle.php?article_id$3
tu dois vérifier la valeur de DefaultItemType
Les constantes OlItemType possibles sont : olAppointmentItem olContactItem olDistributionListItem olJournalItem olMailItem olNoteItem olPostItem olTaskItem donc :
if startfolder.DefaultItemType = olContactItem then end if
mais cela ne veut pas dire qu'il ne peut pas y avoir autre chose dans ce dossier.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Outlook : http://faq.outlook.free.fr/ les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id les archives : http://groups.google.com/group/microsoft.public.fr.outlook Dernière chance http://www.outlookcode.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~