OUTLOOK 2002 - Contacts - adresses de messagerie inutilisables
4 réponses
FTh
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est
impossible de d'envoyer un message en utilisant simplement l'annuaire (le
libellé est récupéré, mais pas d'adresse électronique). Par contre, les
adresses sont visibles lorsque le dossier Contacts est affiché en mode carte
de visite détaillée.
Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît
(mode carte de visite) sans étiquette (sans nom) et sans adresse
électronique, tous les autres détails étant eux bien visibles.
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
Fred
Personne n'a une petite idée ? Cordialement, Frédéric Thibeaud
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Personne n'a une petite idée ?
Cordialement,
Frédéric Thibeaud
"FTh" <fth.prive@free.fr> a écrit dans le message de news:
uaFgmK6OGHA.2604@TK2MSFTNGP09.phx.gbl...
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il
est
impossible de d'envoyer un message en utilisant simplement l'annuaire (le
libellé est récupéré, mais pas d'adresse électronique). Par contre, les
adresses sont visibles lorsque le dossier Contacts est affiché en mode
carte
de visite détaillée.
Autre symptôme, lors de la création d'un nouveau contact, la fiche
apparaît
(mode carte de visite) sans étiquette (sans nom) et sans adresse
électronique, tous les autres détails étant eux bien visibles.
Personne n'a une petite idée ? Cordialement, Frédéric Thibeaud
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Fred
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que : - l'export du fichier Contacts n'exporte pas les adresses électroniques - l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que :
- l'export du fichier Contacts n'exporte pas les adresses électroniques
- l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec
protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" <fth.prive@free.fr> a écrit dans le message de news:
uaFgmK6OGHA.2604@TK2MSFTNGP09.phx.gbl...
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il
est
impossible de d'envoyer un message en utilisant simplement l'annuaire (le
libellé est récupéré, mais pas d'adresse électronique). Par contre, les
adresses sont visibles lorsque le dossier Contacts est affiché en mode
carte
de visite détaillée.
Autre symptôme, lors de la création d'un nouveau contact, la fiche
apparaît
(mode carte de visite) sans étiquette (sans nom) et sans adresse
électronique, tous les autres détails étant eux bien visibles.
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que : - l'export du fichier Contacts n'exporte pas les adresses électroniques - l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Oliv'
Allez je me lance, il y a peut être eu utilisation d'un formulaire spécial, et les emails ne sont pas dans le bon champ.
Soit dans export vers access ou excel choisir dans les champs personnailsé tous les champs.
Si tu t'y connais en vba tu peux utiliser comme base cela : faut d'abord que tu trouves ou est cette adresse Email en mode pause (point d'arret devant le IF apres le FOR) en developpant dans la fenetre variable locale la variable myitem.
Sub ContactmajEmail3() 'pour mettre à jour un champ ici l'email 3 'Oliv' le 15122005
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
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que : - l'export du fichier Contacts n'exporte pas les adresses électroniques - l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Allez je me lance, il y a peut être eu utilisation d'un formulaire spécial,
et les emails ne sont pas dans le bon champ.
Soit dans export vers access ou excel choisir dans les champs personnailsé
tous les champs.
Si tu t'y connais en vba tu peux utiliser comme base cela :
faut d'abord que tu trouves ou est cette adresse Email
en mode pause (point d'arret devant le IF apres le FOR) en developpant dans
la fenetre variable locale
la variable myitem.
Sub ContactmajEmail3()
'pour mettre à jour un champ ici l'email 3
'Oliv' le 15122005
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
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que :
- l'export du fichier Contacts n'exporte pas les adresses
électroniques - l'édition mode porte-cartes fait bien apparaître les
adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro
SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" <fth.prive@free.fr> a écrit dans le message de news:
uaFgmK6OGHA.2604@TK2MSFTNGP09.phx.gbl...
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et
il est
impossible de d'envoyer un message en utilisant simplement
l'annuaire (le libellé est récupéré, mais pas d'adresse
électronique). Par contre, les adresses sont visibles lorsque le
dossier Contacts est affiché en mode carte
de visite détaillée.
Autre symptôme, lors de la création d'un nouveau contact, la fiche
apparaît
(mode carte de visite) sans étiquette (sans nom) et sans adresse
électronique, tous les autres détails étant eux bien visibles.
Allez je me lance, il y a peut être eu utilisation d'un formulaire spécial, et les emails ne sont pas dans le bon champ.
Soit dans export vers access ou excel choisir dans les champs personnailsé tous les champs.
Si tu t'y connais en vba tu peux utiliser comme base cela : faut d'abord que tu trouves ou est cette adresse Email en mode pause (point d'arret devant le IF apres le FOR) en developpant dans la fenetre variable locale la variable myitem.
Sub ContactmajEmail3() 'pour mettre à jour un champ ici l'email 3 'Oliv' le 15122005
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
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que : - l'export du fichier Contacts n'exporte pas les adresses électroniques - l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Fred
Merci de t'être lancé...
Mais... L'export n'exporte pas les adresses électroniques, bien entendu le champs est vide. Ce champs n'existe pas non plus dans la liste des champs d'une fiche individuelle... Il apparaît par contre au niveau de l'édition papier, pratique pour la sauvegarde :-) ... Y aurait-il un moyen pour revenir à la configuration d'origine de la base et du formulaire ?
Fred
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Allez je me lance, il y a peut être eu utilisation d'un formulaire spécial, et les emails ne sont pas dans le bon champ.
Soit dans export vers access ou excel choisir dans les champs personnailsé tous les champs.
Si tu t'y connais en vba tu peux utiliser comme base cela : faut d'abord que tu trouves ou est cette adresse Email en mode pause (point d'arret devant le IF apres le FOR) en developpant dans la fenetre variable locale la variable myitem.
Sub ContactmajEmail3() 'pour mettre à jour un champ ici l'email 3 'Oliv' le 15122005
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
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que : - l'export du fichier Contacts n'exporte pas les adresses électroniques - l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
Cela vous dit-il quelque chose ?
Cordialement, Frédéric Thibeaud
Merci de t'être lancé...
Mais...
L'export n'exporte pas les adresses électroniques, bien entendu le champs
est vide.
Ce champs n'existe pas non plus dans la liste des champs d'une fiche
individuelle...
Il apparaît par contre au niveau de l'édition papier, pratique pour la
sauvegarde :-)
...
Y aurait-il un moyen pour revenir à la configuration d'origine de la base et
du formulaire ?
Fred
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: OACseWFPGHA.3164@TK2MSFTNGP11.phx.gbl...
Allez je me lance, il y a peut être eu utilisation d'un formulaire
spécial,
et les emails ne sont pas dans le bon champ.
Soit dans export vers access ou excel choisir dans les champs personnailsé
tous les champs.
Si tu t'y connais en vba tu peux utiliser comme base cela :
faut d'abord que tu trouves ou est cette adresse Email
en mode pause (point d'arret devant le IF apres le FOR) en developpant
dans la fenetre variable locale
la variable myitem.
Sub ContactmajEmail3()
'pour mettre à jour un champ ici l'email 3
'Oliv' le 15122005
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
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que :
- l'export du fichier Contacts n'exporte pas les adresses
électroniques - l'édition mode porte-cartes fait bien apparaître les
adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro
SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" <fth.prive@free.fr> a écrit dans le message de news:
uaFgmK6OGHA.2604@TK2MSFTNGP09.phx.gbl...
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et
il est
impossible de d'envoyer un message en utilisant simplement
l'annuaire (le libellé est récupéré, mais pas d'adresse
électronique). Par contre, les adresses sont visibles lorsque le
dossier Contacts est affiché en mode carte
de visite détaillée.
Autre symptôme, lors de la création d'un nouveau contact, la fiche
apparaît
(mode carte de visite) sans étiquette (sans nom) et sans adresse
électronique, tous les autres détails étant eux bien visibles.
Mais... L'export n'exporte pas les adresses électroniques, bien entendu le champs est vide. Ce champs n'existe pas non plus dans la liste des champs d'une fiche individuelle... Il apparaît par contre au niveau de l'édition papier, pratique pour la sauvegarde :-) ... Y aurait-il un moyen pour revenir à la configuration d'origine de la base et du formulaire ?
Fred
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Allez je me lance, il y a peut être eu utilisation d'un formulaire spécial, et les emails ne sont pas dans le bon champ.
Soit dans export vers access ou excel choisir dans les champs personnailsé tous les champs.
Si tu t'y connais en vba tu peux utiliser comme base cela : faut d'abord que tu trouves ou est cette adresse Email en mode pause (point d'arret devant le IF apres le FOR) en developpant dans la fenetre variable locale la variable myitem.
Sub ContactmajEmail3() 'pour mettre à jour un champ ici l'email 3 'Oliv' le 15122005
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
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pourquoi personne ne semble intéressé à ce problème ?
Je peux préciser que : - l'export du fichier Contacts n'exporte pas les adresses électroniques - l'édition mode porte-cartes fait bien apparaître les adresses...
Il semble qu'il y ait une corruption quelconque, la machine (XP Pro SP2 avec protection et mises à jour...) est propre...
Auriez-vous une idée sur comment rétablir ces contacts ?
Merci d'avance pour votre aide...
FTh
"FTh" a écrit dans le message de news:
Bonjour,
Petit soucis avec mon Outlook 2002, dans la gestion des Contacts,
les adresses de messagerie sont invisibles dans la fiche contact, et il est impossible de d'envoyer un message en utilisant simplement l'annuaire (le libellé est récupéré, mais pas d'adresse électronique). Par contre, les adresses sont visibles lorsque le dossier Contacts est affiché en mode carte de visite détaillée. Autre symptôme, lors de la création d'un nouveau contact, la fiche apparaît (mode carte de visite) sans étiquette (sans nom) et sans adresse électronique, tous les autres détails étant eux bien visibles.
