Consegui elaborar um código. porem não consegui introduzir um horário especifico para o envio do relatório.

ex. enviar relatório 10:00:00 hora atual(sendo sempre atualizada) 09:20:00

quando atinge a hora especificada ele envia para a lista de remetente com assunto e anexo e comentário do corpo do e-mail.

segue ate onde eu consegui. creio que é algo relacionado a o comando .send para um horário especifico conforme hora corrente.

segue code.

Sub ENVIAR_EMAIL_ADD_PLANILHA()
Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem
    .to = ("test@test11;test@test2;test@test3;test@test4")
    .Subject = "relatorio xxxx"
    .Body = "Caros," & Plan1.[d1].Value & vbCrLf & _
    vbCrLf & _
    vbCrLf & _
           "Estamos enviando em anexo o relatorio:" & vbCrLf & _
           "xxxxxxx " & _
vbCrLf & _
vbCrLf & _
vbCrLf & _
vbCrLf & _
vbCrLf & _
           "Qualquer Dúvida, estamos a disposição!" & vbCrLf & _
           Plan1.[D2].Value
    .Attachments.Add "c:meu computadorrelatorio.xlsx"
    .send 
End With
End Sub

detalhe o envio deve ser de forma automática conforme horário estabelecido. sem necessidade de eu clicar ou digitar nada. agradeço a atenção meus caros!

Segue sugestao de timer para ativar sua macro.
Chame as duas ao msm tempo, a 1ª ativará as 11h e a segunda desativará a acao as 11h e 1 minuto.

Dim RunWhen, cRunWhat
Sub StartTimer()
    RunWhen = TimeValue("11:00:00")
    cRunWhat = "ENVIAR_EMAIL_ADD_PLANILHA"
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
                       Schedule:=True
End Sub
Sub StopTimer()
    RunWhen = RunWhen + TimeValue("00:01:00")
    cRunWhat = "ENVIAR_EMAIL_ADD_PLANILHA"
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=False
End Sub

Ajudou muito Basole! Obrigado pela dica!!

Segue sugestao de timer para ativar sua macro.
Chame as duas ao msm tempo, a 1ª ativará as 11h e a segunda desativará a acao as 11h e 1 minuto.

Dim RunWhen, cRunWhat
Sub StartTimer()
    RunWhen = TimeValue("11:00:00")
    cRunWhat = "ENVIAR_EMAIL_ADD_PLANILHA"
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
                       Schedule:=True
End Sub
Sub StopTimer()
    RunWhen = RunWhen + TimeValue("00:01:00")
    cRunWhat = "ENVIAR_EMAIL_ADD_PLANILHA"
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=False
End Sub

Boaa!