Question : Generated contacts not showing up in distribution lists

Hello,
I've been generating employee Outlook contacts and adding them to departmental groups for our users using VBScript which has worked fine for awhile and still does on the majority of our workstations. However, it seems a select few workstations (some with Outlook 2000, others with Outlook 2003) now are having problems.

For whatever reason after the script has run, if one was to open any of the generated distribution lists(on both Outlook 2000 and 2003) it would only show a certain set of contacts and not everyone that belongs to it, however if you were to create a message and add that distribution list in the "To:" field in Outlook 2003 and expand the group, all the contacts that should be there get listed.

My question I guess is does anyone know what could be causing only a certain set of contacts (each and every time the script is run to be the only one's to show up in the distribution list?

Some additional information:
- The contacts, their information and which groups they belong too are stored in an excel spreadsheet, initially created in Excel 2000 but since been editted in Excel 2003.
- When there's new contact updates available, we increment a version number that prompts users asking if they would like to update their contacts.
- The process for updating Outlook employee contacts begins by deleting all work contacts (incase of employees that have left or otherwise) and deleting all distribution lists as specified in the excel spreadsheet.
- After previous work contacts have been deleted, all contacts are then generated.
- After the contacts have been generated, the distribution lists are then created and contacts added to them.

Answer : Generated contacts not showing up in distribution lists

I assume the code is running inside Outlook.  If so, then try replacing lines 27 - 31 with the code below.

1: 2: 3: 4:

Set objRecipient = Session.CreateRecipient(strUserName) objRecipient.Resolve objList.AddMember objRecipient objList.Save

Open in New Window

Select All