Création d'un contact à partir d'une VCard

[myrddin772]

Bonjour à tous !

On me demande au boulot de créer une routine qui puisse sauvegarder les contacts et une autre pour le recopier sur la session...

J'ai réussi à exporter tous les contacts sous forme de VCard mais je ne comprends pa scomprends créer un contact à partir de la VCard enregistrer sur le disque...

Quelqu'un saurait-il me dire comment on ouvre une VCard enregistrer sur le disque puis comment créer un contact à partir de cette VCard ?
Merci d'avance pour votre aide.

[Dolphy35]

Salut,

pense à consulter la

Comment importer en masse des vCard dans le dossier contacts d'Outlook 2007 ?


Dolphy

[myrddin772]

Merci,

Toutefois, j'ai un problème avec la fonction

Set MavCard = MonNamespace.OpenSharedItem(strRepertoire & "\" & fleFichier.Name)
 

Il me dit que la méthode n'est pas gérée par l'objet...
Je suis en Outlook 2003... ça joue ?

[Oliv-]

Salut,
n'aurais tu mis

strRepertoire = "C:\temp\"

au lieu de

strRepertoire = "C:\temp

"
ou alors "C:\temp" n'existe pas

[Dolphy35]

Salut,

C'est normale car la méthode OpenSharedItem n'est disponible que depuis Outlook 2007. C'est pour cela que c'est précisé dans le titre

Dolphy

[myrddin772]

Salut à tous,

Merci de la remarque Oliv-, j'ai déjà eu ce coup là donc c'est ne des premières choses que je vérifie...

Bon ben, Dolphy35, merci quand même pour la structure de la routine... dès que je trouve le moyen de le faire sous 2003 je le poste...
M'enfin si quelqu'un a une idée... elle est la bienvenue.

[Oliv-]

SAlut à tous,
Voci une alternative pour 2003 :

Sub Save_vCard_2003()
'---------------------------------------------------------------------------------------
' Procédure : Save_vCard_2003
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Modifié par : Oliv- pour OUTLOOK 2003
' Date      : 20/04/2008
' Détail    : Permet d'importer en masse des vCard vers le dossier Contact
'---------------------------------------------------------------------------------------
'
'Déclarations des variables
    Dim fsoObject As Scripting.FileSystemObject
    Dim fldDossier As Scripting.Folder
    Dim fleFichier As Scripting.File
    Dim MavCard As ContactItem
    Dim MonDossier As MAPIFolder
    Dim MonApp As New Outlook.Application
    Dim MonNamespace As Outlook.NameSpace
    'charge le répertoire dans la variable
    strRepertoire = "C:\temp"
    'instancie les FSO
    Set fsoObject = CreateObject("Scripting.FileSystemObject")
    Set fldDossier = fsoObject.GetFolder(strRepertoire)
    'Instancie l'espace "MAPI" - Session
    Set MonNamespace = MonApp.GetNamespace("MAPI")
    'Test si fichier *.vcf dans le dossier et ajout de celui-ci
    If (fldDossier.Files.Count > 0) Then
        For Each fleFichier In fldDossier.Files
            If (InStr(1, fleFichier.Name, ".vcf", 1) > 0) Then
            shellcommande = """C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"" /v """ & fleFichier.path & """"
 
            RetVal = Shell(shellcommande, 1)
            DoEvents
            Set MavCard = MonApp.ActiveInspector.CurrentItem
            MavCard.Save
            MavCard.Close olSave
            End If
        Next
    End If
    'Récupère le dossier Contacts par défaut
    Set MonDossier = MonNamespace.GetDefaultFolder(olFolderContacts)
    'Affichage d'outlook dans le dossier
    MonDossier.Display
    'Vide les instances
    Set fsoObject = Nothing
    Set fldDossier = Nothing
    Set MonNamespace = Nothing
    Set MavCard = Nothing
    Set MonDossier = Nothing
    MsgBox "Terminé"
End Sub

[Dolphy35]

merci Oliv -

[myrddin772]

Merci, sincèrement merci !