J'ai enregistré tous mes contacts dans Outlook 2003 en passant par la boite
de dialogue de saisie des numéros (que l'on obtient lorsque l'on clique sur
Bureau, domicile ou autres) en saisissant le numéro dans le champ Numéro
local. Cela se traduit sur l'affichage général du contact par +33 (04) 79...
Tout va bien pour la consultation, mais lorsque je synchronise avec mon
téléphone, il synchronise les numéros avec ce format ce qui ne permet pas
d'appeler le correspondant. On doit soit mettre +33 4 79 (sans le 0) ou 04
79 ... (sans le +33). Si les deux sont présents, on ne peut rien faire...
Mais j'ai déjà enregistré tous mes contacts...
Y a t il un moyen de tous les modifier sans le faire manuellement...
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
Oliv'
*joyboy74 que je salut a écrit *:
Bonjour à tous,
J'ai enregistré tous mes contacts dans Outlook 2003 en passant par la boite de dialogue de saisie des numéros (que l'on obtient lorsque l'on clique sur Bureau, domicile ou autres) en saisissant le numéro dans le champ Numéro local. Cela se traduit sur l'affichage général du contact par +33 (04) 79... Tout va bien pour la consultation, mais lorsque je synchronise avec mon téléphone, il synchronise les numéros avec ce format ce qui ne permet pas d'appeler le correspondant. On doit soit mettre +33 4 79 (sans le 0) ou 04 79 ... (sans le +33). Si les deux sont présents, on ne peut rien faire... Mais j'ai déjà enregistré tous mes contacts... Y a t il un moyen de tous les modifier sans le faire manuellement...
OUI avec une macro
inspire toi de celle là
Sub ContactmajEmail3() 'pour mettre à jour un champ ici l'email 3
Dim myOlApp As Outlook.Application Dim myNamespace As Outlook.NameSpace Dim myContacts As Outlook.Items Dim myItems As Outlook.Items Dim myItem As Object Set myOlApp = CreateObject("Outlook.Application") Set myNamespace = myOlApp.GetNamespace("MAPI") Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items strWhere = "[MobileTelephoneNumber] >''" Set myItems = myContacts.Restrict(strWhere) For Each myItem In myItems If (myItem.Class = olContact) Then MsgBox myItem.FullName & ": [" & myItem.MobileTelephoneNumber & "]" concat = Replace(Replace(Replace(myItem.MobileTelephoneNumber, " ", ""), "(", ""), ")", "") & "@sms-xd.fr" myItem.Email3Address = concat myItem.Save concat = "" End If Next End Sub
Merci d'avance pour votre aide.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*joyboy74 <joyboy74@hotmail.fr> que je salut a écrit *:
Bonjour à tous,
J'ai enregistré tous mes contacts dans Outlook 2003 en passant par la
boite de dialogue de saisie des numéros (que l'on obtient lorsque
l'on clique sur Bureau, domicile ou autres) en saisissant le numéro
dans le champ Numéro local. Cela se traduit sur l'affichage général
du contact par +33 (04) 79... Tout va bien pour la consultation, mais
lorsque je synchronise avec mon téléphone, il synchronise les numéros
avec ce format ce qui ne permet pas d'appeler le correspondant. On
doit soit mettre +33 4 79 (sans le 0) ou 04 79 ... (sans le +33). Si
les deux sont présents, on ne peut rien faire... Mais j'ai déjà
enregistré tous mes contacts...
Y a t il un moyen de tous les modifier sans le faire manuellement...
OUI avec une macro
inspire toi de celle là
Sub ContactmajEmail3()
'pour mettre à jour un champ ici l'email 3
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items
strWhere = "[MobileTelephoneNumber] >''"
Set myItems = myContacts.Restrict(strWhere)
For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox myItem.FullName & ": [" & myItem.MobileTelephoneNumber &
"]"
concat = Replace(Replace(Replace(myItem.MobileTelephoneNumber, "
", ""), "(", ""), ")", "") & "@sms-xd.fr"
myItem.Email3Address = concat
myItem.Save
concat = ""
End If
Next
End Sub
Merci d'avance pour votre aide.
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai enregistré tous mes contacts dans Outlook 2003 en passant par la boite de dialogue de saisie des numéros (que l'on obtient lorsque l'on clique sur Bureau, domicile ou autres) en saisissant le numéro dans le champ Numéro local. Cela se traduit sur l'affichage général du contact par +33 (04) 79... Tout va bien pour la consultation, mais lorsque je synchronise avec mon téléphone, il synchronise les numéros avec ce format ce qui ne permet pas d'appeler le correspondant. On doit soit mettre +33 4 79 (sans le 0) ou 04 79 ... (sans le +33). Si les deux sont présents, on ne peut rien faire... Mais j'ai déjà enregistré tous mes contacts... Y a t il un moyen de tous les modifier sans le faire manuellement...
OUI avec une macro
inspire toi de celle là
Sub ContactmajEmail3() 'pour mettre à jour un champ ici l'email 3
Dim myOlApp As Outlook.Application Dim myNamespace As Outlook.NameSpace Dim myContacts As Outlook.Items Dim myItems As Outlook.Items Dim myItem As Object Set myOlApp = CreateObject("Outlook.Application") Set myNamespace = myOlApp.GetNamespace("MAPI") Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items strWhere = "[MobileTelephoneNumber] >''" Set myItems = myContacts.Restrict(strWhere) For Each myItem In myItems If (myItem.Class = olContact) Then MsgBox myItem.FullName & ": [" & myItem.MobileTelephoneNumber & "]" concat = Replace(Replace(Replace(myItem.MobileTelephoneNumber, " ", ""), "(", ""), ")", "") & "@sms-xd.fr" myItem.Email3Address = concat myItem.Save concat = "" End If Next End Sub
Merci d'avance pour votre aide.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
