🚀 go-pugleaf

Hallo,

Ik maak gebruik van Outlook 2000 en heb een functie ontworpen (VBA) die
klanten (naam, e-mailadress, enz.) vanuit een flat-file importeert naar
Outlook contact items in de publieke folder "klanten". Deze functie word dan
dagelijks gedraaid om de info in outlook up-to-date te houden

Dit is mijn code:

Dim OutlookObj As Outlook.Application
Dim Nms As Outlook.NameSpace
Dim MyContacts As MAPIFolder
Dim MyItems As ITems
Dim MyItem As ContactItem
...
Set OutlookObj = CreateObject("Outlook.Application")
Set Nms = OutlookObj.GetNamespace("MAPI")
Set MyContacts = Nms.Folders.Item("Public Folders").Folders.Item("All Public
Folders").Folders.Item("Klanten")
Set MyItems = MyContacts.Items
...
While Not EOF(fileNummer)
//Lezen bestand en lijn omzetten naar de struct stClient
  Set MyItem = MyItems.Add(olContactItem)
  MyItem.FullName = stClient.name
  MyItem.Email1Address = stClient.email
  ...
  MyItem.Save
  MyItem.Close (olSave)
Wend

Deze functie werkt op het eerste gezicht perfect. Als je gaat kijken naar de
klanten folder zie je alle toegevoegde items daar netjes staan.

Maar wanneer ik nu een mail wil sturen vanuit outlook door in het e-mail
venster op de knop <<To...>> drukkken en daarna Klanten te kiezen bij de
<<Show Names from the: >> keuzelijst is er geen spoor te bekenen van de
juist ingevoerde contacten. Deze komen pas te voorschijn als je het
contactitem opent, deze opslaat en sluit.

Als ik mijn code echter aanpas en
  ...
  MyItem.Save
  MyItem.Close (olSave)
  ...
verander in
  ...
  MyItem.Display
  MyItem.Close (olSave)
  ...
dan werkt alles perfect. De contactitems worden getoond, maar telken malen
hij een nieuw contactitem wegschrijft dan toont hij heel eventjes het
contactitem venster. Dus wanneer ik enkele honderden contactitems moet
toevoegen dan heeft dit een fantastisch flikkerend scherm tot gevolg.

Kan iemand mij helpen met dit probleem?

Oh ja, in de volledige functie worden alle e-mailadressen ook nog ingedeeld
in distributielijsten. Deze distributielijsten verschijnen wel in het
<<To...>> venstertje zonder dat er
  ...
  MyDistList.Display
  ...
moet staan.

Thnx,

Bob