identification d'un doss en tant que contenant des contacts (vba)

Le
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 !
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
Oliv'
Le #345263
*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 !


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
Le #345255
merci, c'est parfait,
bonne journée !



*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 !


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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~






Publicité
Poster une réponse
Anonyme