[MFC/Outlook] Erreur lors de la création d'un contact

Bonjour à tous,
Je souhaiterais parcourir une base de donnée (Pervasive), trouver un contact particulier dans cette base (par exemple Nom = MARTIN) et créer un contact Outlook en récupérant les informations dans la base.

Pour ce faire j'utilise les classe CDatabase et CRecordset ainsi que le modèle objet de Outlook.

Voici mon code (qui n'est pas encore complet) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

//On parcourt la table pour trouver le contact que l'on veut créer sous Outlook while (!spRecordSetContact.IsEOF()) { if(strcmp((const char *)spRecordSetContact.m_ChefSv.Trim(), "Bouli") == 0) { CContactItem NewContact; CUserProperties NewContactProperties = NewContact.get_UserProperties(); AfxMessageBox(_T("Création en cours...")); NewContact.put_LastName(CString(spRecordSetContact.m_NomCnt.Trim())); NewContact.put_Email1Address(CString(spRecordSetContact.m_MelCnt.Trim())); //CUserProperty NewField = NewUserProperties.Add(_T("CodTie"), 1, vVariant, vDisplay); //1 = Type Text //NewContact.Save(); //On sauvegarde le nouveau contact //spItem.Add(); } spRecordSetContact.MoveNext(); }

---

Donc je recherche le contact dont le chef de service est "Bouli", tout marche bien seulement ma table contient 3 contacts, le 2eme contact est celui que je veux créer. Tout fonctionne jusqu'à ce que la ligne en rouge génère une erreur (à l'exécution) lors de l'accès au dernier contact de la table.
Je ne comprend pas d'où cela peut venir car je parcourt ma table avec le même type de boucle un peu plus haut dans mon programme et cela fonctionne parfaitement.

Si quelqu'un a une idée.
Merci.

Après plusieurs tests, si j'enlève tous le bloc "if", la boucle fonctionne correctement et aucune erreur n'est générée.

Le recordset n'est utilisé qu'en lecture, je ne pense donc pas que cela vienne de lui.

A partir du moment ou je ne met pas la ligne

Code:

---

CUserProperties NewContactProperties = NewContact.get_UserProperties();

---

En commentaire, l'erreur est générée.

Si la classe CContactItem est bien la classe de smart pointers, alors NewContact est un smart pointer qui ne pointe sur rien du tout...

Bonjour,
Effectivement, seulement je souhaite créer un contact de toute pièce et remplir ses champs grâce à ma table.
Comment faire alors pour créer un Contact puis l'ajouter à Outlook ?
Merci.

Il doit y avoir une méthode New, Create ou Add dans la classe qui fait la liste de contacts, ou un truc du genre. Regarde dans la doc du modèle objet Outlook...

Bonjour,
La classe CContactItem ne contient pas de fonction d'ajout ou de création ce qui me semble logique car un contact ne se crée pas tous seul 8O

J'ai donc regardé la classe du dessus "CItem" qui elle contient une fonction "Add" dont voici le prototype :

Code:

---

LPDISPATCH CItems::Add(Variant &Type)

---

Je suppose donc que le Type est le type d'objet que l'on veut créer, dans notre cas un CContactItem.
Reste plus qu'a trouvé la valeur correspondante au CContactItem...
Pour le moment je n'ai rien trouvé dans la msdn..

Merci.

Voila j'ai trouvé, voici la table de correspondance de olItemType :
http://msdn.microsoft.com/en-us/library/aa911356.aspx

Et voici la doc de la fonction add :
http://msdn.microsoft.com/en-us/library/bb220348.aspx

Note: apparemment, Add() est exposé par CItems, pas CItem...

Oui oui excuse moi, c'est un oublie, c'est bien CItems..
Sinon il se passe quelque chose de bizarre, voici mon code :

Code:

---

1 2 3 4 5 6

VARIANT vContactItem; vContactItem.vt = VT_INT; vContactItem.intVal = 2;   CContactItem NewContact = spItem.Add(vContactItem);

---

spItem étant la collection de tous mes contacts Outlook.

Ce code me semble correct seulement il me génère l'erreur "Paramètre Incorrect" à l'exécution...

Une idée ?

Merci

Déjà, renomme ton pointeur intelligent en spItems pour indiquer qu'il pointe bien sur une collection.
Ensuite, essaie de voir en passant explicitement un pointeur sur le VARIANT, plutôt que le passer directement.

Toujours la même erreur... :aie:

Peux-tu montrer plus de code ?

PS: La doc la plus récente et la plus complète sur OlItemType est celle-ci.

Voici mon code (j'ai surement pas du faire ce que tu pensais..) :

Code:

---

1 2 3 4 5 6

VARIANT *vContactItem; vContactItem = new VARIANT; vContactItem->vt = VT_INT; vContactItem->intVal = 2; CContactItem NewContact = spItems.Add(*vContactItem);

---

C'est pas à ça que tu pensais ? (C'est vrai que ça revient à la même chose que de le passer directement..) :sm:

Est-ce que ceci compile? (et marche ?)

Code:

---

1 2 3 4 5

VARIANT vContactItem; vContactItem.vt = VT_INT; vContactItem.intVal = 2; CContactItem NewContact = spItem.Add(&vContactItem);

---

Non cela ne compile pas :

Citation:

---

"Impossible de convertir le paramètre 1 de 'VARIANT' en 'VARIANT &' "

---

Puis-je voir la déclaration et l'initialisation de spItem ?

Bien sûr, la voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

CApplication spAppli; CMAPIFolder spFolder; CNameSpace spNameSpace; spAppli.CreateDispatch(_T("Outlook.Application")); spNameSpace = spAppli.GetNamespace(_T("MAPI")); spFolder = spNameSpace.GetDefaultFolder(10); //10 = Folder Contacts CItems spItems(spFolder.get_Items());

---

PS : Je ne pense pas que cela vienne de la car l'ensemble du programme fonctionne et j'utilise plusieurs fois spItems

Il doit s'être passé un truc bizarre lors de mon import, car je n'ai pas les mêmes prototypes que toi.

Chez moi, CItems::Add() prend un LPDISPATCH en paramètre au lieu d'un VARIANT &, alors que la doc parle bien d'un VARIANT...

Voici l'intégralité de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

CApplication spAppli; CMAPIFolder spFolder; CNameSpace spNameSpace; CString sTest;   VARIANT vVariant, vValue, vDisplay, vContactItem; vVariant.vt = VT_BOOL; //vVariant est un booléen servant dans la fonction CUserProperties::Find vVariant.boolVal = VARIANT_TRUE; //vVariant = True signifie que l'on recherche une "custom properties" vValue.vt = VT_BSTR; //vValue est une CString servant à récupérer la valeur du champ IDG5 vDisplay.vt = VT_INT; vDisplay.intVal = 1; //vDisplay est un Int qui permet de choisir le type d'affichage des champs perso que l'on crée. vContactItem.vt = VT_INT; //vContactItem est un Int qui permet de créer un objet de type CContactItem vContactItem.intVal = 2;   //Création d'un smart pointer sur une application Outlook spAppli.CreateDispatch(_T("Outlook.Application")); AfxMessageBox(_T("Application Outlook ouverte"));   //Récupération du Namespace spNameSpace = spAppli.GetNamespace(_T("MAPI"));   //Récupération du répertoire des contacts spFolder = spNameSpace.GetDefaultFolder(10);   //Récupération des contacts et de leurs informations AfxMessageBox(_T("Traitement des contacts...")); CItems spItems(spFolder.get_Items()); //On récupère l'ensemble des contacts dans une collection d'objet   AfxMessageBox(_T("Creation d'un nouveau contact Outlook à partir de la base"));   //On parcourt la table pour trouver le contact que l'on veut créer sous Outlook while (!spRecordSetContact.IsEOF()) { if(strcmp((const char *)spRecordSetContact.m_ChefSv.Trim(), "Bouli") == 0) //Filtre de recherche { CContactItem NewContact = spItems.Add(vContactItem);   } spRecordSetContact.MoveNext(); } spRecordSetContact.MoveFirst(); //On revient à la première ligne

---

Le recordset que j'ai fonctionne parfaitement, je l'utilise également à d'autres endroit de mon code sans aucun problème.

Et que se passe-t-il si tu passes vMissing à la place?

Code:

---

1 2	COleVariant vMissing(DISP_E_PARAMNOTFOUND, VT_ERROR); CContactItem spNewContact = spItems.Add(vMissing);

---

PS: Sinon, tu peux toujours renoncer aux wrappers MFC pour utiliser ceux du Compiler COM Support à la place : Je viens de trouver comment les faire marcher...

Avec vMissing, ça compile et s'exécute sans erreur.

Qu'est-ce que ce vMissing ?

Ça veut dire "pas de paramètre". Ça marche uniquement pour les paramètres optionnels.

Je me suis dit que ça marcherait peut-être parce que le code VB des exemples fait comme ça.
Je suppose que le Add() du dossier de contacts n'accepte pas qu'on y passe un paramètre, même si c'est le bon type...

Ok bah merci bien en tout cas.
Je suppose également qu'un simple CContactItem.Save() enregistrera le contact au bon endroit dans le bon dossier, etc...

Il n'y a pas de raison étant donné que je l'ajoute à la collection de Contact du bon repértoire, etc...

Mais bon on sait jamais.

Bon ça fonctionne tout bien. C'est parfait!
Merci pour tout cher Medinoc.