Criei uma rotina no Access para chamar uma Appointment no Outlook, e está funcionando bem.

Apenas as funçoes: RequiredAttendees e OptionalAttendees não estão funcionando como deveriam.

Eu passo os nomes dos usuário para RequiredAttendees e OptionalAttendees, mas o Outlook reconhece todos como "Required" e nenhum como "Optional".

Vou colocar a rotina que criei para ver se alguém pode me ajudar...

________________________________________________________________________
Public Sub CriaOutlookAppoitment()
On Error GoTo Err_CriaOutlookAppoitment

Dim olApp As Outlook.Application
Dim olAppointment As Outlook.AppointmentItem

Set olApp = New Outlook.Application
Set olAppointment = olApp.CreateItem(olAppointmentItem)

With olAppointment

.MeetingStatus = olMeeting

.Subject = "Texto com assunto"

.Body = "Texto do corpo do appointment"

.RequiredAttendees = "Usuários Required"
.OptionalAttendees = "Usuários Optional"

.Display

End With

Set olAppointment = Nothing
Set olApp = Nothing

Exit_CriaOutlookAppoitment:
Exit Sub
Err_CriaOutlookAppoitment:
MsgBox Err.Description
Resume Exit_CriaOutlookAppoitment
End Sub
____________________________________________________________________

Obrigado.