Bonjour a tous,
J'ai actuellement un petit problème concernant le développement d'une partie de mon application.
J'ai une application avec une base de donnée client, j'arrive a selectionner les clients souhaités via un dataview et ensuite de les exporter sur outlook.
Mais le problème vient quand on a deja le client dans la base de contact outlook, il y a création de doublons.
Malgré mes recherches et mes essais infructueux je bloque sur ce passage.
Voila mon code
Je pense que la solution se trouve du coté du oCo = oFold.Items.Find("[LastName] = " & filtre) mais je ne dois pas avoir la bonne méthode
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
43
44
45
46
47
48
49
50
51
52 Dim oApp As New Outlook.Application Dim Ns As Outlook.NameSpace Dim oFold As Outlook.Folder Dim oCont As Outlook.ContactItem Dim oCo As Outlook.ContactItem Dim filtre As String Ns = oApp.GetNamespace("MAPI") oFold = Ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts) For L = 0 To DVRecherche.Count - 1 // boucle qui me permet de parcourir ma dataview oCont = oApp.CreateItem(Outlook.OlItemType.olContactItem) With oCont filtre = DVRecherche.Item(L).Row("Nom") oCo = oFold.Items.Find("[LastName] = " & filtre) If oCo Is Nothing Then If DVRecherche.Item(L).Row("Nom") IsNot DBNull.Value Then .FirstName = DVRecherche.Item(L).Row("Nom") If DVRecherche.Item(L).Row("Prénom") IsNot DBNull.Value Then .LastName = DVRecherche.Item(L).Row("Prénom") If DVRecherche.Item(L).Row("GSM") IsNot DBNull.Value Then .MobileTelephoneNumber = DVRecherche.Item(L).Row("GSM") If DVRecherche.Item(L).Row("Entreprise") IsNot DBNull.Value Then .CompanyName = DVRecherche.Item(L).Row("Entreprise") If DVRecherche.Item(L).Row("Adresse") IsNot DBNull.Value Then .BusinessAddress = DVRecherche.Item(L).Row("Adresse") If DVRecherche.Item(L).Row("CP") IsNot DBNull.Value Then .BusinessAddressPostalCode = DVRecherche.Item(L).Row("CP") If DVRecherche.Item(L).Row("Ville") IsNot DBNull.Value Then .BusinessAddressCity = DVRecherche.Item(L).Row("Ville") If DVRecherche.Item(L).Row("Fonction") IsNot DBNull.Value Then .JobTitle = DVRecherche.Item(L).Row("Fonction") If DVRecherche.Item(L).Row("Téléphone") IsNot DBNull.Value Then .BusinessTelephoneNumber = DVRecherche.Item(L).Row("Téléphone") If DVRecherche.Item(L).Row("Fax") IsNot DBNull.Value Then .BusinessFaxNumber = DVRecherche.Item(L).Row("Fax") If DVRecherche.Item(L).Row("Autre") IsNot DBNull.Value Then .OtherTelephoneNumber = DVRecherche.Item(L).Row("Autre") If DVRecherche.Item(L).Row("Email") IsNot DBNull.Value Then .Email1Address = DVRecherche.Item(L).Row("Email") If DVRecherche.Item(L).Row("Annotations") IsNot DBNull.Value Then .Body = DVRecherche.Item(L).Row("Annotations") .Save() End If End With Next oCont = Nothing oFold = Nothing Ns = Nothing oApp = Nothing L = DVRecherche.Count
Un peu d'aide serait la bienvenue, Bonne journée a tous.
Partager