Bonjour à tous.
En VB 6 je sais récupérer le carnet d'adresses de Outlook.
Maintenant que je suis passé sur Vista, je ne sais pas comment récupérer le
carnet d'adresses de Windows Mail en utilisant VB 6.
Est-ce que quelqu'un pourrait m'aider et si possible m'indiquer un code.
D'avance merci de votre réponse
Bonjour à tous.
En VB 6 je sais récupérer le carnet d'adresses de Outlook.
Maintenant que je suis passé sur Vista, je ne sais pas comment récupérer le
carnet d'adresses de Windows Mail en utilisant VB 6.
Est-ce que quelqu'un pourrait m'aider et si possible m'indiquer un code.
D'avance merci de votre réponse
Bonjour à tous.
En VB 6 je sais récupérer le carnet d'adresses de Outlook.
Maintenant que je suis passé sur Vista, je ne sais pas comment récupérer le
carnet d'adresses de Windows Mail en utilisant VB 6.
Est-ce que quelqu'un pourrait m'aider et si possible m'indiquer un code.
D'avance merci de votre réponse
Bonjour Dan,
Dan a écrit :Bonjour à tous.
En VB 6 je sais récupérer le carnet d'adresses de Outlook.
Maintenant que je suis passé sur Vista, je ne sais pas comment récupérer le
carnet d'adresses de Windows Mail en utilisant VB 6.
Est-ce que quelqu'un pourrait m'aider et si possible m'indiquer un code.
D'avance merci de votre réponse
D'après ce que j'ai vu, les contacts Windows Mail sont enregistrés
individuellement dans des fichiers XML sous le nom 'NomDuContact.contact'
dans le répertoire %USERPROFILE%Contacts.
Ces fichiers ont la forme :
<?xml version="1.0" encoding="UTF-8"?>
<c:contact c:Version="1" xmlns:c="http://schemas.microsoft.com/Contact"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:MSP2P="http://schemas.microsoft.com/Contact/Extended/MSP2P">
<c:CreationDate>2007-06-18T06:18:48Z</c:CreationDate>
<c:ContactIDCollection>
<c:ContactID c:ElementID="bede76eb-115f-416c-aba9-88ee856e88e9">
<c:Value>6c0876c8-0af3-41d9-b5b0-21a99b84d335</c:Value>
</c:ContactID>
</c:ContactIDCollection>
<c:EmailAddressCollection>
<c:EmailAddress c:ElementID="4e51e5ce-7d7f-427c-b3a3-749b43049355">
<c:Type>SMTP</c:Type>
<c:Address></c:Address>
<c:LabelCollection>
<c:Label>Preferred</c:Label>
</c:LabelCollection>
</c:EmailAddress>
<c:EmailAddress c:ElementID="cffec0c5-eb0e-4860-a969-476bf9ff1f7b"/>
</c:EmailAddressCollection>
<c:NameCollection>
<c:Name c:ElementID="568aa1c9-aff7-43e9-83c3-0cb05d8c228c">
<c:FormattedName>Jacques Le Goc</c:FormattedName>
<c:FamilyName>Le Goc</c:FamilyName>
<c:GivenName>Jacques</c:GivenName>
</c:Name>
</c:NameCollection>
<c:PhotoCollection>
<c:Photo c:ElementID="262fe893-a313-489f-9f25-9bb4fe7ac5f5">
<c:LabelCollection>
<c:Label>UserTile</c:Label>
</c:LabelCollection>
</c:Photo>
</c:PhotoCollection>
</c:contact>
mais certain 'Tag' comme xsi:nil="true" empêche de les parser automatiquement
(syntaxe invalide).
Il est toutefois possible de récupérer les informations : sous VB ajouter une
référence à Micrososft XML 4.0, et adapter le code suivant :
' --------------------------------------------------------------------
Private Sub EnumContact()
Dim Root As String
Dim Fic As String
Root = Environ("userprofile") & "Contacts"
Fic = Dir(Root & "*.*")
While Len(Fic) > 0
GetContactInfo (Root & Fic)
Fic = Dir()
Wend
End Sub
Private Sub GetContactInfo(ContactFile As String)
Dim objDom As DOMDocument
Set objDom = New DOMDocument
objDom.async = False
objDom.Load ContactFile
Debug.Print "Nom complet : " & GetNodList(objDom, "c:FormattedName")
Debug.Print "Nom : " & GetNodList(objDom, "c:FamilyName")
Debug.Print "Prénom : " & GetNodList(objDom, "c:GivenName")
Debug.Print "E-mail : " & GetNodList(objDom, "c:Address")
Debug.Print "Type : " & GetNodList(objDom, "c:Type")
Debug.Print "Crée le : " & GetNodList(objDom, "c:CreationDate")
Debug.Print
Set objDom = Nothing
End Sub
Private Function GetNodList(objDom As DOMDocument, _
TagName As String) As String
On Error Resume Next
GetNodList = objDom.getElementsByTagName(TagName).Item(0).Text
End Function
Bonjour Dan,
Dan a écrit :
Bonjour à tous.
En VB 6 je sais récupérer le carnet d'adresses de Outlook.
Maintenant que je suis passé sur Vista, je ne sais pas comment récupérer le
carnet d'adresses de Windows Mail en utilisant VB 6.
Est-ce que quelqu'un pourrait m'aider et si possible m'indiquer un code.
D'avance merci de votre réponse
D'après ce que j'ai vu, les contacts Windows Mail sont enregistrés
individuellement dans des fichiers XML sous le nom 'NomDuContact.contact'
dans le répertoire %USERPROFILE%Contacts.
Ces fichiers ont la forme :
<?xml version="1.0" encoding="UTF-8"?>
<c:contact c:Version="1" xmlns:c="http://schemas.microsoft.com/Contact"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:MSP2P="http://schemas.microsoft.com/Contact/Extended/MSP2P">
<c:CreationDate>2007-06-18T06:18:48Z</c:CreationDate>
<c:ContactIDCollection>
<c:ContactID c:ElementID="bede76eb-115f-416c-aba9-88ee856e88e9">
<c:Value>6c0876c8-0af3-41d9-b5b0-21a99b84d335</c:Value>
</c:ContactID>
</c:ContactIDCollection>
<c:EmailAddressCollection>
<c:EmailAddress c:ElementID="4e51e5ce-7d7f-427c-b3a3-749b43049355">
<c:Type>SMTP</c:Type>
<c:Address>jacques.le-goc@wanamoo.fr</c:Address>
<c:LabelCollection>
<c:Label>Preferred</c:Label>
</c:LabelCollection>
</c:EmailAddress>
<c:EmailAddress c:ElementID="cffec0c5-eb0e-4860-a969-476bf9ff1f7b"/>
</c:EmailAddressCollection>
<c:NameCollection>
<c:Name c:ElementID="568aa1c9-aff7-43e9-83c3-0cb05d8c228c">
<c:FormattedName>Jacques Le Goc</c:FormattedName>
<c:FamilyName>Le Goc</c:FamilyName>
<c:GivenName>Jacques</c:GivenName>
</c:Name>
</c:NameCollection>
<c:PhotoCollection>
<c:Photo c:ElementID="262fe893-a313-489f-9f25-9bb4fe7ac5f5">
<c:LabelCollection>
<c:Label>UserTile</c:Label>
</c:LabelCollection>
</c:Photo>
</c:PhotoCollection>
</c:contact>
mais certain 'Tag' comme xsi:nil="true" empêche de les parser automatiquement
(syntaxe invalide).
Il est toutefois possible de récupérer les informations : sous VB ajouter une
référence à Micrososft XML 4.0, et adapter le code suivant :
' --------------------------------------------------------------------
Private Sub EnumContact()
Dim Root As String
Dim Fic As String
Root = Environ("userprofile") & "Contacts"
Fic = Dir(Root & "*.*")
While Len(Fic) > 0
GetContactInfo (Root & Fic)
Fic = Dir()
Wend
End Sub
Private Sub GetContactInfo(ContactFile As String)
Dim objDom As DOMDocument
Set objDom = New DOMDocument
objDom.async = False
objDom.Load ContactFile
Debug.Print "Nom complet : " & GetNodList(objDom, "c:FormattedName")
Debug.Print "Nom : " & GetNodList(objDom, "c:FamilyName")
Debug.Print "Prénom : " & GetNodList(objDom, "c:GivenName")
Debug.Print "E-mail : " & GetNodList(objDom, "c:Address")
Debug.Print "Type : " & GetNodList(objDom, "c:Type")
Debug.Print "Crée le : " & GetNodList(objDom, "c:CreationDate")
Debug.Print
Set objDom = Nothing
End Sub
Private Function GetNodList(objDom As DOMDocument, _
TagName As String) As String
On Error Resume Next
GetNodList = objDom.getElementsByTagName(TagName).Item(0).Text
End Function
Bonjour Dan,
Dan a écrit :Bonjour à tous.
En VB 6 je sais récupérer le carnet d'adresses de Outlook.
Maintenant que je suis passé sur Vista, je ne sais pas comment récupérer le
carnet d'adresses de Windows Mail en utilisant VB 6.
Est-ce que quelqu'un pourrait m'aider et si possible m'indiquer un code.
D'avance merci de votre réponse
D'après ce que j'ai vu, les contacts Windows Mail sont enregistrés
individuellement dans des fichiers XML sous le nom 'NomDuContact.contact'
dans le répertoire %USERPROFILE%Contacts.
Ces fichiers ont la forme :
<?xml version="1.0" encoding="UTF-8"?>
<c:contact c:Version="1" xmlns:c="http://schemas.microsoft.com/Contact"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:MSP2P="http://schemas.microsoft.com/Contact/Extended/MSP2P">
<c:CreationDate>2007-06-18T06:18:48Z</c:CreationDate>
<c:ContactIDCollection>
<c:ContactID c:ElementID="bede76eb-115f-416c-aba9-88ee856e88e9">
<c:Value>6c0876c8-0af3-41d9-b5b0-21a99b84d335</c:Value>
</c:ContactID>
</c:ContactIDCollection>
<c:EmailAddressCollection>
<c:EmailAddress c:ElementID="4e51e5ce-7d7f-427c-b3a3-749b43049355">
<c:Type>SMTP</c:Type>
<c:Address></c:Address>
<c:LabelCollection>
<c:Label>Preferred</c:Label>
</c:LabelCollection>
</c:EmailAddress>
<c:EmailAddress c:ElementID="cffec0c5-eb0e-4860-a969-476bf9ff1f7b"/>
</c:EmailAddressCollection>
<c:NameCollection>
<c:Name c:ElementID="568aa1c9-aff7-43e9-83c3-0cb05d8c228c">
<c:FormattedName>Jacques Le Goc</c:FormattedName>
<c:FamilyName>Le Goc</c:FamilyName>
<c:GivenName>Jacques</c:GivenName>
</c:Name>
</c:NameCollection>
<c:PhotoCollection>
<c:Photo c:ElementID="262fe893-a313-489f-9f25-9bb4fe7ac5f5">
<c:LabelCollection>
<c:Label>UserTile</c:Label>
</c:LabelCollection>
</c:Photo>
</c:PhotoCollection>
</c:contact>
mais certain 'Tag' comme xsi:nil="true" empêche de les parser automatiquement
(syntaxe invalide).
Il est toutefois possible de récupérer les informations : sous VB ajouter une
référence à Micrososft XML 4.0, et adapter le code suivant :
' --------------------------------------------------------------------
Private Sub EnumContact()
Dim Root As String
Dim Fic As String
Root = Environ("userprofile") & "Contacts"
Fic = Dir(Root & "*.*")
While Len(Fic) > 0
GetContactInfo (Root & Fic)
Fic = Dir()
Wend
End Sub
Private Sub GetContactInfo(ContactFile As String)
Dim objDom As DOMDocument
Set objDom = New DOMDocument
objDom.async = False
objDom.Load ContactFile
Debug.Print "Nom complet : " & GetNodList(objDom, "c:FormattedName")
Debug.Print "Nom : " & GetNodList(objDom, "c:FamilyName")
Debug.Print "Prénom : " & GetNodList(objDom, "c:GivenName")
Debug.Print "E-mail : " & GetNodList(objDom, "c:Address")
Debug.Print "Type : " & GetNodList(objDom, "c:Type")
Debug.Print "Crée le : " & GetNodList(objDom, "c:CreationDate")
Debug.Print
Set objDom = Nothing
End Sub
Private Function GetNodList(objDom As DOMDocument, _
TagName As String) As String
On Error Resume Next
GetNodList = objDom.getElementsByTagName(TagName).Item(0).Text
End Function
Voilà donc une solution élégante. Je m'apprêtais à utiliser des fonctions
très primaires de recherche de chaîne par méconnaissance de XML.
Nous ne programmons pas dans la même catégorie. ;-(
Voilà donc une solution élégante. Je m'apprêtais à utiliser des fonctions
très primaires de recherche de chaîne par méconnaissance de XML.
Nous ne programmons pas dans la même catégorie. ;-(
Voilà donc une solution élégante. Je m'apprêtais à utiliser des fonctions
très primaires de recherche de chaîne par méconnaissance de XML.
Nous ne programmons pas dans la même catégorie. ;-(
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Suite ...Voilà donc une solution élégante. Je m'apprêtais à utiliser des
fonctions très primaires de recherche de chaîne par méconnaissance de
XML.
Nous ne programmons pas dans la même catégorie. ;-(
Je comprends maintenant pourquoi on ne parle pas le même langage.
Sous XP j'ai de vrais XML (.contact) qui sont partagés sur les Live et
qui sont donc déchiffrables comme tu le montres dans ton exemple.
Sous Vista, c'est lisible sous Word 2003 mais impossible à déchiffrer
simplement. Ils portent une extension différente (.WindowsLiveContact)
et sont communs à Windows Mail et Windows Live MachinsTrucs.
Leur forme peut être différente.
Qu'en pense notre magicien ?
Je peux t'envoyer des fichiers en privé ....
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Suite ...
Voilà donc une solution élégante. Je m'apprêtais à utiliser des
fonctions très primaires de recherche de chaîne par méconnaissance de
XML.
Nous ne programmons pas dans la même catégorie. ;-(
Je comprends maintenant pourquoi on ne parle pas le même langage.
Sous XP j'ai de vrais XML (.contact) qui sont partagés sur les Live et
qui sont donc déchiffrables comme tu le montres dans ton exemple.
Sous Vista, c'est lisible sous Word 2003 mais impossible à déchiffrer
simplement. Ils portent une extension différente (.WindowsLiveContact)
et sont communs à Windows Mail et Windows Live MachinsTrucs.
Leur forme peut être différente.
Qu'en pense notre magicien ?
Je peux t'envoyer des fichiers en privé ....
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Suite ...Voilà donc une solution élégante. Je m'apprêtais à utiliser des
fonctions très primaires de recherche de chaîne par méconnaissance de
XML.
Nous ne programmons pas dans la même catégorie. ;-(
Je comprends maintenant pourquoi on ne parle pas le même langage.
Sous XP j'ai de vrais XML (.contact) qui sont partagés sur les Live et
qui sont donc déchiffrables comme tu le montres dans ton exemple.
Sous Vista, c'est lisible sous Word 2003 mais impossible à déchiffrer
simplement. Ils portent une extension différente (.WindowsLiveContact)
et sont communs à Windows Mail et Windows Live MachinsTrucs.
Leur forme peut être différente.
Qu'en pense notre magicien ?
Je peux t'envoyer des fichiers en privé ....
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Bonjour Jacques93, tu as écrit le 13/12/2007 :
aski a écrit :Bonjour Jacques93, tu as écrit le 13/12/2007 :
Voilà ce que j'obtiens sous Word 2003 :
<http://cjoint.com/?moaGwJUgEt>
A partir d'une partition sous XP, sur une partition sous Vista.
Office 2007, j'ai un peu de mal à m'y faire
aski a écrit :
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Voilà ce que j'obtiens sous Word 2003 :
<http://cjoint.com/?moaGwJUgEt>
A partir d'une partition sous XP, sur une partition sous Vista.
Office 2007, j'ai un peu de mal à m'y faire
aski a écrit :Bonjour Jacques93, tu as écrit le 13/12/2007 :
Voilà ce que j'obtiens sous Word 2003 :
<http://cjoint.com/?moaGwJUgEt>
A partir d'une partition sous XP, sur une partition sous Vista.
Office 2007, j'ai un peu de mal à m'y faire
Bonjour Jacques93, tu as écrit le 14/12/2007 :aski a écrit :Bonjour Jacques93, tu as écrit le 13/12/2007 :Voilà ce que j'obtiens sous Word 2003 :<http://cjoint.com/?moaGwJUgEt>A partir d'une partition sous XP, sur une partition sous Vista.Office 2007, j'ai un peu de mal à m'y faire
J'ai peur de ne pas bien comprendre.
Tu as lu à partir de XP un fichier de Vista ?
En tous cas chez moi, sous Vista c'est comparable sans être aussi
complet. Je t'envie quelques exemples en privé.
Bonjour Jacques93, tu as écrit le 14/12/2007 :
aski a écrit :
Bonjour Jacques93, tu as écrit le 13/12/2007 :
Voilà ce que j'obtiens sous Word 2003 :
<http://cjoint.com/?moaGwJUgEt>
A partir d'une partition sous XP, sur une partition sous Vista.
Office 2007, j'ai un peu de mal à m'y faire
J'ai peur de ne pas bien comprendre.
Tu as lu à partir de XP un fichier de Vista ?
En tous cas chez moi, sous Vista c'est comparable sans être aussi
complet. Je t'envie quelques exemples en privé.
Bonjour Jacques93, tu as écrit le 14/12/2007 :aski a écrit :Bonjour Jacques93, tu as écrit le 13/12/2007 :Voilà ce que j'obtiens sous Word 2003 :<http://cjoint.com/?moaGwJUgEt>A partir d'une partition sous XP, sur une partition sous Vista.Office 2007, j'ai un peu de mal à m'y faire
J'ai peur de ne pas bien comprendre.
Tu as lu à partir de XP un fichier de Vista ?
En tous cas chez moi, sous Vista c'est comparable sans être aussi
complet. Je t'envie quelques exemples en privé.
Envois bien reçu, pas encore regardés.
Envois bien reçu, pas encore regardés.
Envois bien reçu, pas encore regardés.
Bonjour news.free.fr, tu as écrit le 14/12/2007 :Envois bien reçu, pas encore regardés.
Tu as 2 pseudos ?
Bonjour news.free.fr, tu as écrit le 14/12/2007 :
Envois bien reçu, pas encore regardés.
Tu as 2 pseudos ?
Bonjour news.free.fr, tu as écrit le 14/12/2007 :Envois bien reçu, pas encore regardés.
Tu as 2 pseudos ?