Bonjour,
Je travaille actuellement sur le déploiement de signature sur Outlook 2010.
Pour cela je récupère les infos user coté AD, dont notamment le numéro de téléphone :
Ainsi j'obtiens une chaîne de caractère sous la forme "0122334455" et mon but c'est de l'afficher sous la forme "+33 (0)1 22 33 44 55"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Set objSysInfo = CreateObject("ADSystemInfo" ) objSysInfo.RefreshSchemaCache qQuery = "LDAP://" & objSysInfo.Username Set objuser = GetObject(qQuery) PhoneNumber = objuser.telephoneNumber
J'ai donc tenté d'adapter un bout de code trouvé ici : http://www.developpez.net/forums/d78...telephone-vbs/
Voici le code proposé sur le lien :
Je voudrais en faire une fonction pour formater mes numéros de téléphone (et fax) mais malgré plusieurs tests/modifications je n'y arrive toujours pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 RawPhoneNumber="0125885544" Set oReg = New RegExp oReg.Pattern = "(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})" MsgBox oReg.Replace(RawPhoneNumber, "$1 $2 $3 $4 $5")
Si vous avez une solution je suis preneur![]()
Partager