Criar compromisso no Outlook

Boa tarde pessoal,

Preciso criar uma macro de lembrete/ compromisso (appointment) no Outlook, onde o comando insira data, hora início, duração e participantes.

Eu já fiz um esboço (como sou usuário novo não consigo enviar anexo), no qual clico no botão que executa o comando de abrir o lembrete do outlook com o destinatário, arquivo anexo, duração da reunião e etc, porém não queria ter que incluir os emails dos destinatários no código, mas sim deixar numa guia da planilha para inserir quais eu desejo.

Podem me ajudar por favor?

A planilha está assim (a separação por barra “|” significa que é outra célula):

COLUNA A | COLUNA B
1 | Dia 01
2 Título | Exame - Faltam 05 dias!!!
3 Local | C:\DOCUMENTOS\Controle Exames\Calendario Exames.xlsx
4 Data | 05/04/21 06:00 AM
5 Duração | 30

Segue o código que fiz:

Sub Countdownteste()
Dim o As Outlook.Application
Set o = New Outlook.Application

Dim oapt As Outlook.AppointmentItem

Set oapt = o.CreateItem(olAppointmentItem)

oapt.MeetingStatus = olMeeting
Dim mylist As String

mylist = oapt.Recipients.Add(“[email protected]; [email protected]”)

With oapt

.subject = Planilha1.Cells(2, 4)
.Location = Planilha1.Cells(3, 4)

.Start = Planilha1.Cells(4, 4)
.Duration = Planilha1.Cells(5, 4)
.Display
'.Send

End With

End Sub