Bonjout tout le monde,
J'ai un petit souci qui me bloque depuis ce matin.
Je travaille sur VB6 et OUTLOOK 2003.
Je dois exporter le cerant d'adresse Local de Lotus vers OUTLOOK avec un exe VB6.
J'arrive à créer mes contacts et mes goupes/listes de diffusion.
Or je n'arrive par à intégrer les contact de mes listes de diffusion. Le Champs RESEOLVED reste toujours à FALSE.
Voici mon chti code :
<<<<
Function CreateOutlookGroupe(Groupe As Tp_GpeRec)
'Create objects
Set ObjOLApp = CreateObject("Outlook.Application")
Set objGroupItem = ObjOLApp.CreateItem(7)
With objGroupItem
.Body = Groupe.ListDes
.DLName = Groupe.ListName
For Li_i = 1 To Groupe.NbMembers
Set tempitem = Nothing: Set tempcont = Nothing
Set tempitem = ObjOLApp.CreateItem(0)
Set tempcont = tempitem.Recipients
tempcont.Add Groupe.NameMembers(Li_i)
tempcont.ResolveAll
.AddMembers tempcont
.Save
Next
'Save the new group
.Save
End With
End Function
>>>>>>>>>>>>
Est-ce que quelqu'un aurait une idée sur le pourquoi du comment , SVP ?
Merci par avance