Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" <lionel.crescence@wanadoo.fr> wrote in message
news:46deb600$0$3267$426a34cc@news.free.fr...
Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" a écrit dans le
message de news:Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" <aubelin@online.microsoft.com> a écrit dans le
message de news:uAFD8IT8HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" <lionel.crescence@wanadoo.fr> wrote in message
news:46deb600$0$3267$426a34cc@news.free.fr...
Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" a écrit dans le
message de news:Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?
"Thierry DEMAN [MVP]" a écrit dans le message
de news:Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" a écrit dans le
message de news:Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?
"Thierry DEMAN [MVP]" <tdemanNOSPAM@NOSPAMfree.fr> a écrit dans le message
de news: 985B9611-D6BC-4A8E-9D7E-2856F3253A0D@microsoft.com...
Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" <aubelin@online.microsoft.com> a écrit dans le
message de news:uAFD8IT8HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" <lionel.crescence@wanadoo.fr> wrote in message
news:46deb600$0$3267$426a34cc@news.free.fr...
Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?
"Thierry DEMAN [MVP]" a écrit dans le message
de news:Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" a écrit dans le
message de news:Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonsoir,
voici déjà un script permettant d'accèder aux contacts !
( Les scripts de créations de contacts dans AD devraient être faciles à
trouver)
Dim WSHShell
Dim appOutlook
Dim mapiNameSpace
Dim ChoixContact
Dim NbC
' vor usage des constantes OutLook dans C:Program FilesMicrosoft
OfficeOffice1036VBAOUTL9.CHM
' Constantes de tous les objects OutLook OlObjectClass
Const olAction2
Const olActions3
Const olAddressEntries!
Const olAddressEntry=8
Const olAddressList=7
Const olAddressLists
Const olApplication=0
Const olAppointment&
Const olAttachment=5
Const olAttachments
Const olContact@
Const olDistributionListi
Const olDocumentA
Const olException0
Const olExceptions)
Const olExplorer4
Const olExplorers`
Const olFolder=2
Const olFolders
Const olFormDescription7
Const olInspector5
Const olInspectorsa
Const olItems
Const olJournalB
Const olLinku
Const olLinksv
Const olMailC
Const olMeetingCancellationT
Const olMeetingRequestS
Const olMeetingResponseNegativeU
Const olMeetingResponsePositiveV
Const olMeetingResponseTentativeW
Const olNamespace=1
Const olNoteD
Const olOutlookBarGroupf
Const olOutlookBarGroupse
Const olOutlookBarPanec
Const olOutlookBarShortcuth
Const olOutlookBarShortcutsg
Const olOutlookBarStoraged
Const olOutlookPropertyPageSitep
Const olPages6
Const olPanesb
Const olPostE
Const olPropertyPagesq
Const olRecipient=4
Const olRecipients
Const olRecurrencePattern(
Const olRemoteG
Const olReportF
Const olSelectiont
Const olSyncObjectr
Const olSyncObjectss
Const olTaskH
Const olTaskRequestI
Const olTaskRequestAcceptQ
Const olTaskRequestDeclineR
Const olTaskRequestUpdateP
Const olUserProperties8
Const olUserProperty9
' Constantes OlItemType
Const olAppointmentItem=1
Const olContactItem=2
Const olDistributionListItem=7
Const olJournalItem=4
Const olMailItem=0
Const olNoteItem=5
Const olPostItem=6
Const olTaskItem=3
'constantes OlDefaultFolders
Const olFolderCalendar=9
Const olFolderContacts
Const olFolderDeletedItems=3
Const olFolderDrafts
Const olFolderInbox=6
Const olFolderJournal
Const olFolderNotes
Const olFolderOutbox=4
Const olFolderSentMail=5
Const olFolderTasks
Set WSHShell = WScript.CreateObject("WScript.Shell")
' Ce n'est pas parce qu'on fait du VB (script qui plus est ) qu'on ne vas
pas traiter des expressions regulieres
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
' Authentification dans Outlook
Set appOutlook = CreateObject("Outlook.Application")
Set mapiNameSpace = appOutlook.GetNameSpace("MAPI")
'ChoixContact
ChoixContact=1
Select Case ChoixContact
Case 1
Set objFolder = mapiNameSpace.GetDefaultFolder(olFolderContacts)
Case 2
' Lecture des Contacts publics
Set PubFold = mapiNameSpace.Folders("Dossiers publics")
' lecture du dossier "Tous" si connexion en ligne
'Set Tous = PubFold.Folders("Tous")
Set objFolder = Tous.Folders("Contacts Tracking")
Case 3
' Lecture des Contacts publics
Set PubFold = mapiNameSpace.Folders("Dossiers publics")
' lecture du dossier "Favoris" si accès en mode autonaume
Set Tous = PubFold.Folders("Favoris")
Set objFolder = Tous.Folders("Contacts Tracking")
End Select
NbC=0
WScript.echo "Il y a : ", objFolder.Items.count , " contacts"
'choisir de parcourrir les éléments avec les 2 lignes suivantes ou les 2
d'après
'For Each objContact In objFolder.Items
' NbC=NbC+1
'For NbC=1 to objFolder.Items.count
For NbC=4 to 4
Set objContact = objFolder.Items.Item(NbC)
' Vérification si la classe de l'élément est de type olContact et non pas
de type olDistributionList
If objContact.Class = olContact Then
WScript.echo objContact
WScript.echo "#",NbC," ", objContact.FirstName, objContact.LastName
If objContact.BusinessTelephoneNumber <> "" Then
WScript.echo "Tel :", objContact.BusinessTelephoneNumber
WScript.echo "Fax :", objContact.BusinessFaxNumber
'Champs avec numéro de téléphone:
' propriétés de l'objet ContactItem tirée du fichier d'aide VBA pour
Outlook
'AssistantTelephoneNumber, Business2TelephoneNumber, BusinessFaxNumber,
BusinessTelephoneNumber, CallbackTelephoneNumber, CarTelephoneNumber,
CompanyMainTelephoneNumber, Home2TelephoneNumber, HomeFaxNumber,
HomeTelephoneNumber, ISDNNumber, MobileTelephoneNumber, OtherFaxNumber,
OtherTelephoneNumber, PrimaryTelephoneNumber, RadioTelephoneNumber
' tester le numéro avec une expression reguliere
re.pattern="+33 ([1-5]) [0-9][0-9] [0-9][0-9] [0-9][0-9] [0-9][0-9]"
ret=re.test(objContact.BusinessTelephoneNumber)
if not ret Then
WScript.echo "CORRIGER ce numero : ",
objContact.BusinessTelephoneNumber
' saisir ou calculer le bon format du numéro
'objContact.BusinessTelephoneNumber= "+33 (1) 40 97 49 97"
' sauvegarder le contact modifié
'objContact.save
end if
End If
else
WScript.echo ">>>", objContact, " est de type ", objContact.Class
End If
Next
Set objContact = Nothing
Set objFolder = Nothing
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Lionel" a écrit dans le message de
news:46e90839$0$9012$Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?
"Thierry DEMAN [MVP]" a écrit dans le
message de news:Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" a écrit dans le
message de news:Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonsoir,
voici déjà un script permettant d'accèder aux contacts !
( Les scripts de créations de contacts dans AD devraient être faciles à
trouver)
Dim WSHShell
Dim appOutlook
Dim mapiNameSpace
Dim ChoixContact
Dim NbC
' vor usage des constantes OutLook dans C:Program FilesMicrosoft
OfficeOffice1036VBAOUTL9.CHM
' Constantes de tous les objects OutLook OlObjectClass
Const olAction2
Const olActions3
Const olAddressEntries!
Const olAddressEntry=8
Const olAddressList=7
Const olAddressLists
Const olApplication=0
Const olAppointment&
Const olAttachment=5
Const olAttachments
Const olContact@
Const olDistributionListi
Const olDocumentA
Const olException0
Const olExceptions)
Const olExplorer4
Const olExplorers`
Const olFolder=2
Const olFolders
Const olFormDescription7
Const olInspector5
Const olInspectorsa
Const olItems
Const olJournalB
Const olLinku
Const olLinksv
Const olMailC
Const olMeetingCancellationT
Const olMeetingRequestS
Const olMeetingResponseNegativeU
Const olMeetingResponsePositiveV
Const olMeetingResponseTentativeW
Const olNamespace=1
Const olNoteD
Const olOutlookBarGroupf
Const olOutlookBarGroupse
Const olOutlookBarPanec
Const olOutlookBarShortcuth
Const olOutlookBarShortcutsg
Const olOutlookBarStoraged
Const olOutlookPropertyPageSitep
Const olPages6
Const olPanesb
Const olPostE
Const olPropertyPagesq
Const olRecipient=4
Const olRecipients
Const olRecurrencePattern(
Const olRemoteG
Const olReportF
Const olSelectiont
Const olSyncObjectr
Const olSyncObjectss
Const olTaskH
Const olTaskRequestI
Const olTaskRequestAcceptQ
Const olTaskRequestDeclineR
Const olTaskRequestUpdateP
Const olUserProperties8
Const olUserProperty9
' Constantes OlItemType
Const olAppointmentItem=1
Const olContactItem=2
Const olDistributionListItem=7
Const olJournalItem=4
Const olMailItem=0
Const olNoteItem=5
Const olPostItem=6
Const olTaskItem=3
'constantes OlDefaultFolders
Const olFolderCalendar=9
Const olFolderContacts
Const olFolderDeletedItems=3
Const olFolderDrafts
Const olFolderInbox=6
Const olFolderJournal
Const olFolderNotes
Const olFolderOutbox=4
Const olFolderSentMail=5
Const olFolderTasks
Set WSHShell = WScript.CreateObject("WScript.Shell")
' Ce n'est pas parce qu'on fait du VB (script qui plus est ) qu'on ne vas
pas traiter des expressions regulieres
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
' Authentification dans Outlook
Set appOutlook = CreateObject("Outlook.Application")
Set mapiNameSpace = appOutlook.GetNameSpace("MAPI")
'ChoixContact
ChoixContact=1
Select Case ChoixContact
Case 1
Set objFolder = mapiNameSpace.GetDefaultFolder(olFolderContacts)
Case 2
' Lecture des Contacts publics
Set PubFold = mapiNameSpace.Folders("Dossiers publics")
' lecture du dossier "Tous" si connexion en ligne
'Set Tous = PubFold.Folders("Tous")
Set objFolder = Tous.Folders("Contacts Tracking")
Case 3
' Lecture des Contacts publics
Set PubFold = mapiNameSpace.Folders("Dossiers publics")
' lecture du dossier "Favoris" si accès en mode autonaume
Set Tous = PubFold.Folders("Favoris")
Set objFolder = Tous.Folders("Contacts Tracking")
End Select
NbC=0
WScript.echo "Il y a : ", objFolder.Items.count , " contacts"
'choisir de parcourrir les éléments avec les 2 lignes suivantes ou les 2
d'après
'For Each objContact In objFolder.Items
' NbC=NbC+1
'For NbC=1 to objFolder.Items.count
For NbC=4 to 4
Set objContact = objFolder.Items.Item(NbC)
' Vérification si la classe de l'élément est de type olContact et non pas
de type olDistributionList
If objContact.Class = olContact Then
WScript.echo objContact
WScript.echo "#",NbC," ", objContact.FirstName, objContact.LastName
If objContact.BusinessTelephoneNumber <> "" Then
WScript.echo "Tel :", objContact.BusinessTelephoneNumber
WScript.echo "Fax :", objContact.BusinessFaxNumber
'Champs avec numéro de téléphone:
' propriétés de l'objet ContactItem tirée du fichier d'aide VBA pour
Outlook
'AssistantTelephoneNumber, Business2TelephoneNumber, BusinessFaxNumber,
BusinessTelephoneNumber, CallbackTelephoneNumber, CarTelephoneNumber,
CompanyMainTelephoneNumber, Home2TelephoneNumber, HomeFaxNumber,
HomeTelephoneNumber, ISDNNumber, MobileTelephoneNumber, OtherFaxNumber,
OtherTelephoneNumber, PrimaryTelephoneNumber, RadioTelephoneNumber
' tester le numéro avec une expression reguliere
re.pattern="+33 ([1-5]) [0-9][0-9] [0-9][0-9] [0-9][0-9] [0-9][0-9]"
ret=re.test(objContact.BusinessTelephoneNumber)
if not ret Then
WScript.echo "CORRIGER ce numero : ",
objContact.BusinessTelephoneNumber
' saisir ou calculer le bon format du numéro
'objContact.BusinessTelephoneNumber= "+33 (1) 40 97 49 97"
' sauvegarder le contact modifié
'objContact.save
end if
End If
else
WScript.echo ">>>", objContact, " est de type ", objContact.Class
End If
Next
Set objContact = Nothing
Set objFolder = Nothing
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Lionel" <lionel.crescence@wanadoo.fr> a écrit dans le message de
news:46e90839$0$9012$426a74cc@news.free.fr...
Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?
"Thierry DEMAN [MVP]" <tdemanNOSPAM@NOSPAMfree.fr> a écrit dans le
message de news: 985B9611-D6BC-4A8E-9D7E-2856F3253A0D@microsoft.com...
Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" <aubelin@online.microsoft.com> a écrit dans le
message de news:uAFD8IT8HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" <lionel.crescence@wanadoo.fr> wrote in message
news:46deb600$0$3267$426a34cc@news.free.fr...
Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses
Bonsoir,
voici déjà un script permettant d'accèder aux contacts !
( Les scripts de créations de contacts dans AD devraient être faciles à
trouver)
Dim WSHShell
Dim appOutlook
Dim mapiNameSpace
Dim ChoixContact
Dim NbC
' vor usage des constantes OutLook dans C:Program FilesMicrosoft
OfficeOffice1036VBAOUTL9.CHM
' Constantes de tous les objects OutLook OlObjectClass
Const olAction2
Const olActions3
Const olAddressEntries!
Const olAddressEntry=8
Const olAddressList=7
Const olAddressLists
Const olApplication=0
Const olAppointment&
Const olAttachment=5
Const olAttachments
Const olContact@
Const olDistributionListi
Const olDocumentA
Const olException0
Const olExceptions)
Const olExplorer4
Const olExplorers`
Const olFolder=2
Const olFolders
Const olFormDescription7
Const olInspector5
Const olInspectorsa
Const olItems
Const olJournalB
Const olLinku
Const olLinksv
Const olMailC
Const olMeetingCancellationT
Const olMeetingRequestS
Const olMeetingResponseNegativeU
Const olMeetingResponsePositiveV
Const olMeetingResponseTentativeW
Const olNamespace=1
Const olNoteD
Const olOutlookBarGroupf
Const olOutlookBarGroupse
Const olOutlookBarPanec
Const olOutlookBarShortcuth
Const olOutlookBarShortcutsg
Const olOutlookBarStoraged
Const olOutlookPropertyPageSitep
Const olPages6
Const olPanesb
Const olPostE
Const olPropertyPagesq
Const olRecipient=4
Const olRecipients
Const olRecurrencePattern(
Const olRemoteG
Const olReportF
Const olSelectiont
Const olSyncObjectr
Const olSyncObjectss
Const olTaskH
Const olTaskRequestI
Const olTaskRequestAcceptQ
Const olTaskRequestDeclineR
Const olTaskRequestUpdateP
Const olUserProperties8
Const olUserProperty9
' Constantes OlItemType
Const olAppointmentItem=1
Const olContactItem=2
Const olDistributionListItem=7
Const olJournalItem=4
Const olMailItem=0
Const olNoteItem=5
Const olPostItem=6
Const olTaskItem=3
'constantes OlDefaultFolders
Const olFolderCalendar=9
Const olFolderContacts
Const olFolderDeletedItems=3
Const olFolderDrafts
Const olFolderInbox=6
Const olFolderJournal
Const olFolderNotes
Const olFolderOutbox=4
Const olFolderSentMail=5
Const olFolderTasks
Set WSHShell = WScript.CreateObject("WScript.Shell")
' Ce n'est pas parce qu'on fait du VB (script qui plus est ) qu'on ne vas
pas traiter des expressions regulieres
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
' Authentification dans Outlook
Set appOutlook = CreateObject("Outlook.Application")
Set mapiNameSpace = appOutlook.GetNameSpace("MAPI")
'ChoixContact
ChoixContact=1
Select Case ChoixContact
Case 1
Set objFolder = mapiNameSpace.GetDefaultFolder(olFolderContacts)
Case 2
' Lecture des Contacts publics
Set PubFold = mapiNameSpace.Folders("Dossiers publics")
' lecture du dossier "Tous" si connexion en ligne
'Set Tous = PubFold.Folders("Tous")
Set objFolder = Tous.Folders("Contacts Tracking")
Case 3
' Lecture des Contacts publics
Set PubFold = mapiNameSpace.Folders("Dossiers publics")
' lecture du dossier "Favoris" si accès en mode autonaume
Set Tous = PubFold.Folders("Favoris")
Set objFolder = Tous.Folders("Contacts Tracking")
End Select
NbC=0
WScript.echo "Il y a : ", objFolder.Items.count , " contacts"
'choisir de parcourrir les éléments avec les 2 lignes suivantes ou les 2
d'après
'For Each objContact In objFolder.Items
' NbC=NbC+1
'For NbC=1 to objFolder.Items.count
For NbC=4 to 4
Set objContact = objFolder.Items.Item(NbC)
' Vérification si la classe de l'élément est de type olContact et non pas
de type olDistributionList
If objContact.Class = olContact Then
WScript.echo objContact
WScript.echo "#",NbC," ", objContact.FirstName, objContact.LastName
If objContact.BusinessTelephoneNumber <> "" Then
WScript.echo "Tel :", objContact.BusinessTelephoneNumber
WScript.echo "Fax :", objContact.BusinessFaxNumber
'Champs avec numéro de téléphone:
' propriétés de l'objet ContactItem tirée du fichier d'aide VBA pour
Outlook
'AssistantTelephoneNumber, Business2TelephoneNumber, BusinessFaxNumber,
BusinessTelephoneNumber, CallbackTelephoneNumber, CarTelephoneNumber,
CompanyMainTelephoneNumber, Home2TelephoneNumber, HomeFaxNumber,
HomeTelephoneNumber, ISDNNumber, MobileTelephoneNumber, OtherFaxNumber,
OtherTelephoneNumber, PrimaryTelephoneNumber, RadioTelephoneNumber
' tester le numéro avec une expression reguliere
re.pattern="+33 ([1-5]) [0-9][0-9] [0-9][0-9] [0-9][0-9] [0-9][0-9]"
ret=re.test(objContact.BusinessTelephoneNumber)
if not ret Then
WScript.echo "CORRIGER ce numero : ",
objContact.BusinessTelephoneNumber
' saisir ou calculer le bon format du numéro
'objContact.BusinessTelephoneNumber= "+33 (1) 40 97 49 97"
' sauvegarder le contact modifié
'objContact.save
end if
End If
else
WScript.echo ">>>", objContact, " est de type ", objContact.Class
End If
Next
Set objContact = Nothing
Set objFolder = Nothing
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Lionel" a écrit dans le message de
news:46e90839$0$9012$Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?
"Thierry DEMAN [MVP]" a écrit dans le
message de news:Bonsoir,
par script, cela est possible! Mais, il faut que l'utilisateur réalisant
le traitement ait le droit de lire les contacts dans la boîte et de les
intégrer dans Active Directory (Droit d'écrire).
A+
--
Thierry DEMAN-BARCELÒ
Exchange MVP, MCSE2003+M,MCSE2003+S,MCDBA,MCITP dba&Dev
http://base.faqexchange.info http://www.faqexchange.info
http://ISAFirewalls.org
"Aurélia BELIN [MS]" a écrit dans le
message de news:Bonjour,
Non ce n'est pas possible à moins de créer ces contacts dans l'AD et de
renseigner l'attribut showinaddressbook (manuellement ou par le RUS)
Aurélia
"Lionel" wrote in message
news:46deb600$0$3267$Bonjour,
Est-il possible de "synchroniser" ou de copier les contacts perso
d'outlook dans la GAL?
Si oui, comment?(scripts?)
Merci d'avance pour vos réponses