Contacts Outlook vers GAL

Le
Lionel
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
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
Aurélia BELIN [MS]
Le #678487
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" 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



Thierry DEMAN [MVP]
Le #678231
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]" 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" 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






Lionel
Le #677915
Bonjour
Merci pour vos réponses!
Une autre question..où pourrais-je trouver un exemple de ce script?

"Thierry DEMAN [MVP]" 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]" 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" 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









Thierry DEMAN [MVP]
Le #677912
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" 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]" 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]" 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" 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













Lionel
Le #684578
Super!
encore merci pour Tout!

@+

"Thierry DEMAN [MVP]" de news:
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" 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]" 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]" 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" 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
















Publicité
Poster une réponse
Anonyme