Création d'un carnet d'adresse dans dossier public : validation process
4 réponses
Oliv'
Bonjour,
Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de mes
utilisateurs.
Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un dossier
public.
Pour les initérants je coche dans les paramètres du mode "Exchange mis en
cache"
"télécharger le dossier public favoris" et donc je mets CONTACTPUBLICS dans
"favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le bordel
( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ?
dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de fichiers pst
+ éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ?
j'ai vu Scruber sur le site je Jièl
MErci d'avance
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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
Laurent Francfort [MS]
Bonjour,
Apparemment, d'un point de vue technique, ton process a l'air bon : mettre le dossier public dans les favoris, ce qui permet de le synchroniser. La mise en mode cache active le fichier .OST et donc la possibilité d'avoir le dossier disponible en mode déconnecté.
Ensuite, c'est surtout une question de process : si tu as peur que tes utilisateurs mettent le bordel, donne-leur le rôle Auteur sur le dossier, ce qui fait qu'ils ne pourront pas modifier les contacts saisis par d'autres personnes.
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système". D'autre part, sur le fond, sauf cas particulier, il me parait logique que chaque utilisateur puisse avoir besoin - et envie - de conserver des adresses d'interlocuteurs qui lui sont spécifiques.
Laurent
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour, Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de mes utilisateurs. Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un dossier public.
Pour les initérants je coche dans les paramètres du mode "Exchange mis en cache" "télécharger le dossier public favoris" et donc je mets CONTACTPUBLICS dans "favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le bordel ( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ? dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de fichiers pst + éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ? j'ai vu Scruber sur le site je Jièl
MErci d'avance
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour,
Apparemment, d'un point de vue technique, ton process a l'air bon : mettre
le dossier public dans les favoris, ce qui permet de le synchroniser. La
mise en mode cache active le fichier .OST et donc la possibilité d'avoir le
dossier disponible en mode déconnecté.
Ensuite, c'est surtout une question de process : si tu as peur que tes
utilisateurs mettent le bordel, donne-leur le rôle Auteur sur le dossier, ce
qui fait qu'ils ne pourront pas modifier les contacts saisis par d'autres
personnes.
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier
Contacts de la BAL des utilisateurs : c'est un dossier "système". D'autre
part, sur le fond, sauf cas particulier, il me parait logique que chaque
utilisateur puisse avoir besoin - et envie - de conserver des adresses
d'interlocuteurs qui lui sont spécifiques.
Laurent
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: eRkWKjQSGHA.5468@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de mes
utilisateurs.
Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un dossier
public.
Pour les initérants je coche dans les paramètres du mode "Exchange mis en
cache"
"télécharger le dossier public favoris" et donc je mets CONTACTPUBLICS
dans "favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le
bordel ( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ?
dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de fichiers
pst
+ éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ?
j'ai vu Scruber sur le site je Jièl
MErci d'avance
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Apparemment, d'un point de vue technique, ton process a l'air bon : mettre le dossier public dans les favoris, ce qui permet de le synchroniser. La mise en mode cache active le fichier .OST et donc la possibilité d'avoir le dossier disponible en mode déconnecté.
Ensuite, c'est surtout une question de process : si tu as peur que tes utilisateurs mettent le bordel, donne-leur le rôle Auteur sur le dossier, ce qui fait qu'ils ne pourront pas modifier les contacts saisis par d'autres personnes.
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système". D'autre part, sur le fond, sauf cas particulier, il me parait logique que chaque utilisateur puisse avoir besoin - et envie - de conserver des adresses d'interlocuteurs qui lui sont spécifiques.
Laurent
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour, Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de mes utilisateurs. Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un dossier public.
Pour les initérants je coche dans les paramètres du mode "Exchange mis en cache" "télécharger le dossier public favoris" et donc je mets CONTACTPUBLICS dans "favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le bordel ( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ? dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de fichiers pst + éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ? j'ai vu Scruber sur le site je Jièl
MErci d'avance
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
Laurent Francfort [MS] que je salut a écrit :
Bonjour,
Apparemment, d'un point de vue technique, ton process a l'air bon : mettre le dossier public dans les favoris, ce qui permet de le synchroniser. La mise en mode cache active le fichier .OST et donc la possibilité d'avoir le dossier disponible en mode déconnecté.
Ensuite, c'est surtout une question de process : si tu as peur que tes utilisateurs mettent le bordel, donne-leur le rôle Auteur sur le dossier, ce qui fait qu'ils ne pourront pas modifier les contacts saisis par d'autres personnes.
Ok je vais faire cela.
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système". D'autre part, sur le fond, sauf cas particulier, il me parait logique que chaque utilisateur puisse avoir besoin - et envie - de conserver des adresses d'interlocuteurs qui lui sont spécifiques.
C'était plus pour la faisabilité et pour qu'ils privilégient le dossier contact public.
En tout ca MERCI beaucoup pour ta réponse.
Oliv'
Laurent
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour, Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de mes utilisateurs. Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un dossier public.
Pour les initérants je coche dans les paramètres du mode "Exchange mis en cache" "télécharger le dossier public favoris" et donc je mets CONTACTPUBLICS dans "favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le bordel ( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ? dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de fichiers pst + éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ? j'ai vu Scruber sur le site je Jièl
MErci d'avance
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Laurent Francfort [MS] <laurentf@online.microsoft.com> que je salut a écrit
:
Bonjour,
Apparemment, d'un point de vue technique, ton process a l'air bon :
mettre le dossier public dans les favoris, ce qui permet de le
synchroniser. La mise en mode cache active le fichier .OST et donc la
possibilité d'avoir le dossier disponible en mode déconnecté.
Ensuite, c'est surtout une question de process : si tu as peur que tes
utilisateurs mettent le bordel, donne-leur le rôle Auteur sur le
dossier, ce qui fait qu'ils ne pourront pas modifier les contacts
saisis par d'autres personnes.
Ok je vais faire cela.
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier
Contacts de la BAL des utilisateurs : c'est un dossier "système".
D'autre part, sur le fond, sauf cas particulier, il me parait logique
que chaque utilisateur puisse avoir besoin - et envie - de conserver
des adresses d'interlocuteurs qui lui sont spécifiques.
C'était plus pour la faisabilité et pour qu'ils privilégient le dossier
contact public.
En tout ca MERCI beaucoup pour ta réponse.
Oliv'
Laurent
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: eRkWKjQSGHA.5468@TK2MSFTNGP14.phx.gbl...
Bonjour,
Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de
mes utilisateurs.
Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un
dossier public.
Pour les initérants je coche dans les paramètres du mode "Exchange
mis en cache"
"télécharger le dossier public favoris" et donc je mets
CONTACTPUBLICS dans "favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le
bordel ( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ?
dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de
fichiers pst
+ éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ?
j'ai vu Scruber sur le site je Jièl
MErci d'avance
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook OE6 :
http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Apparemment, d'un point de vue technique, ton process a l'air bon : mettre le dossier public dans les favoris, ce qui permet de le synchroniser. La mise en mode cache active le fichier .OST et donc la possibilité d'avoir le dossier disponible en mode déconnecté.
Ensuite, c'est surtout une question de process : si tu as peur que tes utilisateurs mettent le bordel, donne-leur le rôle Auteur sur le dossier, ce qui fait qu'ils ne pourront pas modifier les contacts saisis par d'autres personnes.
Ok je vais faire cela.
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système". D'autre part, sur le fond, sauf cas particulier, il me parait logique que chaque utilisateur puisse avoir besoin - et envie - de conserver des adresses d'interlocuteurs qui lui sont spécifiques.
C'était plus pour la faisabilité et pour qu'ils privilégient le dossier contact public.
En tout ca MERCI beaucoup pour ta réponse.
Oliv'
Laurent
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour, Je souhaiterai rationnaliser l'utilisation des carnets d'adresses de mes utilisateurs. Avec un serveur Exchange 5.5 et OUTLOOK 2003 (mode cache activé).
Merci de me confirmer mon processus :
Je crée un carnet d'adresses commun (CONTACTPUBLICS ), dans un dossier public.
Pour les initérants je coche dans les paramètres du mode "Exchange mis en cache" "télécharger le dossier public favoris" et donc je mets CONTACTPUBLICS dans "favoris" de "dossier public".
Quelles règles faut'il imposer pour que ce ne soit pas rapidement le bordel ( ajout ,suppression, zones renseignées...)?
Comment Obliger l'utilisation de ce seul carnet d'adresses ? dans l'adressage des carnets d'adresses ?
Peut on supprimer le dossier contacts de la bal si oui comment ?
Je dois donc fusionner environ 18 dossiers contacts à partir de fichiers pst + éventuellement des carnets d'adresses perso.
Quels conseils pour gérer les doublons ? j'ai vu Scruber sur le site je Jièl
MErci d'avance
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
*Laurent Francfort [MS] que je salut a écrit *:
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système".
Je reviens sur cette possibilité elle existe bien. J'en ai fait l'expérience plus ou moins douloureusement.
POUR LA PETITE HISTOIRE : J'avais une boite ou il n'y avait que "Boite de réception","Boite d'envoi", "éléments envoyés" et "éléments supprimés" parce que c'était un BAL partagée.(exchange) En voulant tester un truc pour répondre à un post. j'ai ouvert cette BAL directement dans un nouveau profil ce qui m'a créé un tripoté de dossiers brouillons , calendrier, taches ...
j'ai donc fait une tite macro à la va vite. ;-((((( pour que ca redevienne comme avant.
Conséquence j'ai supprimé sans le vouloir croyant être sur la bonne BAL le calendrier de mon boss !!
Bon ca va j'ai réussi a récupérer presque toutes ses données.
LE CODE "RECTIFIE"
Sub Sup_folder() Dim objSession As MAPI.Session Dim objInfoStore As MAPI.InfoStore Dim objRootFolder As MAPI.Folder Dim objFolders As MAPI.Folders Dim objFolder As MAPI.Folder
Set objSession = New MAPI.Session objSession.Logon "", "", False, False Set objInfoStore = objSession.GetInfoStore(objSession.Inbox.StoreID)
Set objRootFolder = objInfoStore.RootFolder Set objFolders = objRootFolder.Folders For f = 1 To objSession.InfoStores.Count 'ici on indique le nom de la BAL If objSession.InfoStores.Item(f).Name = "Boîte aux lettres - FAX" Then Set myfax = objSession.InfoStores.Item(f) Exit For End If Next f MsgBox myfax.Name debut:
Set myfaxFolders = myfax.RootFolder.Folders For i = 1 To myfaxFolders.Count supri = MsgBox("supprimer :" + myfaxFolders(i).Name, vbYesNo, myfax.Name) If supri = vbYes Then myfaxFolders(i).Delete
Encore = MsgBox("Encore ?", vbYesNo) If Encore = vbYes Then GoTo debut
End If Next i
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Laurent Francfort [MS] <laurentf@online.microsoft.com> que je salut a écrit
*:
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier
Contacts de la BAL des utilisateurs : c'est un dossier "système".
Je reviens sur cette possibilité elle existe bien.
J'en ai fait l'expérience plus ou moins douloureusement.
POUR LA PETITE HISTOIRE :
J'avais une boite ou il n'y avait que "Boite de réception","Boite d'envoi",
"éléments envoyés" et "éléments supprimés"
parce que c'était un BAL partagée.(exchange)
En voulant tester un truc pour répondre à un post. j'ai ouvert cette BAL
directement dans un nouveau profil
ce qui m'a créé un tripoté de dossiers brouillons , calendrier, taches ...
j'ai donc fait une tite macro à la va vite. ;-((((( pour que ca redevienne
comme avant.
Conséquence j'ai supprimé sans le vouloir croyant être sur la bonne BAL le
calendrier de mon boss !!
Bon ca va j'ai réussi a récupérer presque toutes ses données.
LE CODE "RECTIFIE"
Sub Sup_folder()
Dim objSession As MAPI.Session
Dim objInfoStore As MAPI.InfoStore
Dim objRootFolder As MAPI.Folder
Dim objFolders As MAPI.Folders
Dim objFolder As MAPI.Folder
Set objSession = New MAPI.Session
objSession.Logon "", "", False, False
Set objInfoStore = objSession.GetInfoStore(objSession.Inbox.StoreID)
Set objRootFolder = objInfoStore.RootFolder
Set objFolders = objRootFolder.Folders
For f = 1 To objSession.InfoStores.Count
'ici on indique le nom de la BAL
If objSession.InfoStores.Item(f).Name = "Boîte aux lettres - FAX"
Then
Set myfax = objSession.InfoStores.Item(f)
Exit For
End If
Next f
MsgBox myfax.Name
debut:
Set myfaxFolders = myfax.RootFolder.Folders
For i = 1 To myfaxFolders.Count
supri = MsgBox("supprimer :" + myfaxFolders(i).Name, vbYesNo,
myfax.Name)
If supri = vbYes Then
myfaxFolders(i).Delete
Encore = MsgBox("Encore ?", vbYesNo)
If Encore = vbYes Then GoTo debut
End If
Next i
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système".
Je reviens sur cette possibilité elle existe bien. J'en ai fait l'expérience plus ou moins douloureusement.
POUR LA PETITE HISTOIRE : J'avais une boite ou il n'y avait que "Boite de réception","Boite d'envoi", "éléments envoyés" et "éléments supprimés" parce que c'était un BAL partagée.(exchange) En voulant tester un truc pour répondre à un post. j'ai ouvert cette BAL directement dans un nouveau profil ce qui m'a créé un tripoté de dossiers brouillons , calendrier, taches ...
j'ai donc fait une tite macro à la va vite. ;-((((( pour que ca redevienne comme avant.
Conséquence j'ai supprimé sans le vouloir croyant être sur la bonne BAL le calendrier de mon boss !!
Bon ca va j'ai réussi a récupérer presque toutes ses données.
LE CODE "RECTIFIE"
Sub Sup_folder() Dim objSession As MAPI.Session Dim objInfoStore As MAPI.InfoStore Dim objRootFolder As MAPI.Folder Dim objFolders As MAPI.Folders Dim objFolder As MAPI.Folder
Set objSession = New MAPI.Session objSession.Logon "", "", False, False Set objInfoStore = objSession.GetInfoStore(objSession.Inbox.StoreID)
Set objRootFolder = objInfoStore.RootFolder Set objFolders = objRootFolder.Folders For f = 1 To objSession.InfoStores.Count 'ici on indique le nom de la BAL If objSession.InfoStores.Item(f).Name = "Boîte aux lettres - FAX" Then Set myfax = objSession.InfoStores.Item(f) Exit For End If Next f MsgBox myfax.Name debut:
Set myfaxFolders = myfax.RootFolder.Folders For i = 1 To myfaxFolders.Count supri = MsgBox("supprimer :" + myfaxFolders(i).Name, vbYesNo, myfax.Name) If supri = vbYes Then myfaxFolders(i).Delete
Encore = MsgBox("Encore ?", vbYesNo) If Encore = vbYes Then GoTo debut
End If Next i
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Laurent Francfort [MS]
Merci pour l'info ;-)
Laurent
"Oliv'" <(supprimerceci) a écrit dans le message de news:
*Laurent Francfort [MS] que je salut a écrit *:
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système".
Je reviens sur cette possibilité elle existe bien. J'en ai fait l'expérience plus ou moins douloureusement.
POUR LA PETITE HISTOIRE : J'avais une boite ou il n'y avait que "Boite de réception","Boite d'envoi", "éléments envoyés" et "éléments supprimés" parce que c'était un BAL partagée.(exchange) En voulant tester un truc pour répondre à un post. j'ai ouvert cette BAL directement dans un nouveau profil ce qui m'a créé un tripoté de dossiers brouillons , calendrier, taches ...
j'ai donc fait une tite macro à la va vite. ;-((((( pour que ca redevienne comme avant.
Conséquence j'ai supprimé sans le vouloir croyant être sur la bonne BAL le calendrier de mon boss !!
Bon ca va j'ai réussi a récupérer presque toutes ses données.
LE CODE "RECTIFIE"
Sub Sup_folder() Dim objSession As MAPI.Session Dim objInfoStore As MAPI.InfoStore Dim objRootFolder As MAPI.Folder Dim objFolders As MAPI.Folders Dim objFolder As MAPI.Folder
Set objSession = New MAPI.Session objSession.Logon "", "", False, False Set objInfoStore = objSession.GetInfoStore(objSession.Inbox.StoreID)
Set objRootFolder = objInfoStore.RootFolder Set objFolders = objRootFolder.Folders For f = 1 To objSession.InfoStores.Count 'ici on indique le nom de la BAL If objSession.InfoStores.Item(f).Name = "Boîte aux lettres - FAX" Then Set myfax = objSession.InfoStores.Item(f) Exit For End If Next f MsgBox myfax.Name debut:
Set myfaxFolders = myfax.RootFolder.Folders For i = 1 To myfaxFolders.Count supri = MsgBox("supprimer :" + myfaxFolders(i).Name, vbYesNo, myfax.Name) If supri = vbYes Then myfaxFolders(i).Delete
Encore = MsgBox("Encore ?", vbYesNo) If Encore = vbYes Then GoTo debut
End If Next i
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci pour l'info ;-)
Laurent
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: uI9ijHNVGHA.1572@tk2msftngp13.phx.gbl...
*Laurent Francfort [MS] <laurentf@online.microsoft.com> que je salut a
écrit *:
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier
Contacts de la BAL des utilisateurs : c'est un dossier "système".
Je reviens sur cette possibilité elle existe bien.
J'en ai fait l'expérience plus ou moins douloureusement.
POUR LA PETITE HISTOIRE :
J'avais une boite ou il n'y avait que "Boite de réception","Boite
d'envoi", "éléments envoyés" et "éléments supprimés"
parce que c'était un BAL partagée.(exchange)
En voulant tester un truc pour répondre à un post. j'ai ouvert cette BAL
directement dans un nouveau profil
ce qui m'a créé un tripoté de dossiers brouillons , calendrier, taches ...
j'ai donc fait une tite macro à la va vite. ;-((((( pour que ca redevienne
comme avant.
Conséquence j'ai supprimé sans le vouloir croyant être sur la bonne BAL le
calendrier de mon boss !!
Bon ca va j'ai réussi a récupérer presque toutes ses données.
LE CODE "RECTIFIE"
Sub Sup_folder()
Dim objSession As MAPI.Session
Dim objInfoStore As MAPI.InfoStore
Dim objRootFolder As MAPI.Folder
Dim objFolders As MAPI.Folders
Dim objFolder As MAPI.Folder
Set objSession = New MAPI.Session
objSession.Logon "", "", False, False
Set objInfoStore =
objSession.GetInfoStore(objSession.Inbox.StoreID)
Set objRootFolder = objInfoStore.RootFolder
Set objFolders = objRootFolder.Folders
For f = 1 To objSession.InfoStores.Count
'ici on indique le nom de la BAL
If objSession.InfoStores.Item(f).Name = "Boîte aux lettres - FAX"
Then
Set myfax = objSession.InfoStores.Item(f)
Exit For
End If
Next f
MsgBox myfax.Name
debut:
Set myfaxFolders = myfax.RootFolder.Folders
For i = 1 To myfaxFolders.Count
supri = MsgBox("supprimer :" + myfaxFolders(i).Name, vbYesNo,
myfax.Name)
If supri = vbYes Then
myfaxFolders(i).Delete
Encore = MsgBox("Encore ?", vbYesNo)
If Encore = vbYes Then GoTo debut
End If
Next i
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"Oliv'" <(supprimerceci) a écrit dans le message de news:
*Laurent Francfort [MS] que je salut a écrit *:
Sans l'avoir testé, je ne pense pas qu'on puisse supprimer le dossier Contacts de la BAL des utilisateurs : c'est un dossier "système".
Je reviens sur cette possibilité elle existe bien. J'en ai fait l'expérience plus ou moins douloureusement.
POUR LA PETITE HISTOIRE : J'avais une boite ou il n'y avait que "Boite de réception","Boite d'envoi", "éléments envoyés" et "éléments supprimés" parce que c'était un BAL partagée.(exchange) En voulant tester un truc pour répondre à un post. j'ai ouvert cette BAL directement dans un nouveau profil ce qui m'a créé un tripoté de dossiers brouillons , calendrier, taches ...
j'ai donc fait une tite macro à la va vite. ;-((((( pour que ca redevienne comme avant.
Conséquence j'ai supprimé sans le vouloir croyant être sur la bonne BAL le calendrier de mon boss !!
Bon ca va j'ai réussi a récupérer presque toutes ses données.
LE CODE "RECTIFIE"
Sub Sup_folder() Dim objSession As MAPI.Session Dim objInfoStore As MAPI.InfoStore Dim objRootFolder As MAPI.Folder Dim objFolders As MAPI.Folders Dim objFolder As MAPI.Folder
Set objSession = New MAPI.Session objSession.Logon "", "", False, False Set objInfoStore = objSession.GetInfoStore(objSession.Inbox.StoreID)
Set objRootFolder = objInfoStore.RootFolder Set objFolders = objRootFolder.Folders For f = 1 To objSession.InfoStores.Count 'ici on indique le nom de la BAL If objSession.InfoStores.Item(f).Name = "Boîte aux lettres - FAX" Then Set myfax = objSession.InfoStores.Item(f) Exit For End If Next f MsgBox myfax.Name debut:
Set myfaxFolders = myfax.RootFolder.Folders For i = 1 To myfaxFolders.Count supri = MsgBox("supprimer :" + myfaxFolders(i).Name, vbYesNo, myfax.Name) If supri = vbYes Then myfaxFolders(i).Delete
Encore = MsgBox("Encore ?", vbYesNo) If Encore = vbYes Then GoTo debut
End If Next i
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~