Automate adding Outlook Required Attendees with ID number

[AChuckle]

Hi-

My macro already creates an outlook invite that adds in employee ID numbers to the invite as required attendees. The IDs are in the format of "A111111". there will always be a letter followed by 6 numbers.

My problem is that once the outlook invite is created and displayed the address book does not look up the ID, change it to the appropriate persons name and then display their availability.

Does anyone know how to get the outlook address book to lookup the IDs after my macro creates the invite? My current code is below.

Dim Sales As String
Dim UW As String
Dim UWLead As String
Dim Medicare As String
Dim Rx As String
Dim DentalGI As String
Dim Director As String

Sales = Sheets("Summary").Range("E42").Value
On Error Resume Next
UW = Sheets("Summary").Range("E43").Value
On Error Resume Next
UWLead = Sheets("Summary").Range("E44").Value
On Error Resume Next
Medicare = Sheets("Summary").Range("E45").Value
On Error Resume Next
Rx = Sheets("Summary").Range("E46").Value
On Error Resume Next
DentalGI = Sheets("Summary").Range("E47").Value
On Error Resume Next
Director = Sheets("Summary").Range("E49").Value
On Error Resume Next

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olNs As Outlook.Namespace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon

' Create a new appointment
Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

' Set start time as now
olAppt.Start = Now()

With olAppt
.Duration = 30
.Subject = SubjectLine & PsName
.RequiredAttendees = Sales & "; " & UW & "; " & UWLead & "; " & Medicare & "; " & Rx & "; " & DentalGI & "; " & Director
.Body = "The call meeting information is below............"
.Location = "Call-in:......
.ReminderMinutesBeforeStart = 15
.ReminderSet = True
End With

' Display Appointment
olAppt.Display

' Clean up
Set olNs = Nothing
Set olAppt = Nothing
Set olApp = Nothing



Thanks in advance for any help!